gen1recomp/tests/parity_mom_heal.lua

-- Parity test: Mom heal rest (#113) and Silph Co. 9F nurse fade.
--
-- pokered RedsHouse1FMomText / RedsHouse1FMomHealScript:
--   pre-starter -> WakeUpText; else YouShouldRest -> GBFadeOutToWhite ->
--   HealParty -> MUSIC_PKMN_HEALED (wait) -> GBFadeInFromWhite ->
--   LookingGreatText.
-- SilphCo9FNurseText: heal then white fade / Delay3 / fade in (no jingle).
--
-- Self-contained; run via `luajit tests/parity_mom_heal.lua`.
package.path = "./?.lua;./?/init.lua;" .. package.path
if not _G.love then _G.love = require("tests.love_stub") end
local S = require("tests.harness").suite("parity mom heal")
local check, eq = S.check, S.eq

local reds = dofile("data/scripts/reds_house.lua")
local silph = dofile("data/scripts/flavor/silph_co_9f.lua")

local function cmds(rows)
  local out = {}
  for _, row in ipairs(rows) do out[#out + 1] = row[1] end
  return out
end

local function find(rows, verb, arg)
  for i, row in ipairs(rows) do
    if row[1] == verb and (arg == nil or row[2] == arg) then
      return i, row
    end
  end
end

-- --- Mom: pre-starter branch + heal rest sequence
do
  local rows = reds.talk.TEXT_REDSHOUSE1F_MOM
  check(rows ~= nil, "Mom talk script exists")

  local iFlag = find(rows, "check_flag", "EVENT_GOT_STARTER")
  check(iFlag, "Mom checks EVENT_GOT_STARTER")
  local iWake = find(rows, "show_text", "_RedsHouse1FMomWakeUpText")
  check(iWake and iWake > iFlag, "WakeUpText follows the starter check")
  local iRest = find(rows, "show_text", "_RedsHouse1FMomYouShouldRestText")
  check(iRest and iRest > iWake, "heal path is after the wake-up branch")

  local iFadeOut = find(rows, "fade", "out")
  local iHeal = find(rows, "heal_party")
  local iJingle = find(rows, "play_once", "Music_PkmnHealed")
  local iFadeIn = find(rows, "fade", "in")
  local iGreat = find(rows, "show_text", "_RedsHouse1FMomLookingGreatText")
  check(iFadeOut and rows[iFadeOut][3] == "white",
        "Mom fades out to white after rest text")
  check(iHeal and iHeal > iFadeOut, "heal_party runs under the white fade")
  check(iJingle and iJingle > iHeal,
        "Music_PkmnHealed plays after heal_party")
  check(iFadeIn and rows[iFadeIn][3] == "white" and iFadeIn > iJingle,
        "Mom fades in from white after the jingle")
  check(iGreat and iGreat > iFadeIn,
        "LookingGreatText follows the fade-in")

  -- jump_if_true must land on the heal path (rest text), not wake-up
  local jumpRow
  for _, row in ipairs(rows) do
    if row[1] == "jump_if_true" then jumpRow = row break end
  end
  check(jumpRow, "Mom has jump_if_true after starter check")
  eq(rows[jumpRow[2]][2], "_RedsHouse1FMomYouShouldRestText",
     "EVENT_GOT_STARTER jumps to the heal rest text")
end

-- --- Silph Co. 9F nurse: white fade, no heal jingle
do
  local rows = silph.SILPH_CO_9F.talk.TEXT_SILPHCO9F_NURSE
  check(rows ~= nil, "Silph nurse talk script exists")

  local iHeal = find(rows, "heal_party")
  local iFadeOut = find(rows, "fade", "out")
  local iWait = find(rows, "wait")
  local iFadeIn = find(rows, "fade", "in")
  check(iHeal, "Silph nurse heals the party")
  check(iFadeOut and rows[iFadeOut][3] == "white" and iFadeOut > iHeal,
        "Silph nurse fades out to white after heal (pokered order)")
  check(iWait and rows[iWait][2] == 3 and iWait > iFadeOut,
        "Silph nurse Delay3 between fades")
  check(iFadeIn and rows[iFadeIn][3] == "white" and iFadeIn > iWait,
        "Silph nurse fades in from white")
  check(not find(rows, "play_once", "Music_PkmnHealed"),
        "Silph nurse does not play Music_PkmnHealed")

  local sequence = table.concat(cmds(rows), ",")
  check(sequence:find("heal_party,fade,wait,fade,show_text", 1, true),
        "Silph heal rest sequence is heal → fade out → wait → fade in → text")

  -- pokered/text/SilphCo9F.asm:1
  local iTired = find(rows, "show_text", "SilphCo9FNurseYouLookTiredText")
  check(iTired and iTired < iHeal,
        "Silph nurse shows SilphCo9FNurseYouLookTiredText before heal_party")
  local iDontGiveUp = find(rows, "show_text", "SilphCo9FNurseDontGiveUpText")
  check(iDontGiveUp and iDontGiveUp > iFadeIn,
        "Silph nurse shows SilphCo9FNurseDontGiveUpText after the fade-in")
  local iThanks = find(rows, "show_text", "SilphCo9FNurseThankYouText")
  local jumpRow
  for _, row in ipairs(rows) do
    if row[1] == "jump_if_true" then jumpRow = row break end
  end
  check(jumpRow and iThanks and jumpRow[2] == iThanks,
        "EVENT_BEAT_SILPH_CO_GIOVANNI jumps to SilphCo9FNurseThankYouText")
  for _, row in ipairs(rows) do
    if row[1] == "show_text" then
      check(row[2]:find("^SilphCo9F"),
            "Silph nurse show_text uses an extracted label: " .. row[2])
    end
  end
end

-- pokered/home/text.asm ContText / TextCommand_PROMPT_BUTTON
do
  local TextBox = require("src.render.TextBox")
  local extracted = "You look tired!\nYou should take a\vquick nap!{PROMPT}"
  local pages = TextBox.paginate(extracted, 18)
  eq(#pages, 1, "nurse tired text is one page")
  eq(#pages[1], 3, "nurse tired text has three lines")
  eq(pages[1][3], "quick nap!", "third line is the cont line")
  eq(pages.contBefore[1][3], true, "\\v before 'quick nap!' waits for A/B")
  eq(pages.contBefore[1][2], false, "\\n before 'You should take a' does not")
  eq(TextBox.ending(extracted), "prompt", "nurse tired text ends with {PROMPT}")

  local literal = TextBox.paginate("You look tired!\nYou should take a\nquick nap!", 18)
  eq(literal.contBefore[1][3], false, "\\n\\n literal auto-scrolls the third line")
  eq(TextBox.ending("You look tired!\nYou should take a\nquick nap!"), nil,
     "untagged literal has no prompt ending")
end

-- --- play_once is a blocking command (Mom / captain wait loops)
do
  local Commands = require("src.script.Commands")
  check(Commands.meta.play_once and Commands.meta.play_once.blocking,
        "play_once is marked blocking so heal jingles wait to finish")
end

S.finish()