Files
gen1recomp/tests/engine/gen2_shadow_ball_bgp_bug1269.lua
T
2026-08-16 10:04:54 -04:00

90 lines
3.2 KiB
Lua

-- engine/battle_anims/anim_commands.asm:603 BattleAnimCmd_BGP
package.path = "./?.lua;./?/init.lua;" .. package.path
love = require("tests.love_stub")
local T = require("tests.harness")
local AnimRunner = require("src.battle.gen2.AnimRunner")
local BgEffects = require("src.battle.gen2.BgEffects")
local GbcPalette = require("src.render.GbcPalette")
-- data/moves/animations.asm:4509 BattleAnim_ShadowBall
local SHADOW_BALL = {
{ "2gfx", "BATTLE_ANIM_GFX_EGG", "BATTLE_ANIM_GFX_SMOKE" },
{ "bgp", 0x1b },
{ "sound", 6 * 4 + 2, 0 },
{ "obj", "BATTLE_ANIM_OBJ_SHADOW_BALL", 64, 92, 0x2 },
{ "wait", 32 },
}
do
local runner = AnimRunner.new({
data = { scripts = { SHADOW_BALL = SHADOW_BALL } },
})
runner:start("SHADOW_BALL")
T.eq(runner.bg.bgp, BgEffects.NORMAL_PAL, "identity ramp before the script")
T.check(runner:step(), "the script is still running after frame one")
T.eq(runner.bg.bgp, 0x1b,
"anim_bgp $1b lands in wBGP: the inverted ramp the view must apply")
runner.bg:reset()
T.eq(runner.bg.bgp, BgEffects.NORMAL_PAL,
"BattleAnim_RevertPals puts the identity back")
end
do
T.eq(GbcPalette.BGP_IDENTITY, 0xe4, "dc 3, 2, 1, 0")
local colors = { "c0", "c1", "c2", "c3" }
local out = GbcPalette.remap(colors, 0x1b)
T.eq(out[1], "c3", "$1b is dc 0, 1, 2, 3: colour 0 shows shade 3")
T.eq(out[2], "c2", "colour 1 shows shade 2")
T.eq(out[3], "c1", "colour 2 shows shade 1")
T.eq(out[4], "c0", "colour 3 shows shade 0")
T.check(GbcPalette.remap(colors, 0xe4) == colors,
"the identity byte returns the palette untouched")
end
-- engine/battle_anims/anim_commands.asm:1293 BattleAnim_SetBGPals
do
local BattleAnimView = require("src.ui.gen2.BattleAnimView")
local palettes = {
pokemon = {
[6] = { normal = { { 200, 100, 50 }, { 80, 40, 20 } } },
[25] = { normal = { { 230, 200, 40 }, { 150, 90, 20 } } },
},
hpBar = {
green = { { 100, 220, 100 }, { 30, 160, 30 } },
yellow = { { 230, 220, 90 }, { 180, 150, 20 } },
red = { { 230, 100, 90 }, { 180, 30, 20 } },
},
expBar = { { 120, 140, 230 }, { 40, 60, 160 } },
}
local view = BattleAnimView.new({}, palettes)
local battle = { player = { species = 6 }, enemy = { species = 25 } }
local list = view:panelPalettes(battle)
T.eq(#list, 7, "shades + two mons + three hp bars + exp bar")
local src, dst, count, ambiguous = GbcPalette.remapTable(list, 0x1b)
T.check(count > 0 and count <= GbcPalette.REMAP_MAX,
"the table fits the shader array")
T.eq(ambiguous, 0, "no colour maps two ways")
local function mapped(from)
for i = 1, count do
if src[i][1] == from[1] and src[i][2] == from[2]
and src[i][3] == from[3] then
return dst[i]
end
end
end
local black = mapped({ 255, 255, 255 })
T.check(black and black[1] == 0 and black[2] == 0 and black[3] == 0,
"white inverts to black")
local white = mapped({ 0, 0, 0 })
T.check(white and white[1] == 255 and white[2] == 255 and white[3] == 255,
"black inverts to white")
local mid = mapped({ 200, 100, 50 })
T.check(mid and mid[1] == 80 and mid[2] == 40 and mid[3] == 20,
"the mon's colour 1 shows its colour 2")
end
T.finish("gen2 shadow ball bgp bug 1269")