path: root/res/scripts/hallucination_cliff.lua

hallucination_cliff = {}

function hallucination_cliff.init()
  gamestate.hinawa_can_appear = false
  if gamestate.saw_hinawa_first_scene then
    if gamestate.saw_hinawa_second_scene then
      -- the event can no longer trigger if the player leaves the map after
      -- seeing hinawa a second time.
    else
      -- as long as nothing else prevents the scene from occuring, a player
      -- who interrupted the hinawa event by leaving the map before seeing her
      -- a second time is allowed to resume the event.
      gamestate.hinawa_can_appear = true
      MoveSpriteToWarp("hinawa", "hinawa_second_position")
    end
  else
    -- the hinawa event only has a 50% chance of triggering; reloading the map
    -- rolls this again.
    if randomChance(1.0/2.0) then
      gamestate.hinawa_can_appear = true
    end
  end
  -- the hinawa event will not occur if claus ever joined the party.
  if gamestate.claus_joined then
    gamestate.hinawa_can_appear = false
  end
  -- if hinawa can't appear, remove her from the map.
  if not gamestate.hinawa_can_appear then
    DestroyNamedSprite("hinawa")
  end
end

function hallucination_cliff.off_bottom()
  ChangeMap("hallucination_interior", "fromTop")
end

function hallucination_cliff.off_left()
  ChangeMap("hallucination_hot_spring", "fromRight")
end

function hallucination_cliff.enter_door()
  CreateAnimatedSpriteAtWarpPoint("entryway", "entryway", "entryway_appear", "pink_shell", Direction.DOWN, SpriteLayer.NORMAL)
  PlaySound("door_open.wav")
  ChangeMap("pink_shell", "fromOutside")
end

function hallucination_cliff.talk_to_nana()
  if not gamestate.talked_to_nana_times then
    gamestate.talked_to_nana_times = 0
  end

  StartCutscene()

  if gamestate.talked_to_nana_times == 0 then
    SetAnimation("nana", "talk")
    DisplayMessage("* Don't talk to me.", "Nana", SpeakerType.WOMAN)
  elseif gamestate.talked_to_nana_times == 1 then
    SetAnimation("nana", "talk")
    DisplayMessage("* Go bother someone else.", "Nana", SpeakerType.WOMAN)
  elseif gamestate.talked_to_nana_times == 2 then
    SetAnimation("nana", "talk")
    DisplayMessage("* I only talked to you out of pity.", "Nana", SpeakerType.WOMAN)
  elseif gamestate.talked_to_nana_times >= 3 and gamestate.talked_to_nana_times < 6 then
    DisplayMessage("* ...", "Nana", SpeakerType.WOMAN)
  elseif gamestate.talked_to_nana_times >= 6 then
    SetAnimation("nana", "talk")
    DisplayMessage("* Shut up shut up shut up!\n\f* Can't you take a hint, you stupid boy?", "Nana", SpeakerType.WOMAN)
  end

  WaitForEndOfMessage()

  gamestate.talked_to_nana_times = gamestate.talked_to_nana_times + 1

  SetAnimation("nana", "still")
  SetDirection("nana", Direction.RIGHT)
  HideCutsceneBars()
end

