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
@@ -36,7 +36,7 @@ updateCarriage' cid cr w = \case
                %~ if cr ^. crPos . _z < 17 then min 0.05 . (+0.001) else max (-0.05) . subtract 0.001
    Boosting {} -> w
    Falling {} -> 
-        let v = 0.9 *^ (cr ^. crOldPos - oop & _z -~ 0.5)
+        let v = 0.95 *^ (cr ^. crOldPos - oop & _z -~ 0.5)
            ep = cr ^. crPos + v
        in if ep ^. _z < 0 && not (any (pointInPoly (ep ^. _xy)) (w ^. cWorld . chasms))
            then w & tocr . crPos .~ (ep & _z .~ 0)