Files
gen1recomp/tests/drivers/gen2_pack_pc_menus_2012.lua

69 lines
2.2 KiB
Lua

-- ../pokecrystal/engine/items/pack.asm:313, ../pokegold/engine/items/pack.asm:313
-- ../pokecrystal/engine/events/pokecenter_pc.asm:628, :641
-- ../pokecrystal/engine/items/buy_sell_toss.asm:205
-- POKEPORT_IDENTITY=crystal-aug31 POKEPORT_VERSION=crystal POKEPORT_SHOT_DIR=/tmp/pack2012 POKEPORT_DRIVER=tests/drivers/gen2_pack_pc_menus_2012.lua love .
-- POKEPORT_IDENTITY=gold-aug30 POKEPORT_VERSION=gold POKEPORT_SHOT_DIR=/tmp/pack2012 POKEPORT_DRIVER=tests/drivers/gen2_pack_pc_menus_2012.lua love .
local U = require("tests.drivers.util")
local Bag = require("src.inventory.Bag")
local Mon = require("src.battle.gen2.Mon")
local SHOTS = os.getenv("POKEPORT_SHOT_DIR") or "/tmp/pokeport-shots"
local TAG = os.getenv("POKEPORT_VERSION") or "gen2"
return function(game)
U.wait(45)
assert(game.world and game.world.map, "gen2 world did not boot")
local save, data = game.save, game.data
save.party = { Mon.new(data, "CYNDAQUIL", 12) }
save.inventory, save.bagOrder = {}, nil
Bag.add(save, "POTION", 5, data)
Bag.add(save, "ANTIDOTE", 3, data)
Bag.add(save, "SUPER_POTION", 2, data)
save.pcItems = { POTION = 4, ANTIDOTE = 2, SUPER_POTION = 3 }
save.pcOrder = nil
assert(game.world:openPc(), "openPc failed")
U.wait(30)
U.tap(game, "a")
U.wait(12)
U.tap(game, "down")
U.wait(8)
U.tap(game, "a")
U.wait(12)
U.tap(game, "a")
U.wait(12)
U.tap(game, "a")
U.wait(20)
U.tap(game, "a")
U.wait(30)
U.shot(game, SHOTS .. "/2012_" .. TAG .. "_pc_list.png")
U.tap(game, "a")
U.wait(30)
U.shot(game, SHOTS .. "/2012_" .. TAG .. "_pc_qty.png")
U.tap(game, "b")
U.wait(20)
U.tap(game, "b")
U.wait(20)
for _ = 1, 6 do
U.tap(game, "b")
U.wait(20)
end
game:openStartMenuItem("pack")
U.wait(30)
U.shot(game, SHOTS .. "/2012_" .. TAG .. "_pack_list.png")
U.tap(game, "a")
U.wait(30)
U.shot(game, SHOTS .. "/2012_" .. TAG .. "_pack_submenu.png")
U.log("done --",
"pc_list: cursor col 4, names col 5, xNN flush right at col 14;",
"pc_qty: the x01 box bottom-right at (15,9), list arrow hollow;",
"pack_submenu: crystal draws USE/GIVE/TOSS/QUIT on the RIGHT (col 13),",
"gold on the LEFT (col 0), list arrow hollow in both.")
end