mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
81 lines
2.7 KiB
Lua
81 lines
2.7 KiB
Lua
-- ../pokegold/home/map.asm:1960
|
|
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
|
|
local GameVersion = require("src.core.GameVersion")
|
|
local Permissions = require("src.world.gen2.Permissions")
|
|
|
|
local FLOOR = 0x00
|
|
local WALL = 0x07
|
|
local STAIRCASE = 0x7a
|
|
local RIGHT_WALL = 0xb0
|
|
local LEFT_WALL = 0xb1
|
|
local UP_WALL = 0xb2
|
|
|
|
local function collOf(cells)
|
|
return function(x, y) return cells[x .. "," .. y] or FLOOR end
|
|
end
|
|
|
|
-- ../pokecrystal/data/tilesets/mansion_collision.asm:36
|
|
local roof = collOf({
|
|
["0,0"] = WALL, ["1,0"] = WALL, ["2,0"] = WALL, ["3,0"] = WALL,
|
|
["0,1"] = WALL, ["1,1"] = STAIRCASE, ["2,1"] = LEFT_WALL,
|
|
["4,2"] = RIGHT_WALL, ["5,2"] = LEFT_WALL,
|
|
})
|
|
|
|
local lip = collOf({ ["0,1"] = UP_WALL })
|
|
|
|
local saved = GameVersion.current
|
|
|
|
GameVersion.set("gold")
|
|
do
|
|
check(not Permissions.stepPermitted(roof, 1, 1, "down"),
|
|
"gold: the LEFT_WALL right of the stairs forbids the DOWN step")
|
|
check(Permissions.stepPermitted(roof, 1, 1, "right"),
|
|
"gold: and never forbids the RIGHT step")
|
|
check(not Permissions.stepPermitted(lip, 0, 0, "down"),
|
|
"gold: an UP_WALL below still forbids DOWN")
|
|
check(Permissions.neighborBlocksDown("right", LEFT_WALL),
|
|
"gold: every matched arm answers down")
|
|
end
|
|
|
|
GameVersion.set("crystal")
|
|
do
|
|
check(Permissions.stepPermitted(roof, 1, 1, "down"),
|
|
"crystal: the stairs step off onto the roof")
|
|
check(not Permissions.stepPermitted(roof, 1, 1, "right"),
|
|
"crystal: the railing right of the stairs forbids RIGHT")
|
|
check(Permissions.stepPermitted(roof, 1, 1, "left"),
|
|
"crystal: and leaves the other arms alone")
|
|
check(not Permissions.stepPermitted(lip, 0, 0, "down"),
|
|
"crystal: an UP_WALL below still forbids DOWN")
|
|
check(not Permissions.neighborBlocksDown("right", LEFT_WALL),
|
|
"crystal: the right arm answers right, not down")
|
|
check(Permissions.neighborBlocksDown("down", UP_WALL),
|
|
"crystal: the down arm still answers down")
|
|
eq(Permissions.neighborBlocks("left", RIGHT_WALL), "left",
|
|
"crystal: a RIGHT_WALL to the left forbids LEFT")
|
|
eq(Permissions.neighborBlocks("up", FLOOR), nil,
|
|
"a plain floor neighbour forbids nothing")
|
|
end
|
|
|
|
do
|
|
GameVersion.set("gold")
|
|
check(not Permissions.stepPermitted(roof, 4, 2, "down"),
|
|
"gold: the LEFT_WALL beside the railing column forbids DOWN")
|
|
check(not Permissions.stepPermitted(roof, 4, 2, "right"),
|
|
"gold: standing on a RIGHT_WALL forbids RIGHT")
|
|
GameVersion.set("crystal")
|
|
check(Permissions.stepPermitted(roof, 4, 2, "down"),
|
|
"crystal: the railing column walks down")
|
|
check(not Permissions.stepPermitted(roof, 4, 2, "right"),
|
|
"crystal: standing on a RIGHT_WALL still forbids RIGHT")
|
|
end
|
|
|
|
GameVersion.set(saved)
|
|
|
|
T.finish("gen2 crystal side wall arms bug1964")
|