-- Parity test,  Workstream H.
-- Covers: Seafoam B2F boulder cascade. field.py now parses
-- scripts/SeafoamIslands1F.asm / SeafoamIslandsB1F.asm the same way it
-- already parsed B2F/B3F/B4F, wiring SEAFOAM_ISLANDS_1F.holes ->
-- SEAFOAM_ISLANDS_B1F and SEAFOAM_ISLANDS_B1F.holes -> SEAFOAM_ISLANDS_B2F.
-- data/scripts/seafoam.lua's onEnter hack that force-showed the B2F
-- boulders is gone; the generic OverworldState:boulderIntoHole (driven by
-- this data) now reveals every floor's plug boulders only once the
-- boulder above them actually falls through its hole.
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 H")
local check, eq = S.check, S.eq

-- === (1) static extraction assertions ===
local sf = Data.field.seafoam
check(sf.SEAFOAM_ISLANDS_1F ~= nil, "field.seafoam has a SEAFOAM_ISLANDS_1F entry")
check(sf.SEAFOAM_ISLANDS_B1F ~= nil, "field.seafoam has a SEAFOAM_ISLANDS_B1F entry")
if sf.SEAFOAM_ISLANDS_1F then
  eq(#sf.SEAFOAM_ISLANDS_1F.holes, 2, "SEAFOAM_ISLANDS_1F has 2 holes")
  eq(sf.SEAFOAM_ISLANDS_1F.holeDestination, "SEAFOAM_ISLANDS_B1F",
     "SEAFOAM_ISLANDS_1F holes drop to B1F")
  local h1 = sf.SEAFOAM_ISLANDS_1F.holes[1]
  eq(h1.boulderEvent, "EVENT_SEAFOAM1_BOULDER1_DOWN_HOLE", "1F hole 1 boulder event")
  eq(h1.hideObject, "TOGGLE_SEAFOAM_ISLANDS_1F_BOULDER_1", "1F hole 1 hides 1F boulder 1")
  eq(h1.showObject, "TOGGLE_SEAFOAM_ISLANDS_B1F_BOULDER_1", "1F hole 1 shows B1F boulder 1")
end
if sf.SEAFOAM_ISLANDS_B1F then
  eq(#sf.SEAFOAM_ISLANDS_B1F.holes, 2, "SEAFOAM_ISLANDS_B1F has 2 holes")
  eq(sf.SEAFOAM_ISLANDS_B1F.holeDestination, "SEAFOAM_ISLANDS_B2F",
     "SEAFOAM_ISLANDS_B1F holes drop to B2F")
  local h1 = sf.SEAFOAM_ISLANDS_B1F.holes[1]
  eq(h1.boulderEvent, "EVENT_SEAFOAM2_BOULDER1_DOWN_HOLE", "B1F hole 1 boulder event")
  eq(h1.hideObject, "TOGGLE_SEAFOAM_ISLANDS_B1F_BOULDER_1", "B1F hole 1 hides B1F boulder 1")
  eq(h1.showObject, "TOGGLE_SEAFOAM_ISLANDS_B2F_BOULDER_1", "B1F hole 1 shows B2F boulder 1")
end
-- the pre-existing B3F edge (already ported) must be untouched
check(sf.SEAFOAM_ISLANDS_B3F and #sf.SEAFOAM_ISLANDS_B3F.holes == 2,
      "SEAFOAM_ISLANDS_B3F still has its own 2 holes (B3F->B4F, unrelated to this change)")

-- data/scripts/seafoam.lua no longer force-shows the B2F boulders on entry.
-- The map DOES own an onStep now (the player's hole falls, #599), so the
-- assertion is about onEnter specifically, not about the map table.
local seafoamScripts = require("data.scripts.seafoam")
check(seafoamScripts.SEAFOAM_ISLANDS_B2F == nil
        or seafoamScripts.SEAFOAM_ISLANDS_B2F.onEnter == nil,
      "data/scripts/seafoam.lua no longer hardcodes a SEAFOAM_ISLANDS_B2F onEnter hook")

-- === (2) functional 1F -> B1F -> B2F -> B3F -> B4F cascade ===
require("src.render.Font").load(Data)
local Game = require("src.core.Game")
local Input = require("src.core.Input")
local StateStack = require("src.core.StateStack")
local Renderer = require("src.render.Renderer")
local SaveData = require("src.core.SaveData")
local OW = require("src.world.OverworldController")

Game.data = Data
Game.input = Input; Input:init()
Game.renderer = Renderer; Renderer:init()
Game.stack = StateStack
StateStack:init()
Game.save = SaveData.newGame()
Game.save.flags = {}
Game.save.objectToggles = nil

local function objOf(mapId, name)
  for _, o in ipairs(Data.maps[mapId].objects) do
    if o.name == name then return o end
  end
end

while Game.stack:top() do Game.stack:pop() end
Game.stack:push(OW, "SEAFOAM_ISLANDS_1F", 1, 1, "down")
local ow = Game.stack:top()
check(ow ~= nil and ow.map ~= nil and ow.map.id == "SEAFOAM_ISLANDS_1F",
      "pushed OverworldController headlessly onto SEAFOAM_ISLANDS_1F")

-- baseline: 1F boulders start visible (toggle ON), B1F/B2F ones start
-- hidden (data/maps/toggleable_objects.asm:398-409) since nothing has
-- fallen through a hole yet
check(OW.objectVisible(Game.save, "SEAFOAM_ISLANDS_1F",
                       objOf("SEAFOAM_ISLANDS_1F", "SEAFOAMISLANDS1F_BOULDER1")),
      "1F boulder 1 starts visible")
check(OW.objectVisible(Game.save, "SEAFOAM_ISLANDS_1F",
                       objOf("SEAFOAM_ISLANDS_1F", "SEAFOAMISLANDS1F_BOULDER2")),
      "1F boulder 2 starts visible")
for _, name in ipairs({ "SEAFOAMISLANDSB1F_BOULDER1", "SEAFOAMISLANDSB1F_BOULDER2" }) do
  check(not OW.objectVisible(Game.save, "SEAFOAM_ISLANDS_B1F", objOf("SEAFOAM_ISLANDS_B1F", name)),
        "B1F " .. name .. " starts hidden")
end
for _, name in ipairs({ "SEAFOAMISLANDSB2F_BOULDER1", "SEAFOAMISLANDSB2F_BOULDER2" }) do
  check(not OW.objectVisible(Game.save, "SEAFOAM_ISLANDS_B2F", objOf("SEAFOAM_ISLANDS_B2F", name)),
        "B2F " .. name .. " starts hidden")
end

-- Fall order, top to bottom. Each entry pushes a synthesized boulder npc
-- onto a hole cell and checks the hide/show/event side effects.  The
-- destMap/name pairs and hole coords come from the oracle refs (see the
-- workstream H spec): SeafoamIslands1F.asm/SeafoamIslandsB1F.asm (the new
-- wiring) and the pre-existing SeafoamIslandsB2F.asm/B3F.asm (already
-- ported, kept here as a regression check of the full chain).
--
-- Note: the B2F -> B3F leg's *destination* visibility (steps 5-6 below)
-- was a pre-existing gap (issue #212): the plug rocks that stop the B3F
-- strong current land at (18,6)/(19,6) -- the hidden SEAFOAMISLANDSB3F_
-- BOULDER5/6 -- but field.pluggedByHolesOn wired those holes' showObject to
-- TOGGLE_SEAFOAM_ISLANDS_B3F_BOULDER_3/4, which toggleToObjectName() resolves
-- to the already-visible BOULDER3/4 at (8,14)/(9,14), so the landing rocks
-- never appeared.  Fixed by repointing the showObject toggles to BOULDER_5/_6
-- (tools/rom_manifest*.json + the data/generated/field.lua cache), so the
-- destination reveal now works and is asserted here (checkDst = true).
local pushes = {
  { curMap = "SEAFOAM_ISLANDS_1F", hx = 17, hy = 6,
    event = "EVENT_SEAFOAM1_BOULDER1_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_1F", srcName = "SEAFOAMISLANDS1F_BOULDER1",
    dstMap = "SEAFOAM_ISLANDS_B1F", dstName = "SEAFOAMISLANDSB1F_BOULDER1",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_1F", hx = 24, hy = 6,
    event = "EVENT_SEAFOAM1_BOULDER2_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_1F", srcName = "SEAFOAMISLANDS1F_BOULDER2",
    dstMap = "SEAFOAM_ISLANDS_B1F", dstName = "SEAFOAMISLANDSB1F_BOULDER2",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_B1F", hx = 18, hy = 6,
    event = "EVENT_SEAFOAM2_BOULDER1_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_B1F", srcName = "SEAFOAMISLANDSB1F_BOULDER1",
    dstMap = "SEAFOAM_ISLANDS_B2F", dstName = "SEAFOAMISLANDSB2F_BOULDER1",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_B1F", hx = 23, hy = 6,
    event = "EVENT_SEAFOAM2_BOULDER2_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_B1F", srcName = "SEAFOAMISLANDSB1F_BOULDER2",
    dstMap = "SEAFOAM_ISLANDS_B2F", dstName = "SEAFOAMISLANDSB2F_BOULDER2",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_B2F", hx = 19, hy = 6,
    event = "EVENT_SEAFOAM3_BOULDER1_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_B2F", srcName = "SEAFOAMISLANDSB2F_BOULDER1",
    dstMap = "SEAFOAM_ISLANDS_B3F", dstName = "SEAFOAMISLANDSB3F_BOULDER5",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_B2F", hx = 22, hy = 6,
    event = "EVENT_SEAFOAM3_BOULDER2_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_B2F", srcName = "SEAFOAMISLANDSB2F_BOULDER2",
    dstMap = "SEAFOAM_ISLANDS_B3F", dstName = "SEAFOAMISLANDSB3F_BOULDER6",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_B3F", hx = 3, hy = 16,
    event = "EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_B3F", srcName = "SEAFOAMISLANDSB3F_BOULDER1",
    dstMap = "SEAFOAM_ISLANDS_B4F", dstName = "SEAFOAMISLANDSB4F_BOULDER1",
    checkDst = true },
  { curMap = "SEAFOAM_ISLANDS_B3F", hx = 6, hy = 16,
    event = "EVENT_SEAFOAM4_BOULDER2_DOWN_HOLE",
    srcMap = "SEAFOAM_ISLANDS_B3F", srcName = "SEAFOAMISLANDSB3F_BOULDER2",
    dstMap = "SEAFOAM_ISLANDS_B4F", dstName = "SEAFOAMISLANDSB4F_BOULDER2",
    checkDst = true },
}

for i, p in ipairs(pushes) do
  if ow.map.id ~= p.curMap then
    ow:setMap(p.curMap, 1, 1, "down")
  end
  local npc = { cellX = p.hx, cellY = p.hy, def = { name = p.srcName } }
  table.insert(ow.npcs, npc)
  table.insert(ow.entities, npc)
  local ok = ow:boulderIntoHole(npc)
  check(ok, ("push %d: boulderIntoHole(%s) returns true"):format(i, p.srcName))
  check(Game.save.flags[p.event] == true,
        ("push %d: %s is set"):format(i, p.event))
  check(not OW.objectVisible(Game.save, p.srcMap, objOf(p.srcMap, p.srcName)),
        ("push %d: source %s is now hidden"):format(i, p.srcName))
  if p.checkDst then
    check(OW.objectVisible(Game.save, p.dstMap, objOf(p.dstMap, p.dstName)),
          ("push %d: destination %s is now visible"):format(i, p.dstName))
  end
end

-- === end state: the known plug/current end state, now reached via the
-- full 1F -> B4F chain instead of starting mid-way at B2F ===
check(Game.save.flags.EVENT_SEAFOAM3_BOULDER1_DOWN_HOLE == true
      and Game.save.flags.EVENT_SEAFOAM3_BOULDER2_DOWN_HOLE == true,
      "both EVENT_SEAFOAM3_BOULDER{1,2}_DOWN_HOLE are set")
check(Game.save.flags.EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE == true
      and Game.save.flags.EVENT_SEAFOAM4_BOULDER2_DOWN_HOLE == true,
      "both EVENT_SEAFOAM4_BOULDER{1,2}_DOWN_HOLE are set")
check(OW.objectVisible(Game.save, "SEAFOAM_ISLANDS_B4F",
                       objOf("SEAFOAM_ISLANDS_B4F", "SEAFOAMISLANDSB4F_BOULDER1")),
      "SEAFOAMISLANDSB4F_BOULDER1 is visible at the end state")
check(OW.objectVisible(Game.save, "SEAFOAM_ISLANDS_B4F",
                       objOf("SEAFOAM_ISLANDS_B4F", "SEAFOAMISLANDSB4F_BOULDER2")),
      "SEAFOAMISLANDSB4F_BOULDER2 is visible at the end state")

-- === issue #129: B3F current auto-warps via BIT_FORCED_WARP ===
-- South-edge stairs at (20,17) are water warps (not door/warp tiles), so
-- CheckWarpsNoCollision needs BIT_FORCED_WARP (or a held d-pad).  B3F
-- currents set that bit; after the RLE lands, the warp must fire without
-- further player input.
do
  local FieldDefaults = require("src.world.FieldDefaults")
  check(FieldDefaults.fieldValue(Data, "seafoam", "SEAFOAM_ISLANDS_B3F",
                                 "setsForcedWarp") == true,
        "B3F seafoam setsForcedWarp (BIT_FORCED_WARP) is configured")

  while Game.stack:top() do Game.stack:pop() end
  Game.save = SaveData.newGame()
  Game.save.flags = {}
  -- Landing on the B3F force-surf mouth mounts SURF and arms the current
  -- (EnterMap CheckForceBikeOrSurf + Seafoam MOVE_OBJECT), including
  -- BIT_FORCED_WARP for the south-edge stairs.
  Game.stack:push(OW, "SEAFOAM_ISLANDS_B3F", 18, 7, "down")
  local cur = Game.stack:top()
  check(cur.player.surfing == true,
        "B3F force-surf mouth mounts SURF on map entry")
  check(cur.forcedWarp == true,
        "B3F current arms forcedWarp (BIT_FORCED_WARP)")
  check(#cur.scriptMoves > 0 or cur.player.moving,
        "unplugged B3F current at (18,7) starts forced surfing RLE")

  -- Fast-forward the scripted current onto the south-edge warp.
  local guard = 0
  while guard < 2000 do
    guard = guard + 1
    StateStack:update(1 / 60)
    if cur.map and cur.map.id ~= "SEAFOAM_ISLANDS_B3F" then break end
    if cur.transitioning then break end
  end
  -- Drain the warp Transition onto B4F (and any immediate forcedExit shove).
  guard = 0
  while guard < 400 do
    guard = guard + 1
    StateStack:update(1 / 60)
    if Game.stack:top() == cur and cur.map and cur.map.id == "SEAFOAM_ISLANDS_B4F"
       and not cur.transitioning and #cur.scriptMoves == 0
       and not cur.player.moving then
      break
    end
  end
  check(cur.map and cur.map.id == "SEAFOAM_ISLANDS_B4F",
        "B3F current auto-warps to B4F without a held d-pad (#129)")
  check(cur.player.cellX == 20 or cur.player.cellX == 21,
        "forced current lands on the B4F stair-warp column")
end

S.finish()