Cleanup

2025-06-14 23:16:29 +01:00
parent 02498e5abb
commit 078a3cc7ea
19 changed files with 29 additions and 60 deletions
@@ -37,9 +37,7 @@ moveShockwave w sw
    -- this is not expansive enough
    damCr cr
        | _crID cr `elem` is || dist (_crPos cr) p >= rad + crRad (cr ^. crType) = cr
-        | otherwise =
-            cr & crState . csDamage
-                .:~ Explosive dam p
+        | otherwise = cr & crDamage .:~ Explosive dam p

 --where
 --  cpos = _crPos cr
@@ -61,9 +59,7 @@ moveInverseShockwave w sw
    --    hitBlocks = wallsOnCirc' p rad $ wallsNearPoint' p w
    damCr cr
        | dist (_crPos cr) p >= rad + crRad (cr ^. crType) = cr
-        | otherwise =
-            cr & crState . csDamage
-                .:~ Explosive 1 p
+        | otherwise = cr & crDamage .:~ Explosive 1 p

 --where
 --  cpos = _crPos cr