mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-12 00:10:56 +02:00
johnjohto
103 lines
4.4 KiB
Lua
103 lines
4.4 KiB
Lua
-- Parity test: the FLY town map opens on PALLET_TOWN and Up walks the
|
|
-- towns forward, Down backward (#795).
|
|
--
|
|
-- pokered's LoadTownMap_Fly (engine/items/town_map.asm) enters its loop
|
|
-- with hl on wFlyLocationsList[0] -- the cursor ALWAYS starts on the first
|
|
-- fly destination, PALLET_TOWN, never the town the player is standing in.
|
|
-- .pressedUp does `inc hl` (next town, skipping NOT_VISITED entries,
|
|
-- wrapping at the $ff terminator back to the start) and .pressedDown does
|
|
-- `dec hl` (previous town, wrapping off the top to the last visited town).
|
|
-- The port started the cursor on the player's current town and had Up and
|
|
-- Down swapped, so the menu felt like it cycled in a random order.
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
if not _G.love then _G.love = require("tests.love_stub") end
|
|
local Data = require("src.core.Data")
|
|
if not (Data.maps and Data.maps.PALLET_TOWN) then Data:load() end
|
|
|
|
local S = require("tests.harness").suite("parity fly cursor order")
|
|
local check, eq = S.check, S.eq
|
|
|
|
local TownMap = require("src.ui.TownMap")
|
|
|
|
local function makeGame(visited, currentMap)
|
|
local pressed = {}
|
|
local game = {
|
|
data = Data,
|
|
save = { visited = visited },
|
|
overworld = currentMap and { map = { id = currentMap } } or nil,
|
|
input = { wasPressed = function(_, name)
|
|
local p = pressed[name]
|
|
pressed[name] = nil
|
|
return p
|
|
end },
|
|
stack = { pop = function() end },
|
|
}
|
|
return game, function(name) pressed[name] = true end
|
|
end
|
|
|
|
local function selection(tm)
|
|
return tm.flyMapIds[tm.sel]
|
|
end
|
|
|
|
local ALL = {
|
|
PALLET_TOWN = true, VIRIDIAN_CITY = true, PEWTER_CITY = true,
|
|
CERULEAN_CITY = true, LAVENDER_TOWN = true, VERMILION_CITY = true,
|
|
CELADON_CITY = true, FUCHSIA_CITY = true, CINNABAR_ISLAND = true,
|
|
INDIGO_PLATEAU = true, SAFFRON_CITY = true,
|
|
}
|
|
|
|
-- ------------------------------------------------------------------
|
|
-- 1) the cursor opens on PALLET_TOWN, not the player's town
|
|
-- ------------------------------------------------------------------
|
|
local game, tap = makeGame(ALL, "CELADON_CITY")
|
|
local tm = TownMap.new(game, { fly = true })
|
|
check(tm.fly == true, "the town map opens in fly mode")
|
|
eq(selection(tm), "PALLET_TOWN",
|
|
"the fly cursor opens on PALLET_TOWN while the player stands in Celadon")
|
|
|
|
-- ------------------------------------------------------------------
|
|
-- 2) Up walks the towns forward, Down backward, both wrapping
|
|
-- ------------------------------------------------------------------
|
|
tap("up") tm:update(0)
|
|
eq(selection(tm), "VIRIDIAN_CITY", "Up from PALLET_TOWN selects VIRIDIAN_CITY")
|
|
tap("up") tm:update(0)
|
|
eq(selection(tm), "PEWTER_CITY", "Up again selects PEWTER_CITY")
|
|
tap("down") tm:update(0)
|
|
eq(selection(tm), "VIRIDIAN_CITY", "Down steps back to VIRIDIAN_CITY")
|
|
tap("down") tm:update(0)
|
|
eq(selection(tm), "PALLET_TOWN", "Down again returns to PALLET_TOWN")
|
|
tap("down") tm:update(0)
|
|
eq(selection(tm), "SAFFRON_CITY",
|
|
"Down off the top wraps to the last visited town (SAFFRON_CITY)")
|
|
tap("up") tm:update(0)
|
|
eq(selection(tm), "PALLET_TOWN", "Up off the bottom wraps back to PALLET_TOWN")
|
|
|
|
-- ------------------------------------------------------------------
|
|
-- 3) unvisited towns are skipped, in list order
|
|
-- ------------------------------------------------------------------
|
|
local PARTIAL = { PALLET_TOWN = true, VIRIDIAN_CITY = true, CELADON_CITY = true }
|
|
local game2, tap2 = makeGame(PARTIAL, "VIRIDIAN_CITY")
|
|
local tm2 = TownMap.new(game2, { fly = true })
|
|
eq(selection(tm2), "PALLET_TOWN",
|
|
"the fly cursor opens on PALLET_TOWN on a partial save too")
|
|
tap2("up") tm2:update(0)
|
|
eq(selection(tm2), "VIRIDIAN_CITY", "Up selects VIRIDIAN_CITY")
|
|
tap2("up") tm2:update(0)
|
|
eq(selection(tm2), "CELADON_CITY", "Up skips every unvisited town to CELADON")
|
|
tap2("up") tm2:update(0)
|
|
eq(selection(tm2), "PALLET_TOWN", "Up off the end wraps to PALLET_TOWN")
|
|
tap2("down") tm2:update(0)
|
|
eq(selection(tm2), "CELADON_CITY",
|
|
"Down off the top wraps to CELADON, the last visited town")
|
|
|
|
-- ------------------------------------------------------------------
|
|
-- 4) the plain town map viewer still opens on the player's town
|
|
-- ------------------------------------------------------------------
|
|
local game3 = makeGame(ALL, "CERULEAN_CITY")
|
|
local viewer = TownMap.new(game3)
|
|
check(not viewer.fly, "the plain viewer is not in fly mode")
|
|
check(viewer.locs[viewer.sel] == viewer.playerLoc,
|
|
"the plain viewer still opens on the player's current location")
|
|
|
|
S.finish()
|