65b320de39
Adds the following lua functions:
- nh.pushkey("x")
Pushes a key into the command queue. Support is spotty,
currently only the keys handled in rhack.
- nh.doturn()
Runs one turn of main loop, or if optional boolean param
is true, until g.multi == 0
- nh.monster_generation(false)
Disable monster generation, and kill off all monsters.
Adds a testmove.lua script to test hero movement. Currently
covers only hjklyubn and HJKLYUBN.
66 lines
1.7 KiB
Lua
66 lines
1.7 KiB
Lua
|
|
-- Tests for moving the hero
|
|
|
|
-- TODO: running stops if hero walks over stairs -> test fails.
|
|
-- prevent stair generation? check where the stairs are?
|
|
|
|
nh.parse_config("OPTIONS=number_pad:0");
|
|
nh.parse_config("OPTIONS=runmode:teleport");
|
|
|
|
local POS = { x = 10, y = 05 };
|
|
|
|
function initlev()
|
|
nh.monster_generation(false);
|
|
des.level_flags("noflip");
|
|
des.reset_level();
|
|
des.level_init({ style = "solidfill", fg = ".", lit = true });
|
|
des.teleport_region({ region = {POS.x,POS.y,POS.x,POS.y}, region_islev = true, dir="both" });
|
|
des.finalize_level();
|
|
end
|
|
|
|
local basicmoves = {
|
|
h = { dx = -1, dy = 0 },
|
|
j = { dx = 0, dy = 1 },
|
|
k = { dx = 0, dy = -1 },
|
|
l = { dx = 1, dy = 0 },
|
|
y = { dx = -1, dy = -1 },
|
|
u = { dx = 1, dy = -1 },
|
|
b = { dx = -1, dy = 1 },
|
|
n = { dx = 1, dy = 1 },
|
|
H = { x = 2, y = POS.y },
|
|
J = { x = POS.x, y = nhc.ROWNO-1 },
|
|
K = { x = POS.x, y = 0 },
|
|
L = { x = nhc.COLNO-2, y = POS.y },
|
|
Y = { x = POS.x - POS.y, y = 0 },
|
|
U = { x = POS.x + POS.y, y = 0 },
|
|
B = { x = 2, y = 13 },
|
|
N = { x = 25, y = nhc.ROWNO-1 },
|
|
};
|
|
|
|
|
|
for k, v in pairs(basicmoves) do
|
|
initlev();
|
|
|
|
local x = u.ux;
|
|
local y = u.uy;
|
|
|
|
nh.pushkey(k);
|
|
nh.doturn(true);
|
|
|
|
if (v.dx ~= nil) then
|
|
if (not (x == u.ux - v.dx and y == u.uy - v.dy)) then
|
|
error(string.format("Move: key '%s' gave (%i,%i), should have been (%i,%i)",
|
|
k, u.ux, u.uy, u.ux - v.dx, u.uy - v.dy));
|
|
return;
|
|
end
|
|
elseif (v.x ~= nil) then
|
|
if (not (u.ux == v.x and u.uy == v.y)) then
|
|
error(string.format("Move: key '%s' gave (%i,%i), should have been (%i,%i)",
|
|
k, u.ux, u.uy, v.x, v.y));
|
|
return;
|
|
end
|
|
end
|
|
end
|
|
|
|
initlev();
|