function hallucination_cliff.claus_fall_event()
  -- do not trigger if we don't have claus
  if not gamestate.still_has_claus then
    return
  end

  -- do not trigger a second time
  if gamestate.claus_fall_scene then
    return
  end

  gamestate.claus_fall_scene = true

  -- have the player automatically climb most of the ladder. this is to ensure
  -- that Claus is off screen when the event triggers.
  DisablePlayerControl()
  Halt("lucas")
  DirectSpriteToLocation("lucas", "near_top_first_ladder", PathfindingOptions.CARDINAL_DIRECTIONS_ONLY)
  WaitForSpritePath("lucas")
  DisableBehaviour("lucas")

  StartCutscene(CutsceneOptions.DO_NOT_CHANGE_ANIMATION)
  DisplayMessage("* Aiee!", "Claus", SpeakerType.MAN)
  PlaySound("wobble_and_fall.wav")
  WaitForEndOfMessage()

  Delay(1000)

  PlaySound("thud.wav")
  ShakeCamera(100)
  Delay(50)

  ShowExpression("lucas", "surprise")
  Delay(50)

  ShowExpression("kuma", "surprise")
  ShowExpression("duster", "surprise")
  Delay(100)

  StopShakingCamera()
  Delay(1000)

  MoveSpriteToWarp("join_claus", "claus_fall_location")
  SetDirection("join_claus", Direction.LEFT)
  SetAnimation("join_claus", "collapsed")
  PanToSprite("join_claus", 4000)
  Delay(1000)

  RemoveExpression("lucas")
  RemoveExpression("kuma")
  RemoveExpression("duster")
  WaitForPan()

  Delay(1000)

  -- we need to break up the party to detach Claus anyway, and while we're there
  -- we should turn down the movement speed because the pathfinding algorithm
  -- doesn't take media into consideration, and if we don't change the speed
  -- before adding the other characters back, they'll bunch up as they move down
  BreakUpParty("lucas")
  SetMovementSpeed("lucas", 1)
  character():addSpriteToParty(getPlayerSprite(), getSpriteByAlias("kuma"))
  character():addSpriteToParty(getPlayerSprite(), getSpriteByAlias("duster"))
  character():addSpriteToParty(getPlayerSprite(), getSpriteByAlias("boney"))

  UnpauseSprite("lucas")
  DirectSpriteToLocation("lucas", "near_bottom_first_ladder", PathfindingOptions.CARDINAL_DIRECTIONS_ONLY)
  WaitForSpritePath("lucas")
  DisableBehaviour("lucas")
  PauseSprite("lucas")
  SetAnimation("lucas", "frozen") -- so he doesn't blink
  Delay(1000)

  DisplayMessage("* Lucas, you shouldn't have let me fall!\n\f* It's your fault I got hurt!\n\f* I can't get up...", "Claus", SpeakerType.MAN)
  WaitForEndOfMessage()

  DisplayMessage("* Help him up?", "", SpeakerType.NONE)
  ShowChoice("Yes", "No")
  WaitForEndOfMessage()

  -- TODO: rest of scene

  -- same as before but less justifiable because the only reason we're doing
  -- this is to fix the movement trails
  -- BreakUpParty("lucas")
  -- SetMovementSpeed("lucas", 2)
  -- character():addSpriteToParty(getPlayerSprite(), getSpriteByAlias("kuma"))
  -- character():addSpriteToParty(getPlayerSprite(), getSpriteByAlias("duster"))
  -- character():addSpriteToParty(getPlayerSprite(), getSpriteByAlias("boney"))
end

function hallucination_cliff.see_hinawa_first_event()
  -- for safety, check if the claus falling event is happening, since it moves
  -- the party into this event's trigger.
  if gamestate.claus_fall_scene then
    return
  end

  -- the scene only triggers under certain circumstances (see the init function)
  if not gamestate.hinawa_can_appear then
    return
  end

  -- do not trigger a second time
  if gamestate.saw_hinawa_first_scene then
    return
  end

  gamestate.saw_hinawa_first_scene = true

  StartCutscene(CutsceneOptions.DO_NOT_CHANGE_ANIMATION)
  Delay(100)

  ShowExpression("lucas", "surprise")
  ShowExpression("kuma", "surprise")
  ShowExpression("duster", "surprise")
  Delay(1000)

  PanToWarpPoint("first_hinawa_vantage", 2000)
  Delay(750)

  RemoveExpression("lucas")
  RemoveExpression("kuma")
  RemoveExpression("duster")
  WaitForPan()
  Delay(2000)

  UnpauseSprite("hinawa")
  DirectSpriteToLocation("hinawa", "hinawa_offscreen_first", PathfindingOptions.CARDINAL_DIRECTIONS_ONLY)
  WaitForSpritePath("hinawa")

  DisableBehaviour("hinawa")
  PauseSprite("hinawa")
  MoveSpriteToWarp("hinawa", "hinawa_second_position")
  Delay(2000)
  ReturnCamera(1000)
  Delay(500)

  DisplayMessage("* Lucas... Was that...?", "Kumatora", SpeakerType.WOMAN)
  WaitForEndOfMessage()

  HideCutsceneBars(CutsceneOptions.DO_NOT_CHANGE_ANIMATION)
