mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
74 lines
2.5 KiB
Lua
74 lines
2.5 KiB
Lua
-- Buena_PlacePrizeMenuBox (#1935): ../pokecrystal/home/scrolling_menu.asm:25-41,
|
|
-- ../pokecrystal/engine/events/buena.asm:219
|
|
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
love = love or require("tests.love_stub")
|
|
|
|
local calls = {}
|
|
package.loaded["src.render.Font"] = {
|
|
BORDER = { tl = 1, tr = 2, bl = 3, br = 4, h = 5, v = 6 },
|
|
draw = function(text, x, y) calls[#calls + 1] = { "draw", text, x, y } end,
|
|
drawCode = function(code, x, y) calls[#calls + 1] = { "code", code, x, y } end,
|
|
drawBox = function(tx, ty, tw, th) calls[#calls + 1] = { "box", tx, ty, tw, th } end,
|
|
encode = function(text) return { string.byte(tostring(text), 1) or 0 } end,
|
|
advanceOf = function() return 8 end,
|
|
width = function(text) return #tostring(text) * 8 end,
|
|
}
|
|
package.loaded["src.ui.gen2.Chrome"] = nil
|
|
package.loaded["src.ui.gen2.BuenaPassword"] = nil
|
|
local BuenaPassword = require("src.ui.gen2.BuenaPassword")
|
|
|
|
local function boxes()
|
|
local found = {}
|
|
for _, c in ipairs(calls) do
|
|
if c[1] == "box" then found[#found + 1] = c end
|
|
end
|
|
return found
|
|
end
|
|
|
|
local function drew(text, x, y)
|
|
for _, c in ipairs(calls) do
|
|
if c[1] == "draw" and c[2] == text and c[3] == x and c[4] == y then
|
|
return true
|
|
end
|
|
end
|
|
return false
|
|
end
|
|
|
|
local prizes = {}
|
|
for i = 1, 6 do prizes[i] = { name = "PRIZE " .. i, cost = i } end
|
|
|
|
local screen = BuenaPassword.new({}, { mode = "prize", prizes = prizes, balance = 1 })
|
|
screen:draw()
|
|
|
|
local drawn = boxes()
|
|
eq(#drawn, 2, "prize mode draws the list frame and the Points box, nothing else")
|
|
|
|
local frame = drawn[1]
|
|
if check(frame ~= nil, "the scrolling list is framed") then
|
|
eq(frame[2], 0, "InitScrollingMenu decrements the left coord to 0")
|
|
eq(frame[3], 0, "and the top coord to 0")
|
|
eq(frame[4], 18, "16 interior columns plus both borders")
|
|
eq(frame[5], 11, "9 interior rows plus both borders")
|
|
end
|
|
|
|
local balance = drawn[2]
|
|
if check(balance ~= nil, "PrintBlueCardBalance keeps its own box") then
|
|
eq(balance[2], 0, "BlueCardBalanceMenuHeader's menu_coords 0, 11, 11, 13")
|
|
eq(balance[3], 11, "row 11")
|
|
eq(balance[4], 12, "through column 11")
|
|
eq(balance[5], 3, "through row 13")
|
|
end
|
|
|
|
check(drew("PRIZE 1", 16, 16), "the first prize name sits at (16, 16)")
|
|
check(drew("1", 120, 16), "with its cost digit in column 15")
|
|
check(drew("\xe2\x96\xbc", 128, 72),
|
|
"the ▼ lands inside the frame at (128, 72), not on its border")
|
|
check(not drew("\xe2\x96\xb2", 128, 8),
|
|
"the ▲ stays off until the list has scrolled")
|
|
|
|
T.finish("buena prize box bug 1935")
|