Make "tanks" into Blocks

2022-06-18 23:28:17 +01:00
parent cc93fc83d7
commit bae0f7dcad
10 changed files with 38 additions and 19 deletions
@@ -41,13 +41,13 @@ windowWallDamage dm wl = wallDamageEffect dm wl . case _dmType dm of
    PIERCING    -> dosplint . colSparkRandDir 0.2 8 pSparkCol outTo (reflDirWall sp p wl) . wlDustAt wl outTo
    BLUNT       -> dosplint . wlDustAt wl outTo
    SHATTERING  -> dosplint . muchWlDustAt wl outTo
-    CRUSHING    -> dosplint . id
-    EXPLOSIVE   -> dosplint . id
-    CUTTING     -> dosplint . id
+    CRUSHING    -> dosplint
+    EXPLOSIVE   -> dosplint
+    CUTTING     -> dosplint
    SPARKING    -> id
    FLAMING     -> id
    ELECTRICAL  -> id
-    CONCUSSIVE  -> dosplint . id
+    CONCUSSIVE  -> dosplint
    TORQUEDAM   -> id
    PUSHDAM     -> id
    POISONDAM   -> id