Improve falling, hover corpse

2026-04-05 09:31:25 +01:00
parent 3952b2b1b7
commit 73dfd1f319
4 changed files with 16 additions and 13 deletions
@@ -39,7 +39,7 @@ updateCarriage' cid cr w = \case
    Falling {} -> 
        let v = 0.95 *^ (cr ^. crOldPos - oop & _z -~ 0.5)
            ep = cr ^. crPos + v
-        in if ep ^. _z < 0 && 
+        in if ep ^. _z < 0 && cr ^. crOldPos . _z >= 0 &&
                (not (any (pointInPoly (ep ^. _xy)) (w ^. cWorld . chasms))
                    || any (uncurry $ crOnSeg cr) (w ^. cWorld . cliffs))
            then w & tocr . crPos .~ (ep & _z .~ 0)