mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-14 01:11:07 +02:00
bryanthaboi
68 lines
2.3 KiB
Lua
68 lines
2.3 KiB
Lua
-- Red Gyarados BATTLETYPE_FORCESHINY probe: the REAL script chain (the
|
|
-- RedGyarados object script at 49:4f6f -> loadwildmon GYARADOS, 30 ->
|
|
-- loadvar VAR_BATTLETYPE, BATTLETYPE_FORCESHINY -> startbattle) must hand
|
|
-- the battle a SHINY Gyarados (InitEnemyMon `.NotRoaming`, engine/battle/
|
|
-- core.asm:5876: DVs $EA/$AA) and a battle RUN cannot leave
|
|
-- (TryToRunAwayFromBattle's .cant_escape arm for the type).
|
|
local Bot = dofile("tests/drivers/gold/bot.lua")
|
|
local A = Bot.adapter
|
|
|
|
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("[forceshiny] FAIL resume: " .. tostring(err))
|
|
return
|
|
end
|
|
for _ = 1, 3000 do if A.ready(game) then break end bot:wait(1) end
|
|
|
|
if not bot:travelTo("LAKE_OF_RAGE") then
|
|
print("[forceshiny] FAIL travel")
|
|
return
|
|
end
|
|
if not bot:approachAndFace(18, 22) then
|
|
print("[forceshiny] FAIL approach gyarados")
|
|
return
|
|
end
|
|
bot:tap("a")
|
|
local battle
|
|
for _ = 1, 2400 do
|
|
if A.inBattle(game) then
|
|
battle = A.top(game).battle
|
|
break
|
|
end
|
|
bot:tap("a")
|
|
bot:wait(2)
|
|
end
|
|
if not battle then
|
|
print("[forceshiny] FAIL no battle came up")
|
|
return
|
|
end
|
|
|
|
local wild = battle.enemy or {}
|
|
local dvs = wild.dvs or {}
|
|
print(("[forceshiny] map=%s pos=%s,%s wild=%s trainer=%s level=%s")
|
|
:format(tostring(A.mapId(game)), tostring(select(1, A.pos(game))),
|
|
tostring(select(2, A.pos(game))), tostring(battle.wild),
|
|
tostring(battle.trainer and battle.trainer.name), tostring(wild.level)))
|
|
print(("[forceshiny] battleType=%s species=%s shiny=%s dvs=%s/%s/%s/%s")
|
|
:format(tostring(battle.battleType), tostring(wild.species),
|
|
tostring(wild.shiny), tostring(dvs.attack), tostring(dvs.defense),
|
|
tostring(dvs.speed), tostring(dvs.special)))
|
|
|
|
local pass = battle.battleType == 7
|
|
and wild.species == "GYARADOS"
|
|
and wild.shiny == true
|
|
and dvs.attack == 14 and dvs.defense == 10
|
|
and dvs.speed == 10 and dvs.special == 10
|
|
|
|
-- RUN must refuse and leave the encounter live.
|
|
local ran = battle:tryRun()
|
|
print(("[forceshiny] tryRun=%s over=%s")
|
|
:format(tostring(ran), tostring(battle.over)))
|
|
if ran or battle.over then pass = false end
|
|
|
|
print(pass and "[forceshiny] PASS" or "[forceshiny] FAIL")
|
|
end
|