mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
88 lines
3.4 KiB
Lua
88 lines
3.4 KiB
Lua
-- ../pokecrystal/engine/pokegear/pokegear.asm:2026-2046
|
|
-- ../pokecrystal/home/map.asm:1927-1940
|
|
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
love = require("tests.love_stub")
|
|
|
|
local T = require("tests.harness")
|
|
local World = require("src.world.gen2.World")
|
|
local BlankScreen = require("src.ui.gen2.BlankScreen")
|
|
|
|
do
|
|
T.eq(World.FLY_MAP_BUILD_FRAMES, 28,
|
|
"_FlyMap: ClearBGPalettes 4 + ClearTilemap 4 + LoadTownMapGFX 7 + border 1"
|
|
.. " + TownMapBGUpdate 7 + TownMapMon 3 + TownMapPlayerIcon 2 = 28")
|
|
T.eq(World.MENU_EXIT_RELOAD_FRAMES, 9,
|
|
"ReloadTilesetAndPalettes with the LCD off, bracketed 8-10")
|
|
T.eq(World.MENU_EXIT_WHITE_FRAMES, 23,
|
|
"ExitAllMenus: ClearBGPalettes 4 + reload 9 + WaitBGMap2 (4 + 4 on CGB)"
|
|
.. " + FadeInFromWhite entry 6 for 2 = 23")
|
|
T.eq(World.FLY_EXIT_WHITE_FRAMES, 31,
|
|
"_FlyMap.exit ClearBGPalettes 4 + CloseWindow's WaitBGMap 4 + 23 = 31")
|
|
T.eq(World.flyCancelBlankFrames(0), 21,
|
|
".exit 4 + .illegal CloseWindow 4 + WaitBGMap 4 + .choosemenu 4"
|
|
.. " + WaitBGMap 4 + DelayFrame 1 = 21 with an empty party")
|
|
T.eq(World.flyCancelBlankFrames(6), 21 + 18,
|
|
"plus GetIconGFX's 3 frames per party mon")
|
|
T.eq(World.FLY_FROM_PREROLL, 6,
|
|
"FadeInFromWhite entry 3 (2) + FlyFromAnim DelayFrame + InitGFX 1 + 2 = 6")
|
|
end
|
|
|
|
do
|
|
local fired = 0
|
|
local blank = BlankScreen.new(nil, { frames = 28,
|
|
onDone = function() fired = fired + 1 end })
|
|
T.eq(blank.left, 28, "frames = 28 arms 28")
|
|
for _ = 1, 27 do blank:update() end
|
|
T.eq(fired, 0, "27 updates: still blank (the push tick drew frame 1)")
|
|
blank:update()
|
|
T.eq(fired, 1, "the 28th update fires onDone: 28 drawn blank frames")
|
|
blank:update()
|
|
T.eq(fired, 1, "...once")
|
|
local default = BlankScreen.new(nil, {})
|
|
T.eq(default.left, BlankScreen.FRAMES, "no frames: WaitBGMap's 4")
|
|
end
|
|
|
|
do
|
|
local world = setmetatable({}, World)
|
|
world.player = { px = 0, py = 0 }
|
|
world.flyIconFor = function() return { draw = function() end } end
|
|
T.eq(world:startFlyAnim("from", {}), true, "the take-off anim starts")
|
|
local fa = world.flyAnim
|
|
T.eq(fa.preroll, 6, "FlyFromAnim waits 6 frames before its first sprite")
|
|
T.eq(fa.left, 128, "on top of the 128-frame timer")
|
|
world.spawnFlyLeaves = function() error("no leaves in the preroll") end
|
|
world.playSfxNamed = function() error("no Sfx_Fly in the preroll") end
|
|
for i = 1, 6 do
|
|
world:stepFlyAnim()
|
|
T.eq(fa.left, 128, ("preroll frame %d does not spend the timer"):format(i))
|
|
end
|
|
T.eq(fa.preroll, 0, "six frames burn the preroll")
|
|
world.spawnFlyLeaves = function() end
|
|
world.playSfxNamed = function() end
|
|
world:stepFlyAnim()
|
|
T.eq(fa.left, 127, "then the timer runs")
|
|
|
|
local drawn = 0
|
|
local landing = setmetatable({}, World)
|
|
landing.player = { px = 0, py = 0 }
|
|
landing.flyIconFor = function() return { draw = function() drawn = drawn + 1 end } end
|
|
landing:startFlyAnim("to", {})
|
|
T.eq(landing.flyAnim.preroll, 0, "the landing has no preroll")
|
|
|
|
local w2 = setmetatable({}, World)
|
|
w2.player = { px = 0, py = 0 }
|
|
w2.flyIconFor = function() return { draw = function() drawn = drawn + 1 end } end
|
|
w2:startFlyAnim("from", {})
|
|
w2.drawFlyLeaves = function() end
|
|
w2.gbScreenOrigin = function() return 0, 0 end
|
|
w2:drawFlyAnim(1)
|
|
T.eq(drawn, 0, "drawFlyAnim draws nothing during the preroll")
|
|
w2.flyAnim.preroll = 0
|
|
w2:drawFlyAnim(1)
|
|
T.eq(drawn, 1, "...and the bird once it is over")
|
|
end
|
|
|
|
T.finish("gen2 fly hold frames bug 2051")
|