Remove _crZVel

2026-04-03 20:52:57 +01:00
parent dc30f7ca15
commit 789b94b514
4 changed files with 4 additions and 4 deletions
@@ -42,7 +42,7 @@ updateCreature cr
    | cr ^. crPos . _z < negate 100 = (tocr . crHP .~ CrIsPitted) . destroyAllInvItems cr
    | CrIsCorpse _ <- cr ^. crHP = updateCarriage (_crID cr) . chasmTestCorpse cr
    | null (cr ^? crHP . _HP) = id
-    | cr ^. crPos . _z < 0 = (tocr . crZVel -~ 0.5) . (tocr . crPos . _z +~ _crZVel cr)
+--    | cr ^. crPos . _z < 0 = (tocr . crZVel -~ 0.5) . (tocr . crPos . _z +~ _crZVel cr)
    | otherwise = updateLivingCreature cr
  where
    tocr = cWorld . lWorld . creatures . ix (_crID cr)