Tweak corpse cliff interaction

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 )

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