mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-12 08:21:02 +02:00
bryanthaboi
98 lines
3.3 KiB
Lua
98 lines
3.3 KiB
Lua
-- Lake of Rage chain probe: resume section 10, travel, fight the Red Gyarados,
|
|
-- talk to Lance, enter the mart, and print the three Cluster C flags.
|
|
local Bot = dofile("tests/drivers/gold/bot.lua")
|
|
local A = Bot.adapter
|
|
|
|
local function flag(game, name)
|
|
local v = A.event(game, name)
|
|
return v == nil and "?" or (v and "SET" or "clear")
|
|
end
|
|
|
|
return function(game)
|
|
local bot = Bot.new(game)
|
|
for _ = 1, 3000 do if A.ready(game) then break end bot:wait(1) end
|
|
local ok, err = A.loadCheckpoint(game, "10")
|
|
if not ok then
|
|
print("[lake] resume fail " .. tostring(err))
|
|
return
|
|
end
|
|
for _ = 1, 3000 do if A.ready(game) then break end bot:wait(1) end
|
|
|
|
bot:forgetSurf()
|
|
print(("[lake] start %s surf=%s gyarados=%s lance=%s stairs=%s")
|
|
:format(tostring(A.mapId(game)), tostring(bot:canSurf()),
|
|
flag(game, "EVENT_LAKE_OF_RAGE_RED_GYARADOS"),
|
|
flag(game, "EVENT_DECIDED_TO_HELP_LANCE"),
|
|
flag(game, "EVENT_UNCOVERED_STAIRCASE_IN_MAHOGANY_MART")))
|
|
|
|
-- Burn a visit to the lake and back so edgeTries matches a real section-10
|
|
-- approach (10.26 then 10.g), which is what exposed the skip=1 pocket bug.
|
|
print("[lake] priming edgeTries via lake <-> route 43...")
|
|
bot:travelTo("LAKE_OF_RAGE")
|
|
bot:travelTo("ROUTE_43")
|
|
|
|
print("[lake] travelTo LAKE_OF_RAGE for the fight...")
|
|
if not bot:travelTo("LAKE_OF_RAGE") then
|
|
print("[lake] FAIL travel")
|
|
return
|
|
end
|
|
local nx, ny = A.pos(game)
|
|
print(("[lake] arrived %s @%d,%d regionSize=%d")
|
|
:format(tostring(A.mapId(game)), nx or -1, ny or -1, bot:regionSize()))
|
|
|
|
print("[lake] approach+A Red Gyarados at 18,22...")
|
|
if not bot:approachAndFace(18, 22) then
|
|
print("[lake] FAIL approach gyarados")
|
|
return
|
|
end
|
|
local ax, ay = A.pos(game)
|
|
print(("[lake] standing @%d,%d facing=%s -- pressing A")
|
|
:format(ax or -1, ay or -1, tostring(A.facing(game))))
|
|
bot:tap("a")
|
|
bot:wait(8)
|
|
bot:clearDialogue(nil, 12000)
|
|
print(("[lake] after gyarados: gyarados=%s lanceObj=%s")
|
|
:format(flag(game, "EVENT_LAKE_OF_RAGE_RED_GYARADOS"),
|
|
flag(game, "EVENT_LAKE_OF_RAGE_LANCE")))
|
|
|
|
if flag(game, "EVENT_LAKE_OF_RAGE_RED_GYARADOS") ~= "SET" then
|
|
print("[lake] FAIL: EVENT_LAKE_OF_RAGE_RED_GYARADOS still clear")
|
|
return
|
|
end
|
|
|
|
print("[lake] talk Lance at 21,28...")
|
|
if not bot:approachAndFace(21, 28) then
|
|
print("[lake] FAIL approach lance")
|
|
return
|
|
end
|
|
bot:tap("a")
|
|
bot:wait(8)
|
|
bot:clearDialogue({ "yes" }, 8000)
|
|
print(("[lake] after lance: decided=%s")
|
|
:format(flag(game, "EVENT_DECIDED_TO_HELP_LANCE")))
|
|
|
|
if flag(game, "EVENT_DECIDED_TO_HELP_LANCE") ~= "SET" then
|
|
print("[lake] FAIL: EVENT_DECIDED_TO_HELP_LANCE still clear")
|
|
return
|
|
end
|
|
|
|
print("[lake] travelTo MAHOGANY_MART_1F...")
|
|
if not bot:travelTo("MAHOGANY_MART_1F") then
|
|
print("[lake] FAIL travel mart")
|
|
return
|
|
end
|
|
-- Scene script runs on entry.
|
|
bot:clearDialogue(nil, 8000)
|
|
print(("[lake] after mart: stairs=%s map=%s")
|
|
:format(flag(game, "EVENT_UNCOVERED_STAIRCASE_IN_MAHOGANY_MART"),
|
|
tostring(A.mapId(game))))
|
|
|
|
if flag(game, "EVENT_UNCOVERED_STAIRCASE_IN_MAHOGANY_MART") == "SET"
|
|
and flag(game, "EVENT_DECIDED_TO_HELP_LANCE") == "SET"
|
|
and flag(game, "EVENT_LAKE_OF_RAGE_RED_GYARADOS") == "SET" then
|
|
print("[lake] OK: Cluster C chain complete")
|
|
else
|
|
print("[lake] FAIL: chain incomplete")
|
|
end
|
|
end
|