Track slime amount using ints

2026-05-06 15:40:31 +01:00
parent e927de6508
commit b76148ae2a
12 changed files with 203 additions and 147 deletions
@@ -57,7 +57,7 @@ updateCarriage' cid cr w = \case
        mcr <- w ^? cWorld . lWorld . creatures . ix mid
        mp <- mcr ^? crPos
        d <- mcr ^? crType . slimeCompression
-        r <- mcr ^? crType . slimeRad
+        r <- mcr ^? crType . slimeSlime . to slimeToRad
        return $ w & tocr . crPos .~ mp + (p & _xy %~ compressionScale ((1/r) *^ d))
  where
    tocr = cWorld . lWorld . creatures . ix cid