Commit before modifying slime compression

2026-04-20 20:14:59 +01:00
parent adae6b84f4
commit 73798ba07c
6 changed files with 21 additions and 15 deletions
@@ -1069,8 +1069,8 @@ slimeFood cr = case cr ^. crType of
 feedSlime :: Creature -> Creature -> World -> World
 feedSlime s c w = fromMaybe w $ do
    ch <- crHeight c
-    return $ if min 10 r1 + s ^?! crType . slimeFeedProgress < max 15 (ch + 2)
-        then w & cWorld . lWorld . creatures . ix (s ^. crID) . crType . slimeFeedProgress %~ (min r1 . (+0.7))
+    return $ if min 10 r1 + s ^?! crType . slimeEngulfProgress < max 15 (ch + 2)
+        then w & cWorld.lWorld.creatures.ix (s^.crID).crType.slimeEngulfProgress%~ (min r1.(+0.7))
                & slimeSuck s c
        else
             w