From 77c0680bd579d6becc4a355ff354dad9a37c1635 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Wed, 8 Apr 2026 23:13:19 +0100
Subject: [PATCH] Tweak corpse cliff interaction

---
 src/Dodge/Corpse/Make.hs              | 4 ++--
 src/Dodge/Creature/State/WalkCycle.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Dodge/Corpse/Make.hs b/src/Dodge/Corpse/Make.hs
index 00477b97b..bbc071480 100644
--- a/src/Dodge/Corpse/Make.hs
+++ b/src/Dodge/Corpse/Make.hs
@@ -43,8 +43,8 @@ chaseCorpse g cr = mconcat
         ]
   where
     neckq = (V3 6 0 0, Q.qz a)
-    a = fst $ randomR (-2,2) $ g
-    b = fst $ randomR (-2,2) $ g
+    a = fst $ randomR (-2,2) g
+    b = fst $ randomR (-2,2) g
     cskin = crShape $ _crType cr -- this should be fixed
     rotmdir = rotateSH (_crMvDir cr - _crDir cr)
     headq = neckq `Q.comp` (V3 16 0 0, Q.qz b )
diff --git a/src/Dodge/Creature/State/WalkCycle.hs b/src/Dodge/Creature/State/WalkCycle.hs
index 9bfa9a8d5..dfcdff1a7 100644
--- a/src/Dodge/Creature/State/WalkCycle.hs
+++ b/src/Dodge/Creature/State/WalkCycle.hs
@@ -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