mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
79 lines
2.4 KiB
Lua
79 lines
2.4 KiB
Lua
local U = require("tests.drivers.util")
|
|
local DIR = os.getenv("POKEPORT_SHOT_DIR") or "/tmp"
|
|
|
|
local failures = 0
|
|
local function result(ok, label)
|
|
if ok then
|
|
print("PASS " .. label)
|
|
else
|
|
failures = failures + 1
|
|
print("FAIL " .. label)
|
|
end
|
|
return ok
|
|
end
|
|
|
|
local function finish()
|
|
if failures == 0 then
|
|
print("PASS u2b_multichoice_window")
|
|
love.event.quit(0)
|
|
else
|
|
print("FAIL u2b_multichoice_window failures=" .. failures)
|
|
love.event.quit(1)
|
|
end
|
|
end
|
|
|
|
return function(game)
|
|
U.wait(30)
|
|
game:_handleBootAction({ action = "new_game", name = "RED" })
|
|
U.wait(120)
|
|
local Map = require("src.core.game3.map")
|
|
Map.load(nil, game, "FR_OAKS_LAB", { x = 8, y = 5, facing = "up" })
|
|
game.session.x, game.session.y, game.session.facing = 8, 5, "up"
|
|
U.wait(90)
|
|
|
|
local Chrome = require("src.ui.game3.chrome")
|
|
local Choice = require("src.ui.game3.choice")
|
|
local Adapters = require("src.core.game3.scripting.adapters")
|
|
local adapters = Adapters.host(nil, game, nil)
|
|
|
|
local cases = {
|
|
{ row = { op = "multichoice", 20, 8, 10, 0 }, ey = 9, right = 29, shot = "u2b_01_multichoice_20_8_window.png" },
|
|
{ row = { op = "multichoice", 0, 0, 5, 0 }, ex = 1, ey = 1, shot = "u2b_02_multichoice_0_0_window.png" },
|
|
}
|
|
|
|
local origStdFrame = Chrome.stdFrame
|
|
for _, c in ipairs(cases) do
|
|
local frame
|
|
Chrome.stdFrame = function(tx, ty, tw, th)
|
|
if Choice.active then frame = { tx, ty, tw, th } end
|
|
return origStdFrame(tx, ty, tw, th)
|
|
end
|
|
adapters.multichoice(c.row, function() end)
|
|
U.wait(20)
|
|
local label = ("multichoice %d,%d"):format(c.row[1], c.row[2])
|
|
if result(Choice.active and frame ~= nil, label .. " window drawn") then
|
|
local ok, desc
|
|
if c.right then
|
|
ok = frame[1] + frame[3] == c.right and frame[2] == c.ey
|
|
desc = ("%s clamped: content right edge %d top %d, got x=%s w=%s y=%s"):format(label,
|
|
c.right, c.ey, tostring(frame[1]), tostring(frame[3]), tostring(frame[2]))
|
|
else
|
|
ok = frame[1] == c.ex and frame[2] == c.ey
|
|
desc = ("%s content at tiles (%d,%d), got (%s,%s)"):format(label, c.ex, c.ey,
|
|
tostring(frame[1]), tostring(frame[2]))
|
|
end
|
|
if result(ok, desc) then
|
|
U.shot(game, DIR .. "/" .. c.shot)
|
|
U.wait(5)
|
|
end
|
|
end
|
|
Chrome.stdFrame = origStdFrame
|
|
Choice.active = false
|
|
Choice.options = nil
|
|
Choice.done = nil
|
|
U.wait(5)
|
|
end
|
|
|
|
finish()
|
|
end
|