Smooth out slime splitting

There are probably possible errors from the use of cutPoly
2026-05-08 23:44:28 +01:00
parent 34d8425520
commit 12e4a278d0
10 changed files with 243 additions and 204 deletions
@@ -1026,9 +1026,8 @@ crCrSpring c1 c2
    , slimeFood c2
    , distance xy1 xy2 < r1 - (r2 + 5)
        = feedSlime c1 c2
-    | Just t <- c1 ^? crType . slimeSplitTimer 
-        , slimeFood c2
-        , t <= 0 = slimeSuck c1 c2
+    | Just Nothing <- c1 ^? crType . slimeSplitTimer 
+        , slimeFood c2 = slimeSuck c1 c2
    | SlimeCrit{} <- c1 ^. crType = id
    | SlimeCrit{} <- c2 ^. crType = id
    | otherwise = cWorld . lWorld . creatures %~ ( olap c1 c2 . olap' c2 c1)