end

function hallucination_cliff.see_hinawa_second_event()
  -- only trigger this scene if the first half of the scene has occured and the
  -- event hasn't been disabled.
  if not (gamestate.hinawa_can_appear and gamestate.saw_hinawa_first_scene) then
    return
  end

  -- do not trigger a second time.
  if gamestate.saw_hinawa_second_scene then
    return
  end

  gamestate.saw_hinawa_second_scene = true

  -- automatically move lucas forward enough that he is no longer on the ladder.
  DisablePlayerControl()
  Halt("lucas")
  DirectSpriteToLocation("lucas", "second_hinawa_vantage", PathfindingOptions.CARDINAL_DIRECTIONS_ONLY)
  WaitForSpritePath("lucas")
  DisableBehaviour("lucas")

  StartCutscene(CutsceneOptions.DO_NOT_CHANGE_ANIMATION)
  Delay(1000)

  -- we need to do this because a lot of pathfinding is going to fire off almost
  -- at the same time, and while the paths the characters take should not
  -- actually intersect, the pathfinding is done with only their starting
  -- positions in mind.
  MakeSpriteNotSolid("hinawa")
  MakeSpriteNotSolid("lucas")
  MakeSpriteNotSolid("kuma")
  MakeSpriteNotSolid("duster")
  MakeSpriteNotSolid("boney")

  -- hinawa walks to the left, then turns to look at lucas.
  UnpauseSprite("hinawa")
  DirectSpriteToLocation("hinawa", "hinawa_mid_checkpoint", PathfindingOptions.CARDINAL_DIRECTIONS_ONLY)
  WaitForSpritePath("hinawa")
  DisableBehaviour("hinawa")
  Delay(1500)

  SetDirection("hinawa", Direction.DOWN_LEFT)
  Delay(100)
  SetDirection("hinawa", Direction.DOWN)
  Delay(100)
  SetDirection("hinawa", Direction.DOWN_RIGHT)
  Delay(2000)
  SetDirection("hinawa", Direction.RIGHT)
  Delay(250)

  -- hinawa then walks off the cliff.
  DirectSpriteToLocation("hinawa", "hinawa_off_cliff", PathfindingOptions.CARDINAL_DIRECTIONS_ONLY | PathfindingOptions.MOONWALKING)
  Delay(1000)

  -- lucas walks after her, while the rest of the party gather a little behind
  -- him. because of this, we need to break apart the party, since they are all
  -- going to have independent walking patterns.
  BreakUpParty("lucas")
  UnpauseSprite("lucas")
  SetMovementSpeed("lucas", 1)
  DirectSpriteToLocation("lucas", "hinawa_mid_checkpoint")
  Delay(1000)

  UnpauseSprite("kuma")
  UnpauseSprite("duster")
  UnpauseSprite("boney")
  SetMovementSpeed("kuma", 1)
  SetMovementSpeed("duster", 1)
  SetMovementSpeed("boney", 1)
  DirectSpriteToLocation("kuma", "kuma_watch_point")
  DirectSpriteToLocation("duster", "hinawa_second_position")
  DirectSpriteToLocation("boney", "boney_watch_point")

  WaitForSpritePath("hinawa")
  DisableBehaviour("hinawa")
  SetDirection("hinawa", Direction.RIGHT)

  WaitForSpritePath("lucas")
  DisableBehaviour("lucas")
  SetDirection("lucas", Direction.LEFT)
  SetAnimation("lucas", "frozen")

  WaitForSpritePath("kuma")
  DisableBehaviour("kuma")
  SetDirection("kuma", Direction.LEFT)
  SetAnimation("kuma", "frozen")

  WaitForSpritePath("duster")
  DisableBehaviour("duster")
  SetDirection("duster", Direction.LEFT)
  SetAnimation("duster", "frozen")

  WaitForSpritePath("boney")
  DisableBehaviour("boney")
  SetDirection("boney", Direction.LEFT)
  SetAnimation("boney", "frozen")

  MakeSpriteSolid("hinawa")
  MakeSpriteSolid("lucas")
  MakeSpriteSolid("kuma")
  MakeSpriteSolid("duster")
  MakeSpriteSolid("boney")

  -- TODO: rest of scene
end