6 files changed, 119 insertions, 1 deletions

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<map version="1.4" tiledversion="1.4.3" orientation="orthogonal" renderorder="right-down" width="48" height="48" tilewidth="16" tileheight="16" infinite="0" nextlayerid="3" nextobjectid="8">
+<map version="1.4" tiledversion="1.4.3" orientation="orthogonal" renderorder="right-down" width="48" height="48" tilewidth="16" tileheight="16" infinite="0" nextlayerid="3" nextobjectid="12">
  <properties>
   <property name="music" value="red_green_yellow_yellow"/>
  </properties>
@@ -136,6 +136,20 @@
   <object id="7" name="fromInside" type="warp" x="440" y="232">
    <point/>
   </object>
+  <object id="8" name="claus_fall_event" type="trigger" x="560" y="592" width="16" height="16">
+   <properties>
+    <property name="script" value="claus_fall_event"/>
+   </properties>
+  </object>
+  <object id="9" name="near_top_first_ladder" type="warp" x="568" y="498">
+   <point/>
+  </object>
+  <object id="10" name="claus_fall_location" type="warp" x="568" y="640">
+   <point/>
+  </object>
+  <object id="11" name="near_bottom_first_ladder" type="warp" x="568" y="632">
+   <point/>
+  </object>
  </objectgroup>
  <layer id="1" name="Upper" width="48" height="48">
   <properties>
@@ -166,6 +166,13 @@ function SetPosition(spriteName, x, y)
   transform():moveSprite(spriteId, vec2i.new(x, y))
 end
 
+--- Moves a sprite to the specified warp point.
+function MoveSpriteToWarp(spriteName, warp)
+  local spriteId = getSpriteByAlias(spriteName)
+  local warpPos = getMap():getWarpPoint(warp)
+  transform():moveSprite(spriteId, warpPos)
+end
+
 function SetDirection(spriteName, dir)
   local spriteId = getSpriteByAlias(spriteName)
   animation():setSpriteDirection(spriteId, dir)
@@ -5,3 +5,17 @@ function global.no_problem_here()
   DisplayMessage("* No problem here.", "", SpeakerType.NONE)
   HideCutsceneBars()
 end
+
+-- for testing the claus joined route
+function global.test_join_claus()
+  CreateAnimatedSpriteAtPosition("join_claus", "claus", 0, 0, "still", Direction.DOWN, SpriteLayer.NORMAL)
+
+  local clausId = getSpriteByAlias("join_claus")
+  character():addSpriteToParty(getPlayerSprite(), clausId)
+
+  local clausSprite = getSprite(clausId)
+  clausSprite.persistent = true
+
+  gamestate.claus_joined = true
+  gamestate.still_has_claus = true
+end
@@ -13,3 +13,86 @@ function hallucination_cliff.enter_door()
   PlaySound("door_open.wav")
   ChangeMap("pink_shell", "fromOutside")
 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
+
+  -- 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