mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-28 18:06:09 +02:00
bryanthaboi
39 lines
1.7 KiB
Lua
39 lines
1.7 KiB
Lua
-- Parity: HiddenCoins pays BCD constants, and the COIN+40 tile pays 20 (#1810).
|
|
--
|
|
-- engine/events/hidden_items.asm:79-96 branches the hidden-event argument
|
|
-- into .bcd10 ($10), .bcd20 ($20) or .bcd100 ($0100); `cp 40 / jr z, .bcd20`
|
|
-- is pokered's own typo, so .bcd40 at :90 ("due to a typo, this is never
|
|
-- used") never runs and the Game Corner's COIN+40 tile (data/events/
|
|
-- hidden_events.asm:294, GAME_CORNER 11,7) credits 20 coins on hardware.
|
|
--
|
|
-- Self-contained; run via `luajit tests/parity_hidden_coins_bcd_bug1810.lua`.
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
if not _G.love then _G.love = require("tests.love_stub") end
|
|
local S = require("tests.harness").suite("parity hidden coins bcd")
|
|
local check, eq = S.check, S.eq
|
|
|
|
local OverworldState = require("src.world.OverworldController")
|
|
local pay = OverworldState.hiddenCoinPayout
|
|
|
|
eq(pay(10), 10, "COIN + 10 pays BCD $10")
|
|
eq(pay(20), 20, "COIN + 20 pays BCD $20")
|
|
eq(pay(40), 20, "COIN + 40 falls into .bcd20 and pays 20")
|
|
eq(pay(100), 100, "COIN + 100 pays BCD $0100")
|
|
eq(pay(0), 100, "anything the branch chain misses pays 100")
|
|
|
|
-- the generated data still carries the raw argument: the runtime mapping,
|
|
-- not the extractor, is what turns the 40 tile into 20
|
|
local field = dofile("data/generated/field.lua")
|
|
local corner = field.hiddenCoins and field.hiddenCoins.GAME_CORNER
|
|
check(corner ~= nil, "GAME_CORNER has hidden coin tiles")
|
|
|
|
local forty
|
|
for _, h in ipairs(corner or {}) do
|
|
if h.x == 11 and h.y == 7 then forty = h end
|
|
end
|
|
check(forty ~= nil, "the (11,7) hidden coin tile is present")
|
|
eq(forty and forty.coins, 40, "it is extracted as the COIN + 40 argument")
|
|
eq(pay(forty and forty.coins), 20, "and the award path credits 20 for it")
|
|
|
|
S.finish()
|