mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
572 lines
27 KiB
Lua
572 lines
27 KiB
Lua
#!/usr/bin/env luajit
|
|
-- src/berry_crush.c:647, src/dodrio_berry_picking.c:3323, src/pokemon_jump.c:2901
|
|
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local failed = 0
|
|
local function check(cond, msg)
|
|
if cond then
|
|
print("[ok] " .. msg)
|
|
else
|
|
failed = failed + 1
|
|
print("[FAIL] " .. msg)
|
|
end
|
|
end
|
|
|
|
local function finish()
|
|
if failed > 0 then
|
|
print(string.format("[result] %d CHECK(S) FAILED", failed))
|
|
os.exit(1)
|
|
end
|
|
print("[result] all checks passed")
|
|
os.exit(0)
|
|
end
|
|
|
|
local GV = require("src.core.GameVersion")
|
|
local Versions = require("src.import.gba.versions")
|
|
local AssetPack = require("src.import.gba.asset_pack")
|
|
local CacheContract = require("src.import.CacheContract")
|
|
|
|
local EXTRACTORS = { "online_ui_extract", "berry_crush_extract", "dodrio_extract", "pokemon_jump_extract" }
|
|
|
|
local ADDRESSES = {
|
|
{ "SCROLL_ARROW_PAL", 0x463308, 0x462D28 },
|
|
{ "SCROLL_ARROW_GFX", 0x463328, 0x462D48 },
|
|
{ "SELECTOR_OUTLINE_GFX", 0x463398, 0x462DB8 },
|
|
{ "RED_ARROW_CURSOR_GFX", 0x4633D8, 0x462DF8 },
|
|
{ "SCROLL_INDICATOR_TEMPLATES", 0x46325C, 0x462C7C },
|
|
{ "MG_COUNTDOWN_PAL", 0x47A328, 0x479C04 },
|
|
{ "MG_COUNTDOWN_GFX", 0x47A348, 0x479C24 },
|
|
{ "MG_321START_PAL", 0x46AFE8, 0x46A8C4 },
|
|
{ "MG_321START_GFX", 0x46B008, 0x46A8E4 },
|
|
{ "MG_DIGITS_PAL", 0x479668, 0x478F44 },
|
|
{ "MG_DIGITS_GFX", 0x479688, 0x478F64 },
|
|
{ "WONDER_STAMP_SHADOW_PALS", 0x467DF4, 0x4676D0 },
|
|
{ "WONDER_STAMP_SHADOW_GFX", 0x467EF4, 0x4677D0 },
|
|
{ "MYSTERY_GIFT_BORDER_PAL", 0x466D10, 0x4665EC },
|
|
{ "MYSTERY_GIFT_BORDER_GFX", 0x466D30, 0x46660C },
|
|
{ "UR_OBJ_GFX_IDS", 0x4570D8, 0x456AF8 },
|
|
{ "UR_PLAYER_COORDS", 0x4570EC, 0x456B0C },
|
|
{ "UR_GROUP_OFFSETS", 0x45710C, 0x456B2C },
|
|
{ "UR_OPPOSITE_FACING", 0x457116, 0x456B36 },
|
|
{ "UR_MEMBER_FACING", 0x45711B, 0x456B3B },
|
|
{ "BC_CRUSHER_PAL", 0xEAFEA0, 0xEB0194 },
|
|
{ "BC_CRUSHER_GFX", 0xEAFFC0, 0xEB02B4 },
|
|
{ "BC_TEXT_WINDOWS_MAP", 0xEB0ADC, 0xEB0DD0 },
|
|
{ "BC_CORE_PAL", 0x46E470, 0x46DD4C },
|
|
{ "BC_EFFECT_PAL", 0x46E490, 0x46DD6C },
|
|
{ "BC_TIMER_PAL", 0x46E4B0, 0x46DD8C },
|
|
{ "BC_CORE_GFX", 0x46E4D0, 0x46DDAC },
|
|
{ "BC_IMPACT_GFX", 0x46E7FC, 0x46E0D8 },
|
|
{ "BC_SPARKLE_GFX", 0x46EB78, 0x46E454 },
|
|
{ "BC_TIMER_GFX", 0x46ECC4, 0x46E5A0 },
|
|
{ "BC_CRUSHER_TOP_MAP", 0x46ED90, 0x46E66C },
|
|
{ "BC_CONTAINER_CAP_MAP", 0x46EEC0, 0x46E79C },
|
|
{ "BC_BG_MAP", 0x46F058, 0x46E934 },
|
|
{ "BC_BERRY_DATA", 0x3DFC9C, 0x3DFAD8 },
|
|
{ "BC_SYNC_PRESS_BONUS", 0x46E2E8, 0x46DBC4 },
|
|
{ "BC_INTRO_OUTRO_VIBRATION", 0x46E2F0, 0x46DBCC },
|
|
{ "BC_VIBRATION", 0x46E314, 0x46DBF0 },
|
|
{ "BC_SPARKLE_THRESHOLDS", 0x46E3B4, 0x46DC90 },
|
|
{ "BC_BIG_SPARKLE_THRESHOLDS", 0x46E3C4, 0x46DCA0 },
|
|
{ "BC_RECEIVED_PLAYER_BITMASKS", 0x46E3C8, 0x46DCA4 },
|
|
{ "BC_BG_TEMPLATES", 0x46E3CC, 0x46DCA8 },
|
|
{ "BC_TEXT_COLORS", 0x46E3DC, 0x46DCB8 },
|
|
{ "BC_WIN_RANKINGS", 0x46E3F0, 0x46DCCC },
|
|
{ "BC_WIN_PLAYER_NAMES", 0x46E3F8, 0x46DCD4 },
|
|
{ "BC_WIN_RESULTS", 0x46E428, 0x46DD04 },
|
|
{ "BC_RESULTS_WINDOW_HEIGHTS", 0x46E448, 0x46DD24 },
|
|
{ "BC_PRESSING_SPEED_TABLE", 0x46E450, 0x46DD2C },
|
|
{ "BC_PLAYER_ID_TO_POS_ID", 0x46F280, 0x46EB5C },
|
|
{ "BC_PLAYER_COORDS", 0x46F294, 0x46EB70 },
|
|
{ "BC_IMPACT_COORDS", 0x46F2D0, 0x46EBAC },
|
|
{ "BC_SPARKLE_COORDS", 0x46F2D6, 0x46EBB2 },
|
|
{ "BC_DIGIT_TEMPLATES", 0x46F488, 0x46ED64 },
|
|
{ "DBP_BG_PAL", 0x4758A8, 0x475184 },
|
|
{ "DBP_DODRIO_PAL", 0x4758E8, 0x4751C4 },
|
|
{ "DBP_DODRIO_SHINY_PAL", 0x475908, 0x4751E4 },
|
|
{ "DBP_STATUS_PAL", 0x475928, 0x475204 },
|
|
{ "DBP_BERRIES_PAL", 0x475948, 0x475224 },
|
|
{ "DBP_BERRIES_GFX", 0x475968, 0x475244 },
|
|
{ "DBP_CLOUD_PAL", 0x475B1C, 0x4753F8 },
|
|
{ "DBP_BG_GFX", 0x475B3C, 0x475418 },
|
|
{ "DBP_TREE_BORDER_GFX", 0x4763CC, 0x475CA8 },
|
|
{ "DBP_STATUS_GFX", 0x477198, 0x476A74 },
|
|
{ "DBP_CLOUD_GFX", 0x47722C, 0x476B08 },
|
|
{ "DBP_DODRIO_GFX", 0x477374, 0x476C50 },
|
|
{ "DBP_BG_MAP", 0x478590, 0x477E6C },
|
|
{ "DBP_TREE_RIGHT_MAP", 0x4787FC, 0x4780D8 },
|
|
{ "DBP_TREE_LEFT_MAP", 0x478A4C, 0x478328 },
|
|
{ "DBP_ACTIVE_COLUMN_MAP", 0x471F50, 0x47182C },
|
|
{ "DBP_HEAD_TO_COLUMN_MAP", 0x472063, 0x47193F },
|
|
{ "DBP_NEIGHBOR_MAP", 0x4720AE, 0x47198A },
|
|
{ "DBP_PLAYER_ID_AT_COLUMN", 0x4720FC, 0x4719D8 },
|
|
{ "DBP_UNSHARED_COLUMNS", 0x472133, 0x471A0F },
|
|
{ "DBP_BERRY_FALL_DELAYS", 0x47553C, 0x474E18 },
|
|
{ "DBP_TREE_BORDER_X", 0x475548, 0x474E24 },
|
|
{ "DBP_DIFFICULTY_THRESHOLDS", 0x475550, 0x474E2C },
|
|
{ "DBP_PRIZE_BERRY_IDS", 0x475558, 0x474E34 },
|
|
{ "DBP_BERRY_SCORE_MULT", 0x4755D8, 0x474EB4 },
|
|
{ "DBP_WIN_RECORDS", 0x4755E0, 0x474EBC },
|
|
{ "DBP_RECORD_MAX_DIGITS", 0x4755F8, 0x474ED4 },
|
|
{ "DBP_RECORD_TEXT_Y", 0x4755FC, 0x474ED8 },
|
|
{ "DBP_RECORD_NUM_Y", 0x475602, 0x474EDE },
|
|
{ "DBP_BG_TEMPLATES", 0x47565C, 0x474F38 },
|
|
{ "DBP_WIN_RESULTS", 0x475674, 0x474F50 },
|
|
{ "DBP_WIN_PRIZE", 0x475684, 0x474F60 },
|
|
{ "DBP_WIN_PLAY_AGAIN", 0x47568C, 0x474F68 },
|
|
{ "DBP_WIN_DROPPED_OUT", 0x47569C, 0x474F78 },
|
|
{ "DBP_WIN_COMM_STANDBY", 0x4756A4, 0x474F80 },
|
|
{ "DBP_BERRY_ICON_X", 0x478DD4, 0x4786B0 },
|
|
{ "DBP_CLOUD_MOVE_DELAYS", 0x478E0C, 0x4786E8 },
|
|
{ "DBP_CLOUD_START", 0x478E0E, 0x4786EA },
|
|
{ "DBP_TEXT_COLORS", 0x478E38, 0x478714 },
|
|
{ "DBP_NAME_WIN_1P", 0x478E44, 0x478720 },
|
|
{ "DBP_NAME_WIN_2P", 0x478E48, 0x478724 },
|
|
{ "DBP_NAME_WIN_3P", 0x478E50, 0x47872C },
|
|
{ "DBP_NAME_WIN_4P", 0x478E5C, 0x478738 },
|
|
{ "DBP_NAME_WIN_5P", 0x478E6C, 0x478748 },
|
|
{ "DBP_RESULTS_X", 0x478EA8, 0x478784 },
|
|
{ "DBP_RESULTS_Y", 0x478EB0, 0x47878C },
|
|
{ "DBP_RANKING_Y", 0x478EBA, 0x478796 },
|
|
{ "PJ_INTERFACE_PAL", 0x46B794, 0x46B070 },
|
|
{ "PJ_BG_PAL", 0x46B7B4, 0x46B090 },
|
|
{ "PJ_BG_GFX", 0x46B7D4, 0x46B0B0 },
|
|
{ "PJ_BG_MAP", 0x46BA00, 0x46B2DC },
|
|
{ "PJ_VENUSAUR_PAL", 0x46BBB0, 0x46B48C },
|
|
{ "PJ_VENUSAUR_GFX", 0x46BBD0, 0x46B4AC },
|
|
{ "PJ_VENUSAUR_MAP", 0x46C520, 0x46BDFC },
|
|
{ "PJ_BONUSES_PAL", 0x46C8D8, 0x46C1B4 },
|
|
{ "PJ_BONUSES_GFX", 0x46C8F8, 0x46C1D4 },
|
|
{ "PJ_BONUSES_MAP", 0x46D3A8, 0x46CC84 },
|
|
{ "PJ_PAL1", 0x46D9E4, 0x46D2C0 },
|
|
{ "PJ_PAL2", 0x46DA04, 0x46D2E0 },
|
|
{ "PJ_VINE1_GFX", 0x46DA24, 0x46D300 },
|
|
{ "PJ_VINE2_GFX", 0x46DB44, 0x46D420 },
|
|
{ "PJ_VINE3_GFX", 0x46DD18, 0x46D5F4 },
|
|
{ "PJ_VINE4_GFX", 0x46DE48, 0x46D724 },
|
|
{ "PJ_STAR_GFX", 0x46DF44, 0x46D820 },
|
|
{ "PJ_MONS", 0x46B4BC, 0x46AD98 },
|
|
{ "PJ_VINE_BASE_SPEEDS", 0x46B694, 0x46AF70 },
|
|
{ "PJ_VINE_SPEED_DELAYS", 0x46B6A4, 0x46AF80 },
|
|
{ "PJ_SOUND_EFFECTS", 0x46B6AC, 0x46AF88 },
|
|
{ "PJ_JUMP_OFFSETS", 0x46B6B4, 0x46AF90 },
|
|
{ "PJ_SCORE_BONUSES", 0x46B744, 0x46B020 },
|
|
{ "PJ_PRIZE_ITEMS", 0x46B75C, 0x46B038 },
|
|
{ "PJ_PRIZE_QUANTITY", 0x46B76C, 0x46B048 },
|
|
{ "PJ_BG_TEMPLATES", 0x46D8D4, 0x46D1B0 },
|
|
{ "PJ_WINDOW_TEMPLATES", 0x46D8E4, 0x46D1C0 },
|
|
{ "PJ_VENUSAUR_STATES", 0x46D953, 0x46D22F },
|
|
{ "PJ_NAME_WIN_2P", 0x46D970, 0x46D24C },
|
|
{ "PJ_NAME_WIN_3P", 0x46D978, 0x46D254 },
|
|
{ "PJ_NAME_WIN_4P", 0x46D984, 0x46D260 },
|
|
{ "PJ_NAME_WIN_5P", 0x46D994, 0x46D270 },
|
|
{ "PJ_MON_X_2P", 0x46D9B8, 0x46D294 },
|
|
{ "PJ_MON_X_3P", 0x46D9BC, 0x46D298 },
|
|
{ "PJ_MON_X_4P", 0x46D9C2, 0x46D29E },
|
|
{ "PJ_MON_X_5P", 0x46D9CA, 0x46D2A6 },
|
|
{ "PJ_VINE_Y", 0x46E100, 0x46D9DC },
|
|
{ "PJ_VINE_X", 0x46E150, 0x46DA2C },
|
|
{ "PJ_WIN_RECORDS", 0x46E2CC, 0x46DBA8 },
|
|
}
|
|
|
|
check(Versions.CACHE_VERSION >= 122, "cache version carries the gen 3 online assets")
|
|
|
|
print("[test] 1. every new address is pret's symbol in both editions")
|
|
local bad = 0
|
|
for _, row in ipairs(ADDRESSES) do
|
|
if Versions[row[1]] ~= row[2] then bad = bad + 1; print(" FireRed " .. row[1]) end
|
|
end
|
|
Versions.select("leafgreen")
|
|
for _, row in ipairs(ADDRESSES) do
|
|
if Versions[row[1]] ~= row[3] then bad = bad + 1; print(" LeafGreen " .. row[1]) end
|
|
end
|
|
Versions.select("firered")
|
|
check(bad == 0, #ADDRESSES .. " addresses match pokefirered.elf and pokeleafgreen.elf")
|
|
|
|
print("[test] 2. the cache contract requires the new outputs for both editions")
|
|
local REQUIRED = {
|
|
"data/generated/gba/chrome/manifest.lua",
|
|
"data/generated/gba/chrome/scroll_arrows.rgba",
|
|
"data/generated/gba/link/manifest.lua",
|
|
"data/generated/gba/link/minigame_countdown_numbers.rgba",
|
|
"data/generated/gba/link/countdown_321.rgba",
|
|
"data/generated/gba/mystery_gift/manifest.lua",
|
|
"data/generated/gba/mystery_gift/stamp_shadow_0.rgba",
|
|
"data/generated/gba/mystery_gift/stamp_shadow_7.rgba",
|
|
"data/generated/gba/union_room/avatars.lua",
|
|
"data/generated/gba/chrome/fonts/latin_small_fg.rgba",
|
|
"data/generated/gba/chrome/fonts/latin_small_shadow.rgba",
|
|
"data/generated/gba/chrome/fonts/latin_small_widths.lua",
|
|
"data/generated/gba/pokemon/party/slot_main_multi.rgba",
|
|
"data/generated/gba/pokemon/party/slot_main_multi_selected.rgba",
|
|
"data/generated/gba/pokemon/party/slot_wide_multi.rgba",
|
|
"data/generated/gba/pokemon/party/slot_wide_multi_selected.rgba",
|
|
"data/generated/gba/union_room/chat_text_entry_cursor.rgba",
|
|
"data/generated/gba/union_room/chat_char_select_cursor.rgba",
|
|
"data/generated/gba/union_room/chat_r_button.rgba",
|
|
}
|
|
local GAMES = {
|
|
berry_crush = { "crusher", "crusher_base", "impact", "sparkle", "timer_digits", "bg", "container_cap",
|
|
"crusher_top", "text_windows" },
|
|
dodrio_berry_picking = { "berries", "bg", "cloud", "dodrio", "dodrio_shiny", "status", "tree_border_left",
|
|
"tree_border_right" },
|
|
pokemon_jump = { "bg", "bonuses", "star", "venusaur", "vine1", "vine2", "vine3", "vine4" },
|
|
}
|
|
for dir, keys in pairs(GAMES) do
|
|
REQUIRED[#REQUIRED + 1] = "data/generated/gba/" .. dir .. "/manifest.lua"
|
|
REQUIRED[#REQUIRED + 1] = "data/generated/gba/" .. dir .. "/tables.lua"
|
|
for _, key in ipairs(keys) do
|
|
REQUIRED[#REQUIRED + 1] = "data/generated/gba/" .. dir .. "/" .. key .. ".rgba"
|
|
end
|
|
end
|
|
for _, version in ipairs({ "firered", "leafgreen" }) do
|
|
local set = {}
|
|
for _, p in ipairs(CacheContract.requiredFilesFor(version)) do set[p] = true end
|
|
local missing = {}
|
|
for _, p in ipairs(REQUIRED) do if not set[p] then missing[#missing + 1] = p end end
|
|
check(#missing == 0, version .. " requires the online asset outputs " .. table.concat(missing, " "))
|
|
end
|
|
|
|
print("[test] 3. the bundled lock glyphs are 8x8 PNGs")
|
|
local function pngSize(path)
|
|
local f = io.open(path, "rb")
|
|
if not f then return nil end
|
|
local head = f:read(24); f:close()
|
|
if not head or head:sub(2, 4) ~= "PNG" then return nil end
|
|
local function be(i) local a, b, c, d = head:byte(i, i + 3) return ((a * 256 + b) * 256 + c) * 256 + d end
|
|
return be(17), be(21)
|
|
end
|
|
for _, g in ipairs({ { "lock8.png", 8 } }) do
|
|
local w, h = pngSize("assets/game3/" .. g[1])
|
|
check(w == g[2] and h == g[2], "assets/game3/" .. g[1] .. " is " .. g[2] .. "x" .. g[2])
|
|
end
|
|
for _, name in ipairs({ "lock.png", "lock8_white.png", "lock16.png", "lock16_white.png" }) do
|
|
check(io.open("assets/game3/" .. name, "rb") == nil, "assets/game3/" .. name .. " is not bundled")
|
|
end
|
|
|
|
print("[test] 3b. colour 0 of any bank on an opaque layer shows the backdrop")
|
|
do
|
|
local gfx = { _len = 64 }
|
|
for i = 1, 32 do gfx[i] = 0 end
|
|
for i = 33, 64 do gfx[i] = 0x11 end
|
|
local banks = { [0] = { [0] = 0x001F, [1] = 0x03E0 }, [1] = { [0] = 0x7C00, [1] = 0x7FFF } }
|
|
local map = { 0x00, 0x10, 0x01, 0x10, _len = 4 }
|
|
local rgba = AssetPack.bg(gfx, banks, map, 2, 16, 8, { alpha0 = false, backdrop = banks[0][0] })
|
|
check(rgba:sub(1, 4) == string.char(255, 0, 0, 255) and rgba:sub(33, 36) == string.char(255, 255, 255, 255),
|
|
"bank 1 colour 0 bakes the BG palette 0 backdrop, colour 1 keeps bank 1")
|
|
end
|
|
|
|
print("[test] 4. the serializer round-trips sparse and nested tables")
|
|
local chunk = loadstring(AssetPack.serialize({ a = { 1, -2, 3 }, [2] = { x = 1 }, [5] = { 4 }, s = "q" }))
|
|
local t = chunk and chunk()
|
|
check(t and t.a[2] == -2 and t[2].x == 1 and t[5][1] == 4 and t.s == "q", "serialize keeps sparse integer keys")
|
|
|
|
local root = os.getenv("POKEFIRERED") or "../pokefirered"
|
|
local function readFile(path)
|
|
local f = io.open(path, "rb")
|
|
if not f then return nil end
|
|
local d = f:read("*a"); f:close()
|
|
return d
|
|
end
|
|
|
|
local LZ = {
|
|
{ "BC_CRUSHER_GFX", "berry_crush/crusher.4bpp" },
|
|
{ "BC_CORE_GFX", "berry_crush/crusher_base.4bpp" },
|
|
{ "BC_IMPACT_GFX", "berry_crush/impact.4bpp" },
|
|
{ "BC_SPARKLE_GFX", "berry_crush/sparkle.4bpp" },
|
|
{ "BC_TIMER_GFX", "berry_crush/timer_digits.4bpp" },
|
|
{ "BC_CRUSHER_TOP_MAP", "berry_crush/crusher_top.bin" },
|
|
{ "BC_CONTAINER_CAP_MAP", "berry_crush/container_cap.bin" },
|
|
{ "BC_BG_MAP", "berry_crush/bg.bin" },
|
|
{ "BC_TEXT_WINDOWS_MAP", "berry_crush/text_windows.bin" },
|
|
{ "DBP_BERRIES_GFX", "dodrio_berry_picking/berries.4bpp" },
|
|
{ "DBP_BG_GFX", "dodrio_berry_picking/bg.4bpp" },
|
|
{ "DBP_TREE_BORDER_GFX", "dodrio_berry_picking/tree_border.4bpp" },
|
|
{ "DBP_STATUS_GFX", "dodrio_berry_picking/status.4bpp" },
|
|
{ "DBP_CLOUD_GFX", "dodrio_berry_picking/cloud.4bpp" },
|
|
{ "DBP_DODRIO_GFX", "dodrio_berry_picking/dodrio.4bpp" },
|
|
{ "DBP_BG_MAP", "dodrio_berry_picking/bg.bin" },
|
|
{ "DBP_TREE_RIGHT_MAP", "dodrio_berry_picking/tree_border_right.bin" },
|
|
{ "DBP_TREE_LEFT_MAP", "dodrio_berry_picking/tree_border_left.bin" },
|
|
{ "PJ_BG_GFX", "pokemon_jump/bg.4bpp" },
|
|
{ "PJ_BG_MAP", "pokemon_jump/bg.bin" },
|
|
{ "PJ_VENUSAUR_GFX", "pokemon_jump/venusaur.4bpp" },
|
|
{ "PJ_VENUSAUR_MAP", "pokemon_jump/venusaur.bin" },
|
|
{ "PJ_BONUSES_GFX", "pokemon_jump/bonuses.4bpp" },
|
|
{ "PJ_BONUSES_MAP", "pokemon_jump/bonuses.bin" },
|
|
{ "PJ_VINE1_GFX", "pokemon_jump/vine1.4bpp" },
|
|
{ "PJ_VINE2_GFX", "pokemon_jump/vine2.4bpp" },
|
|
{ "PJ_VINE3_GFX", "pokemon_jump/vine3.4bpp" },
|
|
{ "PJ_VINE4_GFX", "pokemon_jump/vine4.4bpp" },
|
|
{ "PJ_STAR_GFX", "pokemon_jump/star.4bpp" },
|
|
{ "SCROLL_ARROW_GFX", "interface/red_arrow_other.4bpp" },
|
|
{ "SELECTOR_OUTLINE_GFX", "interface/selector_outline.4bpp" },
|
|
{ "RED_ARROW_CURSOR_GFX", "interface/red_arrow.4bpp" },
|
|
{ "MG_COUNTDOWN_GFX", "misc/minigame_countdown.4bpp" },
|
|
{ "MG_321START_GFX", "link/321start.4bpp" },
|
|
{ "MG_DIGITS_GFX", "misc/minigame_digits.4bpp" },
|
|
{ "WONDER_STAMP_SHADOW_GFX", "wonder_card/stamp_shadow.4bpp" },
|
|
{ "MYSTERY_GIFT_BORDER_GFX", "interface/mystery_gift_textbox_border.4bpp" },
|
|
}
|
|
local PALS = {
|
|
{ "BC_CRUSHER_PAL", { "berry_crush/crusher.gbapal" } },
|
|
{ "BC_CORE_PAL", { "berry_crush/crusher_base.gbapal" } },
|
|
{ "BC_EFFECT_PAL", { "berry_crush/impact.gbapal" } },
|
|
{ "BC_TIMER_PAL", { "berry_crush/timer_digits.gbapal" } },
|
|
{ "DBP_BG_PAL", { "dodrio_berry_picking/bg.gbapal", "dodrio_berry_picking/tree_border.gbapal" } },
|
|
{ "DBP_DODRIO_PAL", { "dodrio_berry_picking/dodrio.gbapal" } },
|
|
{ "DBP_DODRIO_SHINY_PAL", { "dodrio_berry_picking/shiny.gbapal" } },
|
|
{ "DBP_STATUS_PAL", { "dodrio_berry_picking/status.gbapal" } },
|
|
{ "DBP_BERRIES_PAL", { "dodrio_berry_picking/berries.gbapal" } },
|
|
{ "DBP_CLOUD_PAL", { "dodrio_berry_picking/cloud.gbapal" } },
|
|
{ "PJ_INTERFACE_PAL", { "pokemon_jump/interface.gbapal" } },
|
|
{ "PJ_BG_PAL", { "pokemon_jump/bg.gbapal" } },
|
|
{ "PJ_VENUSAUR_PAL", { "pokemon_jump/venusaur.gbapal" } },
|
|
{ "PJ_BONUSES_PAL", { "pokemon_jump/bonuses.gbapal" } },
|
|
{ "PJ_PAL1", { "pokemon_jump/pal1.gbapal" } },
|
|
{ "PJ_PAL2", { "pokemon_jump/pal2.gbapal" } },
|
|
{ "SCROLL_ARROW_PAL", { "interface/red_arrow.gbapal" } },
|
|
{ "MG_COUNTDOWN_PAL", { "misc/minigame_countdown.gbapal" } },
|
|
{ "MG_321START_PAL", { "link/321start.gbapal" } },
|
|
{ "MG_DIGITS_PAL", { "misc/minigame_digits.gbapal" } },
|
|
{ "WONDER_STAMP_SHADOW_PALS", { "wonder_card/stamp_shadow_0.gbapal", "wonder_card/stamp_shadow_1.gbapal",
|
|
"wonder_card/stamp_shadow_2.gbapal", "wonder_card/stamp_shadow_3.gbapal", "wonder_card/stamp_shadow_4.gbapal",
|
|
"wonder_card/stamp_shadow_5.gbapal", "wonder_card/stamp_shadow_6.gbapal", "wonder_card/stamp_shadow_7.gbapal" } },
|
|
{ "MYSTERY_GIFT_BORDER_PAL", { "interface/mystery_gift_textbox_border.gbapal" } },
|
|
}
|
|
|
|
local ROMS = {
|
|
{ "pokefirered.gba", "41cb23d8dccc8ebd7c649cd8fbb58eeace6e2fdc" },
|
|
{ "pokeleafgreen.gba", "574fa542ffebb14be69902d1d36f1ec0a4afd71e" },
|
|
{ "pokefirered_rev1.gba", "dd5945db9b930750cb39d00c84da8571feebf417" },
|
|
{ "pokeleafgreen_rev1.gba", "7862c67bdecbe21d1d69ce082ce34327e1c6ed5e" },
|
|
}
|
|
|
|
local function stubCache()
|
|
local written = {}
|
|
return written, {
|
|
write = function(_, rel, bytes) written[rel] = bytes; return true end,
|
|
read = function(_, rel) return written[rel] end,
|
|
exists = function(_, rel) return written[rel] ~= nil end,
|
|
}
|
|
end
|
|
|
|
local function sizedEntries(written, dir, man, section)
|
|
local badFiles = {}
|
|
for key, row in pairs(man[section] or {}) do
|
|
if type(row) == "table" and row.file and row.width and row.height then
|
|
local blob = written[dir .. "/" .. row.file]
|
|
if not blob or #blob ~= row.width * row.height * 4 then badFiles[#badFiles + 1] = key end
|
|
end
|
|
end
|
|
return badFiles
|
|
end
|
|
|
|
local function pixelHas(blob, rgb)
|
|
for i = 1, #blob, 4 do
|
|
if blob:byte(i + 3) ~= 0 and blob:sub(i, i + 2) == rgb then return true end
|
|
end
|
|
return false
|
|
end
|
|
|
|
local function palIdRgb(pal, id)
|
|
local lo, hi = pal:byte(id * 2 + 1, id * 2 + 2)
|
|
local r, g, b = require("src.import.gba.bg_bake").bgr555ToRgb8((hi or 0) * 256 + (lo or 0))
|
|
return string.char(r, g, b)
|
|
end
|
|
|
|
local deoxys = {}
|
|
local ranAny = false
|
|
for n, case in ipairs(ROMS) do
|
|
local data = readFile(root .. "/" .. case[1])
|
|
if not data then
|
|
print("[skip] " .. case[1] .. " not built in " .. root)
|
|
else
|
|
ranAny = true
|
|
print("[test] 5." .. n .. " " .. case[1] .. " extracts the online asset set byte-exact to pret")
|
|
local rom = assert(require("src.import.gba.rom").open({
|
|
info = function() return { size = #data, md5 = case[2] } end,
|
|
read = function(_, _, off, len) return data:sub(off + 1, off + len) end,
|
|
}, GV.forSha1(case[2])))
|
|
local lzBad = {}
|
|
for _, row in ipairs(LZ) do
|
|
local want = readFile(root .. "/graphics/" .. row[2])
|
|
local got = AssetPack.bytes(AssetPack.lz(rom, Versions[row[1]]))
|
|
if not want or got ~= want then lzBad[#lzBad + 1] = row[1] end
|
|
end
|
|
check(#lzBad == 0, #LZ .. " compressed sheets and tilemaps decode to pret's files " .. table.concat(lzBad, " "))
|
|
local palBad = {}
|
|
for _, row in ipairs(PALS) do
|
|
local parts = {}
|
|
for i, file in ipairs(row[2]) do parts[i] = readFile(root .. "/graphics/" .. file) or "" end
|
|
local want = table.concat(parts)
|
|
local got = AssetPack.bytes(AssetPack.raw(rom, Versions[row[1]], #want))
|
|
if #want == 0 or got ~= want then palBad[#palBad + 1] = row[1] end
|
|
end
|
|
check(#palBad == 0, #PALS .. " palettes match pret's .gbapal files " .. table.concat(palBad, " "))
|
|
|
|
local written, cache = stubCache()
|
|
for _, name in ipairs(EXTRACTORS) do
|
|
local M = require("src.import.gba." .. name)
|
|
check(M.ready(cache, "x") == false, name .. ".ready() starts false")
|
|
local ok, err = pcall(M.run, rom, cache, { cacheRoot = "x" })
|
|
check(ok, name .. ".run() completes (" .. tostring(err) .. ")")
|
|
check(M.ready(cache, "x") == true, name .. ".ready() is true after run()")
|
|
end
|
|
for dir, keys in pairs(GAMES) do
|
|
local man = AssetPack.loadManifest(cache, "x/" .. dir .. "/manifest.lua")
|
|
check(man ~= nil and man.format_version == 1, dir .. "/manifest.lua loads")
|
|
if man then
|
|
local bad = {}
|
|
for _, key in ipairs(keys) do
|
|
local row = man[key]
|
|
local blob = row and written["x/" .. dir .. "/" .. key .. ".rgba"]
|
|
if not (row and row.kind and row.file == key .. ".rgba" and blob and #blob == row.width * row.height * 4) then
|
|
bad[#bad + 1] = key
|
|
end
|
|
end
|
|
check(#bad == 0, dir .. " carries every interfaces.md 10.3 key at its manifest size " .. table.concat(bad, " "))
|
|
local extra = sizedEntries(written, "x/" .. dir, { all = man }, "all")
|
|
check(#extra == 0, dir .. " every other manifest entry matches its blob " .. table.concat(extra, " "))
|
|
for _, row in pairs(man._palettes or {}) do
|
|
local blob = written["x/" .. dir .. "/" .. row.file]
|
|
check(blob and #blob == row.banks * 48, dir .. "/" .. row.file .. " holds " .. row.banks .. " banks")
|
|
end
|
|
end
|
|
end
|
|
for _, name in ipairs({ "text_chrome_extract", "mystery_gift_extract" }) do
|
|
local ok, err = pcall(require("src.import.gba." .. name).run, rom, cache, { cacheRoot = "x" })
|
|
check(ok, name .. ".run() completes with the new art (" .. tostring(err) .. ")")
|
|
end
|
|
do
|
|
-- src/text.c:1380
|
|
local fg = written["x/chrome/fonts/latin_small_fg.rgba"] or ""
|
|
local sh = written["x/chrome/fonts/latin_small_shadow.rgba"] or ""
|
|
check(#fg == 256 * 512 * 4 and #sh == 256 * 512 * 4, "latin_small sheets hold all 512 FONT_SMALL glyphs")
|
|
local wchunk = loadstring(written["x/chrome/fonts/latin_small_widths.lua"] or "")
|
|
local widths = wchunk and wchunk() or {}
|
|
local count = 0
|
|
for _ in pairs(widths) do count = count + 1 end
|
|
check(count == 512 and widths[511] ~= nil, "latin_small_widths has 512 entries")
|
|
local gid, lit = 0x1DD, false
|
|
local ox, oy = (gid % 16) * 16, math.floor(gid / 16) * 16
|
|
for y = oy, oy + 15 do
|
|
for x = ox, ox + 15 do
|
|
if fg:byte((y * 256 + x) * 4 + 4) == 255 then lit = true end
|
|
end
|
|
end
|
|
check(lit, "latin_small glyph 0x1DD is drawn")
|
|
local ls = ((AssetPack.loadManifest(cache, "x/chrome/manifest.lua") or {}).fonts or {}).latin_small or {}
|
|
check(ls.width == 256 and ls.height == 512 and ls.glyphs == 512, "chrome manifest lists latin_small at 512 glyphs")
|
|
end
|
|
do
|
|
local pwritten, pcache = stubCache()
|
|
local ok, err = pcall(require("src.import.gba.pokemon_extract").run, rom, pcache,
|
|
{ cacheRoot = "x", numSpecies = 411 })
|
|
check(ok, "pokemon_extract.run() completes (" .. tostring(err) .. ")")
|
|
local mchunk = loadstring(pwritten["x/pokemon/meta.lua"] or "")
|
|
local meta = mchunk and mchunk() or {}
|
|
local ls = (meta[410] or {}).linkStats or {}
|
|
-- src/data/pokemon/species_info.h:11199
|
|
check(table.concat(ls, ",") == "50,150,50,150,150,50", "Deoxys meta carries the link battle linkStats")
|
|
local schunk = loadstring(pwritten["x/pokemon/stats.lua"] or "")
|
|
local s = (schunk and schunk() or {})[410] or {}
|
|
deoxys[case[1]] = table.concat({ s.hp or 0, s.atk or 0, s.def or 0, s.spe or 0, s.spa or 0, s.spd or 0 }, ",")
|
|
|
|
ok, err = pcall(require("src.import.gba.party_chrome_extract").run, rom, pcache, { cacheRoot = "x" })
|
|
check(ok, "party_chrome_extract.run() completes (" .. tostring(err) .. ")")
|
|
local pal = readFile(root .. "/graphics/party_menu/bg.gbapal") or ""
|
|
local p = "x/pokemon/party/"
|
|
-- src/party_menu.c:2273
|
|
for _, row in ipairs({
|
|
{ "slot_main_multi", "slot_main", 80 * 56, { 68, 69, 70 }, { 52, 53, 54 } },
|
|
{ "slot_main_multi_selected", "slot_main_selected", 80 * 56, { 132, 133, 134 }, { 116, 117, 118 } },
|
|
{ "slot_wide_multi", "slot_wide", 144 * 24, { 68, 69, 70 }, { 52, 53, 54 } },
|
|
{ "slot_wide_multi_selected", "slot_wide_selected", 144 * 24, { 132, 133, 134 }, { 116, 117, 118 } },
|
|
}) do
|
|
local blob, plain = pwritten[p .. row[1] .. ".rgba"], pwritten[p .. row[2] .. ".rgba"]
|
|
local tinted, used = blob ~= nil and plain ~= nil and #pal == 352, 0
|
|
for i, id in ipairs(row[4]) do
|
|
if tinted and pixelHas(plain, palIdRgb(pal, row[5][i])) then
|
|
used = used + 1
|
|
if not pixelHas(blob, palIdRgb(pal, id)) then tinted = false end
|
|
end
|
|
end
|
|
check(blob and plain and #blob == row[3] * 4 and #plain == #blob and blob ~= plain and tinted and used >= 2,
|
|
row[1] .. " is " .. row[2] .. " in the multi partner palette")
|
|
end
|
|
end
|
|
for _, rel in ipairs({ "x/chrome/manifest.lua", "x/link/manifest.lua", "x/mystery_gift/manifest.lua" }) do
|
|
local man = AssetPack.loadManifest(cache, rel)
|
|
local d = rel:match("^(.*)/")
|
|
local sizes = {}
|
|
for key, row in pairs(man or {}) do
|
|
if type(row) == "table" and row.file then
|
|
local blob = written[d .. "/" .. row.file]
|
|
if not blob or #blob ~= row.width * row.height * 4 then sizes[#sizes + 1] = key end
|
|
end
|
|
end
|
|
check(man ~= nil and #sizes == 0, rel .. " entries match their blobs " .. table.concat(sizes, " "))
|
|
end
|
|
local chrome = AssetPack.loadManifest(cache, "x/chrome/manifest.lua") or {}
|
|
local sa = chrome.scroll_arrows or {}
|
|
check(sa.frames == 4 and sa.frame_w == 16 and sa.frame_h == 16 and sa.width == 16 and sa.height == 64
|
|
and chrome.fonts ~= nil, "chrome manifest keeps its fonts and gains scroll_arrows")
|
|
local gift = AssetPack.loadManifest(cache, "x/mystery_gift/manifest.lua") or {}
|
|
check(gift.stamps and gift.stamps.variants == 8 and gift.stamps.width == 32 and gift.stamp_shadow_7
|
|
and #(gift.entries or {}) == 16, "mystery gift manifest keeps its entries and gains stamps")
|
|
local link = AssetPack.loadManifest(cache, "x/link/manifest.lua") or {}
|
|
check(link.countdown_321 and link.countdown_321.frames == 6 and link.minigame_countdown_numbers,
|
|
"link manifest carries countdown_321 and the live minigame countdown")
|
|
|
|
local function tbl(rel)
|
|
local man = AssetPack.loadManifest(cache, rel)
|
|
return man or {}
|
|
end
|
|
local bc = tbl("x/berry_crush/tables.lua")
|
|
-- src/berry.c:871
|
|
check(bc.berry_data and #bc.berry_data == 43 and bc.berry_data[1].difficulty == 50
|
|
and bc.berry_data[1].powder == 20 and bc.berry_data[43].powder == 200
|
|
and bc.berry_data[42].powder == 750, "berry crush berry data is gBerryCrush_BerryData")
|
|
-- src/berry_crush.c:428
|
|
check(bc.sync_press_bonus and bc.sync_press_bonus[5] == 5 and bc.player_coords[2].impactXOffset == -28
|
|
and bc.player_coords[4].windowGfxX == 20 and bc.pressing_speed_table[1] == 50000000,
|
|
"berry crush press bonus, seat coords and speed table")
|
|
check(bc.bg_templates and bc.bg_templates[2].screenSize == 2 and bc.bg_templates[2].mapBaseIndex == 13
|
|
and bc.win_player_names[4].left == 21 and bc.win_player_names[1].baseBlock == 0x3ED,
|
|
"berry crush bg and window templates")
|
|
local dbp = tbl("x/dodrio_berry_picking/tables.lua")
|
|
-- src/dodrio_berry_picking.c:644
|
|
check(dbp.difficulty_thresholds and dbp.difficulty_thresholds[7] == 100 and dbp.tree_border_x[5] == 15
|
|
and dbp.berry_fall_delays[1][1] == 40 and dbp.berry_score_multipliers[2] == 30
|
|
and dbp.name_window_coords[5][4].left == 1 and dbp.active_column_map[5][1] ~= nil,
|
|
"dodrio thresholds, fall delays, score multipliers and name windows")
|
|
local pj = tbl("x/pokemon_jump/tables.lua")
|
|
-- src/pokemon_jump.c:768
|
|
check(pj.jump_mons and #pj.jump_mons == 100 and pj.jump_mons[1].species == 1 and pj.jump_mons[1].jumpType == 2
|
|
and pj.vine_base_speeds[8] == 61 and pj.prize_quantity[5].score == 20000 and pj.vine_x[8] == 224
|
|
and pj.mon_x_coords[5][5] == 184 and pj.player_name_window_coords[2][2][1] == 16
|
|
and pj.score_bonuses[6] == 500 and pj.jump_offsets[1][1] == -3,
|
|
"pokemon jump species, vine speeds, prizes and coords")
|
|
local av = tbl("x/union_room/avatars.lua")
|
|
-- src/union_room_player_avatar.c:33
|
|
local gids = {}
|
|
for _, g in ipairs((av.gfx_ids or {}).male or {}) do gids[#gids + 1] = g end
|
|
for _, g in ipairs((av.gfx_ids or {}).female or {}) do gids[#gids + 1] = g end
|
|
local inRange = #gids == 16
|
|
for _, g in ipairs(gids) do if g >= Versions.NUM_OBJ_EVENT_GFX then inRange = false end end
|
|
check(inRange and av.gfx_ids.male[1] == 41 and av.gfx_ids.female[8] == 29 and av.leader_coords[2][1] == 13,
|
|
"union room avatars are 16 OW gids the ow/ extractor covers")
|
|
end
|
|
end
|
|
if not ranAny then
|
|
print("[skip] no pret build at " .. root .. "; ROM checks skipped")
|
|
end
|
|
if deoxys["pokefirered.gba"] and deoxys["pokeleafgreen.gba"] then
|
|
check(deoxys["pokefirered.gba"] ~= deoxys["pokeleafgreen.gba"],
|
|
"Deoxys base stats differ between FireRed and LeafGreen while linkStats match")
|
|
end
|
|
|
|
finish()
|