Simplify slime compression

2026-05-07 10:04:42 +01:00
parent b76148ae2a
commit 7c1ada4546
9 changed files with 158 additions and 154 deletions
@@ -58,7 +58,8 @@ updateCarriage' cid cr w = \case
        mp <- mcr ^? crPos
        d <- mcr ^? crType . slimeCompression
        r <- mcr ^? crType . slimeSlime . to slimeToRad
-        return $ w & tocr . crPos .~ mp + (p & _xy %~ compressionScale ((1/r) *^ d))
+        --return $ w & tocr . crPos .~ mp + (p & _xy %~ compressionScale ((1/r) *^ d))
+        return $ w & tocr . crPos .~ mp + (p & _x *~ d & _y %~ (/d))
  where
    tocr = cWorld . lWorld . creatures . ix cid
    oop = cr ^. crOldOldPos