mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-12 08:21:02 +02:00
bryanthaboi
106 lines
3.7 KiB
Lua
106 lines
3.7 KiB
Lua
-- Driver: Game Corner slot machine, open a working machine, spin, stop
|
|
-- the three wheels one at a time (per-wheel slip animation), read the
|
|
-- result, then poke the three broken machines for their exact pokered
|
|
-- texts (OUT OF ORDER / OUT TO LUNCH / SOMEONE'S KEYS).
|
|
return function(game)
|
|
local U = dofile("tests/drivers/util.lua")
|
|
local DIR = os.getenv("SHOT_DIR") or "/tmp/shots"
|
|
local SlotMachine = require("src.ui.SlotMachine")
|
|
local TextBox = require("src.render.TextBox")
|
|
|
|
local function topIs(cls)
|
|
return getmetatable(game.stack:top()) == cls
|
|
end
|
|
local function pageText()
|
|
local top = game.stack:top()
|
|
if getmetatable(top) ~= TextBox then return "<no textbox>" end
|
|
local out = {}
|
|
for _, page in ipairs(top.pages or {}) do
|
|
for _, line in ipairs(page) do out[#out + 1] = tostring(line) end
|
|
end
|
|
return table.concat(out, "\\n")
|
|
end
|
|
|
|
U.newGame(game)
|
|
game.save.inventory = game.save.inventory or {}
|
|
game.save.inventory.COIN_CASE = 1
|
|
game.save.coins = 50
|
|
|
|
-- seat 1: working machine at (18,15); stand left of it facing right
|
|
U.teleport(game, "GAME_CORNER", 17, 15, "right")
|
|
U.tap(game, "a")
|
|
U.wait(10)
|
|
U.log("machine open:", topIs(SlotMachine))
|
|
U.shot(game, DIR .. "/slots_0_bet.png")
|
|
|
|
local sm = game.stack:top()
|
|
U.tap(game, "a") -- PromptUserToPlaySlots "Want to play?" -> YES (default cursor)
|
|
U.wait(6)
|
|
U.log("bet stage:", sm.stage == "bet", "default bet (x3):", sm.bet)
|
|
U.tap(game, "a") -- confirm bet 3 (CoinMultiplierSlotMachineText default), start spinning
|
|
U.wait(6)
|
|
U.log("spinup:", sm.stage == "spinup", "coins:", game.save.coins)
|
|
U.wait(44) -- 20 spin-up steps at 2 frames each
|
|
U.log("spinning:", sm.stage == "spin")
|
|
U.shot(game, DIR .. "/slots_1_spin.png")
|
|
|
|
U.tap(game, "a") -- stop wheel 1
|
|
U.wait(30)
|
|
U.log("wheel1 stopped:", sm.stopping >= 1 and sm.slip[1] == 0,
|
|
"offset odd:", sm.offset[1] % 2 == 1)
|
|
U.shot(game, DIR .. "/slots_2_wheel1.png")
|
|
|
|
U.tap(game, "a") -- stop wheel 2
|
|
U.wait(30)
|
|
U.log("wheel2 stopped:", sm.stopping >= 2 and sm.slip[2] == 0,
|
|
"offset odd:", sm.offset[2] % 2 == 1)
|
|
U.shot(game, DIR .. "/slots_3_wheel2.png")
|
|
|
|
U.tap(game, "a") -- stop wheel 3
|
|
U.wait(30)
|
|
-- a win goes through the screen-flash stage before the "lined up!"
|
|
-- message; a loss reaches the "Not this time!" message immediately.
|
|
for _ = 1, 200 do
|
|
if sm.stage == "message" then break end
|
|
U.wait(1)
|
|
end
|
|
U.log("resolved:", sm.stage == "message",
|
|
"offsets:", sm.offset[1], sm.offset[2], sm.offset[3])
|
|
U.log("message:", tostring(sm.message), "coins:", game.save.coins)
|
|
U.shot(game, DIR .. "/slots_4_result.png")
|
|
|
|
U.tap(game, "a") -- dismiss result (starts the coin-drip payout on a win)
|
|
U.wait(6)
|
|
-- ride out the payout drip (if any) until "One more go?" or the
|
|
-- out-of-coins auto-exit
|
|
for _ = 1, 3000 do
|
|
if sm.stage == "onemore" or (sm.stage == "message" and sm.exitTimer) then break end
|
|
U.wait(1)
|
|
end
|
|
U.log("after payout:", sm.stage, "coins:", game.save.coins)
|
|
|
|
if sm.stage == "onemore" then
|
|
U.tap(game, "b") -- decline "One more go?" -> leave
|
|
U.wait(6)
|
|
else
|
|
U.wait(70) -- OutOfCoinsSlotMachineText auto-exits after 60 frames
|
|
end
|
|
U.log("left machine:", game.stack:top() == game.overworld)
|
|
|
|
-- broken machines: exact pokered strings
|
|
local spots = {
|
|
{ 12, 12, "out_to_lunch", "slots_5_lunch" },
|
|
{ 5, 12, "out_of_order", "slots_6_order" },
|
|
{ 17, 10, "keys", "slots_7_keys" },
|
|
}
|
|
for _, s in ipairs(spots) do
|
|
U.teleport(game, "GAME_CORNER", s[1], s[2], "right")
|
|
U.tap(game, "a")
|
|
U.wait(10)
|
|
U.log(s[3] .. ":", pageText())
|
|
U.shot(game, DIR .. "/" .. s[4] .. ".png")
|
|
U.tap(game, "a")
|
|
U.wait(6)
|
|
end
|
|
end
|