Cleanup

2026-05-08 10:10:06 +01:00
parent 7c1ada4546
commit 84e95da2b5
4 changed files with 38 additions and 53 deletions
@@ -57,8 +57,6 @@ updateCarriage' cid cr w = \case
        mcr <- w ^? cWorld . lWorld . creatures . ix mid
        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 & _x *~ d & _y %~ (/d))
  where
    tocr = cWorld . lWorld . creatures . ix cid