gen1recomp/data/scripts/flavor/viridian_city.lua

-- Viridian City flavor dialogue (pokered/scripts/ViridianCity.asm).
-- Ports the text_asm bodies for GAMBLER1, YOUNGSTER2 and GIRL.
--
-- Not ported here (already handled elsewhere / not talk-reachable):
--  * TEXT_VIRIDIANCITY_FISHER (TM42 gift) -- already ported as a
--    `gift()` entry in data/scripts/story5.lua's M.VIRIDIAN_CITY.talk.
--  * TEXT_VIRIDIANCITY_OLD_MAN (the walking man at (17,5)) and
--    TEXT_VIRIDIANCITY_OLD_MAN_SLEEPY (the sleeper at (18,9)) -- both
--    live in data/scripts/story.lua, which owns this map's onStep gate
--    and can reach the `old_man_demo` command for the real catch
--    tutorial.  Keep them there: story.lua loads BEFORE this file, so a
--    duplicate here would silently win the merge.
--  * TEXT_VIRIDIANCITY_GYM_LOCKED -- a step-triggered blocking text
--    (ViridianCityCheckGymOpenScript), implemented by story5.lua's
--    onStep chain (viridianGymLock -> viridianOldManStep) for this map.

local M = {}

local function text(game) return game.data.text end

local function push(game, s, done)
  local TextBox = require("src.render.TextBox")
  game.stack:push(TextBox.new(game, s, done))
end

-- PrintText on a text_end string returns with the box still drawn and
-- YesNoChoice then draws the menu above it (InitYesNoTextBoxParameters,
-- engine/menus/text_box.asm); no A press clears the question first.  Ride
-- TextBox's opts.choice, the same as Commands.ask (#854).
local function ask(game, s, cb)
  local TextBox = require("src.render.TextBox")
  game.stack:push(TextBox.new(game, s, nil, { choice = cb }))
end

M.VIRIDIAN_CITY = {
  talk = {
    -- ViridianCityGambler1Text (scripts/ViridianCity.asm): normally
    -- comments that the gym is "always closed"; once the 7th badge is
    -- earned (badges == ~EARTHBADGE) but Giovanni hasn't been beaten
    -- yet, he instead says the gym leader returned.
    TEXT_VIRIDIANCITY_GAMBLER1 = function(game, ow, npc, done)
      local t = text(game)
      local sevenBadges = game.save.inventory and
        game.save.inventory.BOULDERBADGE and game.save.inventory.CASCADEBADGE
        and game.save.inventory.THUNDERBADGE and game.save.inventory.RAINBOWBADGE
        and game.save.inventory.SOULBADGE and game.save.inventory.MARSHBADGE
        and game.save.inventory.VOLCANOBADGE
      -- (pokered checks EVENT_BEAT_VIRIDIAN_GYM_GIOVANNI; the port's flag for
      -- that win is EVENT_BEAT_GIOVANNI, set by victories.lua OPP_GIOVANNI#3)
      if sevenBadges and not (game.save.flags and game.save.flags.EVENT_BEAT_GIOVANNI) then
        push(game, t._ViridianCityGambler1GymLeaderReturnedText
          or "VIRIDIAN GYM's\nLEADER returned!", done)
      else
        push(game, t._ViridianCityGambler1GymAlwaysClosedText
          or "This POKéMON GYM\nis always closed.\nI wonder who the\nLEADER is?", done)
      end
    end,

    -- ViridianCityYoungster2Text (scripts/ViridianCity.asm): asks if
    -- you want to know about the two kinds of caterpillar Pokemon;
    -- YES -> CATERPIE/WEEDLE description, NO -> "Oh, OK then!".
    -- ViridianCityYoungster2OkThenText and
    -- ViridianCityYoungster2CaterpieAndWeedleDescriptionText are
    -- defined without a leading underscore in pokered/text/ViridianCity.asm
    -- and aren't present in data/generated/text.lua, so we fall back to
    -- the literal strings from pokered.  Those fallbacks have to carry the
    -- extractor's markers, not plain newlines: line -> \n, cont -> \v,
    -- para -> \f.  Spelling cont/para as \n and \n\n put all six lines on
    -- one page with nothing to wait on, so the whole speech scrolled past
    -- without a button press (#250).
    TEXT_VIRIDIANCITY_YOUNGSTER2 = function(game, ow, npc, done)
      local t = text(game)
      ask(game, t._ViridianCityYoungster2YouWantToKnowAboutText
        or "You want to know\nabout the 2 kinds\vof caterpillar\vPOKéMON?", function(yes)
        if yes then
          push(game, "CATERPIE has no\npoison, but\vWEEDLE does.\fWatch out for its\nPOISON STING!", done)
        else
          push(game, "Oh, OK then!", done)
        end
      end)
    end,

    -- ViridianCityGirlText (scripts/ViridianCity.asm): before the
    -- player has the Pokedex she scolds her grandpa for being mean
    -- (he hasn't had his coffee yet); after EVENT_GOT_POKEDEX she talks
    -- about the winding trail through Viridian Forest to Pewter.
    TEXT_VIRIDIANCITY_GIRL = function(game, ow, npc, done)
      local t = text(game)
      if game.save.flags and game.save.flags.EVENT_GOT_POKEDEX then
        push(game, t._ViridianCityGirlWhenIGoShopText
          or "When I go shop in\nPEWTER CITY, I\nhave to take the\nwinding trail in\nVIRIDIAN FOREST.", done)
      else
        push(game, t._ViridianCityGirlHasntHadHisCoffeeYetText
          or "Oh Grandpa! Don't\nbe so mean!\nHe hasn't had his\ncoffee yet.", done)
      end
    end,

  },
}

return M