mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
78 lines
2.5 KiB
Lua
78 lines
2.5 KiB
Lua
-- pokered scripts/CeruleanBadgeHouse.asm:12-53, home/list_menu.asm:29-31,
|
|
-- data/text_boxes.asm:13, text/CeruleanBadgeHouse.asm:19
|
|
-- POKEPORT_DRIVER=tests/drivers/badge_house_menu_bug2058.lua POKEPORT_IDENTITY=bug2058 POKEPORT_TOUCH=0 POKEPORT_VERSION=red love .
|
|
return function(game)
|
|
local U = dofile("tests/drivers/util.lua")
|
|
local MapScripts = require("data.scripts.init")
|
|
|
|
local MAP = "CERULEAN_BADGE_HOUSE"
|
|
local SHOT_DIR = os.getenv("SHOT_DIR") or "/tmp/shots"
|
|
|
|
local function check(label, ok)
|
|
U.log(ok and "PASS" or "FAIL", label)
|
|
return ok
|
|
end
|
|
|
|
local hooks = MapScripts.get(MAP)
|
|
check(MAP .. " registers the middle-aged man talk script",
|
|
hooks ~= nil and hooks.talk ~= nil
|
|
and hooks.talk.TEXT_CERULEANBADGEHOUSE_MIDDLE_AGED_MAN ~= nil)
|
|
|
|
-- object_event 5, 3 (data/maps/objects/CeruleanBadgeHouse.asm:15)
|
|
U.teleport(game, MAP, 5, 2, "down")
|
|
U.wait(20)
|
|
|
|
local function findList()
|
|
for _ = 1, 200 do
|
|
local top = game.stack:top()
|
|
if type(top) == "table" and top.items and top.itemBox then return top end
|
|
U.tap(game, "a")
|
|
U.wait(6)
|
|
end
|
|
return nil
|
|
end
|
|
|
|
local list = findList()
|
|
if not check("talking opens the badge list menu", list ~= nil) then return end
|
|
check("LIST_MENU_BOX, not the generic full-screen list", list.itemBox == true)
|
|
check("four printed rows", list.rows == 4)
|
|
check("cursor reaches three rows", list.cursorRows == 3)
|
|
check("the map stays visible around the box", list.isOpaque == false)
|
|
U.shot(game, SHOT_DIR .. "/2058_list.png")
|
|
|
|
for _ = 1, 5 do
|
|
U.tap(game, "down")
|
|
U.wait(4)
|
|
end
|
|
U.wait(20)
|
|
check("the list scrolled", list.scroll > 0)
|
|
U.shot(game, SHOT_DIR .. "/2058_list_scrolled.png")
|
|
|
|
local index, scroll = list.index, list.scroll
|
|
U.tap(game, "a")
|
|
U.wait(40)
|
|
check("the description prints over the still-open list",
|
|
game.stack:top() ~= list)
|
|
U.shot(game, SHOT_DIR .. "/2058_description.png")
|
|
|
|
for _ = 1, 60 do
|
|
if game.stack:top() == list then break end
|
|
U.tap(game, "a")
|
|
U.wait(6)
|
|
end
|
|
check("the list is armed again after the description",
|
|
game.stack:top() == list)
|
|
check("wCurrentMenuItem survives .loop", list.index == index)
|
|
check("wListScrollOffset survives .loop", list.scroll == scroll)
|
|
U.shot(game, SHOT_DIR .. "/2058_list_again.png")
|
|
|
|
U.tap(game, "b")
|
|
U.wait(30)
|
|
for _ = 1, 60 do
|
|
if game.stack:top() == game.overworld then break end
|
|
U.tap(game, "a")
|
|
U.wait(6)
|
|
end
|
|
check("B backs out to the overworld", game.stack:top() == game.overworld)
|
|
end
|