Allow debris to do damage

2022-06-16 02:46:18 +01:00
parent a7201b8fb6
commit 6d5d651566
6 changed files with 30 additions and 7 deletions
@@ -22,6 +22,7 @@ damageBlockWith dm = case _dmType dm of
    CUTTING     -> blHPs %~ reduceHead dam
    EXPLOSIVE   -> blHPs %~ reduceHead dam
    CONCUSSIVE  -> blHPs %~ reduceHead dam
+    CRUSHING    -> blHPs %~ reduceHead (dam `div` 4)
    LASERING    -> id
    SPARKING    -> id
    FLAMING     -> id
@@ -14,6 +14,7 @@ defaultWallDamage dm wl = wallDamageEffect dm wl . case _dmType dm of
    LASERING    -> colSparkRandDir 0.2 8 lSparkCol outTo (reflDirWall sp p wl)
    PIERCING    -> colSparkRandDir 0.2 8 pSparkCol outTo (reflDirWall sp p wl) . wlDustAt wl outTo
    BLUNT       -> wlDustAt wl outTo
+    CRUSHING    -> id
    EXPLOSIVE   -> id
    CUTTING     -> id
    SPARKING    -> id