mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
75 lines
2.3 KiB
Lua
75 lines
2.3 KiB
Lua
local U = require("tests.drivers.util")
|
|
|
|
-- ../pokecrystal/engine/events/overworld.asm:755-846
|
|
local MAP = "DARK_CAVE_VIOLET_ENTRANCE"
|
|
local BACK = "ROUTE_31"
|
|
|
|
return function(game)
|
|
local fails = 0
|
|
local function say(line) print("[dig2178] " .. line) end
|
|
local function ok(cond, line)
|
|
if not cond then fails = fails + 1 end
|
|
say((cond and "PASS " or "FAIL ") .. line)
|
|
end
|
|
|
|
U.wait(60)
|
|
local world = game.world
|
|
if not (world and world.map) then
|
|
say("FAIL the crystal world did not boot")
|
|
love.event.quit(1)
|
|
return
|
|
end
|
|
|
|
local mouth = world.maps and world.maps[MAP] and world.maps[MAP].warps
|
|
and world.maps[MAP].warps[1]
|
|
ok(mouth ~= nil, MAP .. " carries its Route 31 mouth")
|
|
if not mouth then love.event.quit(1) return end
|
|
|
|
world:warpToMapId(MAP, mouth.x, mouth.y + 1, "down")
|
|
U.wait(60)
|
|
ok(world.map and world.map.id == MAP, "arrived in the cave")
|
|
world.noWildEncounters = true
|
|
world.backupWarp = { map = BACK, warp = 3 }
|
|
|
|
local destMapId, destWarp = world:escapeRopeTarget()
|
|
ok(destMapId == BACK, "the rope resolves back to " .. BACK)
|
|
if not destWarp then love.event.quit(1) return end
|
|
|
|
U.shot(game, "/tmp/pokeport-shots/dig2178_before.png")
|
|
ok(world:runEscapeWarp(destMapId, destWarp), "the dig warp runs")
|
|
ok(world.moveState ~= nil, ".DigOut armed a movement stream")
|
|
for i = 1, 4 do
|
|
U.wait(8)
|
|
U.shot(game, ("/tmp/pokeport-shots/dig2178_spin%d.png"):format(i))
|
|
end
|
|
U.wait(8)
|
|
ok(world.playerHidden == true, "hide_object hid the player for the fade")
|
|
|
|
for _ = 1, 300 do
|
|
if world.map and world.map.id == BACK then break end
|
|
U.wait(1)
|
|
end
|
|
ok(world.map and world.map.id == BACK, "landed on " .. BACK)
|
|
|
|
for _ = 1, 240 do
|
|
if not world.playerHidden then break end
|
|
U.wait(1)
|
|
end
|
|
ok(world.moveState ~= nil, ".DigReturn armed the return stream")
|
|
ok(not world.playerHidden, "show_object brought the player back")
|
|
for i = 1, 6 do
|
|
U.shot(game, ("/tmp/pokeport-shots/dig2178_return%d.png"):format(i))
|
|
U.wait(1)
|
|
end
|
|
local walkable = false
|
|
for _ = 1, 120 do
|
|
if not world:busy() then walkable = true break end
|
|
U.wait(1)
|
|
end
|
|
ok(walkable, "and the world is walkable again")
|
|
U.shot(game, "/tmp/pokeport-shots/dig2178_after.png")
|
|
|
|
say(fails == 0 and "ALL PASS" or (fails .. " FAILURES"))
|
|
love.event.quit(fails == 0 and 0 or 1)
|
|
end
|