Improve falling, remove stride advance while falling

2026-04-03 21:25:05 +01:00
parent 348a1d7537
commit 615295ca3e
3 changed files with 5 additions and 3 deletions
@@ -39,7 +39,7 @@ import ShapePicture.Data
 -- allow for knockbacks etc to be determined as well as intended movements
 updateCreature :: Creature -> World -> World
 updateCreature cr
-    | cr ^. crPos . _z < negate 100 = (tocr . crHP .~ CrIsPitted) . destroyAllInvItems cr
+    | cr ^. crPos . _z < negate 300 = (tocr . crHP .~ CrIsPitted) . destroyAllInvItems cr
    | CrIsCorpse _ <- cr ^. crHP = updateCarriage (_crID cr) . chasmTestCorpse cr
    | null (cr ^? crHP . _HP) = id
    | otherwise = updateLivingCreature cr