Tweak corpse cliff interaction

2026-04-08 23:13:19 +01:00
parent 34192777a6
commit 77c0680bd5
2 changed files with 3 additions and 3 deletions
@@ -68,7 +68,7 @@ walkCliffPush cr xs = pushAgainst (cr ^. crOldPos . _xy - cr ^. crOldOldPos . _x
 groundCliffPush :: Creature -> [(Point2,Point2)] -> Point2
 groundCliffPush cr xs = x *^ circSegsInside cxy r xs
  where
-    x = max 0 $ 0.25 * (1 - dist cxy p / (2*r)) ** 2
+    x = max 0.01 $ 0.25 * (1 - dist cxy p / (2*r)) ** 2
    cxy = cr ^. crPos . _xy
    r = cr ^. crType . to crRad
    p = circSegsInside' cxy r xs