Add shatterGun

2022-06-16 11:13:44 +01:00
parent 6d5d651566
commit fa762c7687
13 changed files with 98 additions and 15 deletions
@@ -22,6 +22,7 @@ damageBlockWith dm = case _dmType dm of
    CUTTING     -> blHPs %~ reduceHead dam
    EXPLOSIVE   -> blHPs %~ reduceHead dam
    CONCUSSIVE  -> blHPs %~ reduceHead dam
+    SHATTERING  -> blHPs %~ reduceHead dam
    CRUSHING    -> blHPs %~ reduceHead (dam `div` 4)
    LASERING    -> id
    SPARKING    -> 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
+    SHATTERING  -> wlDustAt wl outTo
    CRUSHING    -> id
    EXPLOSIVE   -> id
    CUTTING     -> id