mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
104 lines
3.6 KiB
Lua
104 lines
3.6 KiB
Lua
-- pokered engine/movie/evolution.asm:12-19 stops the music and plays
|
|
-- and PlayCry blocks (home/pokemon.asm:145-149), so EvolvedText
|
|
-- (engine/pokemon/evos_moves.asm:136) cannot print until the new cry ends.
|
|
-- SHOT_DIR=/tmp/evo2033 POKEPORT_DRIVER=tests/drivers/evolution_timing_bug2033.lua \
|
|
-- POKEPORT_IDENTITY=bug2033 POKEPORT_TOUCH=0 love .
|
|
return function(game)
|
|
local U = dofile("tests/drivers/util.lua")
|
|
local DIR = os.getenv("SHOT_DIR") or os.getenv("POKEPORT_SHOT_DIR")
|
|
or "/tmp/evo2033"
|
|
os.execute("mkdir -p " .. DIR)
|
|
|
|
local Pokemon = require("src.pokemon.Pokemon")
|
|
local Evolution = require("src.pokemon.Evolution")
|
|
|
|
game.save.options = game.save.options or {}
|
|
game.save.options.textSpeed = 1
|
|
|
|
local function top() return game.stack:top() end
|
|
local function evoState()
|
|
for _, st in ipairs(game.stack.states or {}) do
|
|
if st.screenId == "EvolutionState" then return st end
|
|
end
|
|
return nil
|
|
end
|
|
local function waitFor(cond, max)
|
|
for _ = 1, max or 600 do
|
|
if cond() then return true end
|
|
U.wait(1)
|
|
end
|
|
return false
|
|
end
|
|
local function pagesText(st)
|
|
if not st or not st.pages then return nil end
|
|
local parts = {}
|
|
for _, page in ipairs(st.pages) do
|
|
if type(page) == "table" then
|
|
for _, line in ipairs(page) do
|
|
if type(line) == "string" then parts[#parts + 1] = line end
|
|
end
|
|
elseif type(page) == "string" then
|
|
parts[#parts + 1] = page
|
|
end
|
|
end
|
|
return table.concat(parts, " ")
|
|
end
|
|
local function findText(needle)
|
|
for _, st in ipairs(game.stack.states or {}) do
|
|
local blob = pagesText(st)
|
|
if blob and blob:find(needle, 1, true) then return st end
|
|
end
|
|
return nil
|
|
end
|
|
|
|
U.teleport(game, "ROUTE_1", 5, 5, "down")
|
|
U.wait(10)
|
|
|
|
local mon = Pokemon.new(game.data, "PARAS", 23)
|
|
table.insert(game.save.party, 1, mon)
|
|
Evolution.evolve(game, mon, "PARASECT", nil, "LEVEL")
|
|
|
|
if not waitFor(function() return evoState() ~= nil end, 300) then
|
|
error("EvolutionState never opened")
|
|
end
|
|
local evo = evoState()
|
|
|
|
U.shot(game, DIR .. "/evo2033_1_clear.png")
|
|
U.log("head", "loading=", evo.loading, "t=", evo.t)
|
|
waitFor(function() return (evo.loading or 0) <= 42 end, 200)
|
|
U.shot(game, DIR .. "/evo2033_2_blank42.png")
|
|
waitFor(function() return (evo.loading or 0) <= 2 end, 200)
|
|
U.shot(game, DIR .. "/evo2033_3_blank_last.png")
|
|
U.log("one frame short of the pic", "loading=", evo.loading)
|
|
waitFor(function() return evo.loading == nil end, 200)
|
|
U.shot(game, DIR .. "/evo2033_4_pic_and_cry.png")
|
|
U.log("pic up", "loading=", evo.loading, "cryWait=", evo.cryWait)
|
|
|
|
if not waitFor(function() return evo.done end, 900) then
|
|
error("the flash never finished")
|
|
end
|
|
U.shot(game, DIR .. "/evo2033_5_settled.png")
|
|
U.log("flash end", "species=", mon.species, "endCryWait=", evo.endCryWait)
|
|
U.wait(50)
|
|
U.shot(game, DIR .. "/evo2033_6_cry_alone.png")
|
|
U.log("50 frames into the new cry", "topIsEvo=", top() == evo,
|
|
"evolvedText=", findText("evolved") ~= nil)
|
|
|
|
if not waitFor(function() return findText("evolved") ~= nil end, 400) then
|
|
error("the evolved-into text never printed")
|
|
end
|
|
U.wait(70)
|
|
U.shot(game, DIR .. "/evo2033_7_evolved_text.png")
|
|
|
|
U.log("shots in", DIR)
|
|
U.log("Right: shots 1-3 show a blank white field with the \"is evolving!\"")
|
|
U.log("box still up (a Tink sounds on shot 1); shot 4 has the PARAS pic and")
|
|
U.log("its cry together; shot 6 still has the settled PARASECT under the OLD")
|
|
U.log("box, silent but for its cry; shot 7 finally types \"evolved into\".")
|
|
U.log("Wrong: the pic is up on shot 1, or the text is typing on shot 6.")
|
|
|
|
while true do
|
|
coroutine.yield()
|
|
end
|
|
end
|