Cleanup

2025-06-14 23:16:29 +01:00
parent 02498e5abb
commit 078a3cc7ea
19 changed files with 29 additions and 60 deletions
@@ -67,8 +67,7 @@ unsafeBlinkAction cr w
    | otherwise =
        w
            & blinkActionFail cr
-            & cWorld . lWorld . creatures . ix cid . crState . csDamage
-                .:~ Enterrement 100000000
+            & cWorld . lWorld . creatures . ix cid . crDamage .:~ Enterrement 100000000
  where
    success = fromMaybe True $ do
        wl <- snd $ collidePointWallsFilter (const True) mwp cpos w