Improve carriage/stride when falling down pit

src/Dodge/Creature/Update.hs

@@ -136,7 +136,7 @@ dropAll cr w = foldl' (flip (dropItem cr)) w . reverse . IM.keys . _unNIntMap $
 
 chasmTestLiving :: Creature -> World -> World
 chasmTestLiving cr w
-    | _crZVel cr < 0 =
+    | Falling {} <- cr ^. crStance . carriage =
         w
             & tocr . crZVel -~ 0.5
             & tocr . crPos . _z +~ _crZVel cr
@@ -145,13 +145,19 @@ chasmTestLiving cr w
             & soundContinue (CrChasm (_crID cr)) (cr ^. crPos . _xy) debrisS (Just 100)
             & tocr . crPos . _xy -~ normalizeV (vNormal (x - y))
             & chasmRotate cr (x - y)
-    | any f (w ^. cWorld . chasms) = w & tocr . crZVel -~ 0.5
+    | any f (w ^. cWorld . chasms) = w & tocr %~ startFalling
     | otherwise = w
   where
     tocr = cWorld . lWorld . creatures . ix (_crID cr)
     g = uncurry $ circOnSeg (cr ^. crPos . _xy) (crRad $ cr ^. crType)
     f = pointInPoly (cr ^. crPos . _xy)
 
+startFalling :: Creature -> Creature
+startFalling cr = case cr ^. crStance . carriage of
+    Walking a b -> cr & crZVel -~ 0.5
+        & crStance . carriage .~ Falling a b
+    _ -> cr
+
 chasmTestCorpse :: Creature -> World -> World
 chasmTestCorpse cr w
     | _crZVel cr < 0 =