Make crytal walls destructible by shatterGun

src/Dodge/Wall/Damage.hs

@@ -36,6 +36,6 @@ damageBlockWith dm = case _dmType dm of
     dam = _dmAmount dm
 
 damageBlocksBy :: Int -> Wall -> World -> World
-damageBlocksBy x wl = case wl ^? wlStructure . wlStBlock of
+damageBlocksBy x wl = case wl ^? wlStructure . wsBlock of
     Just blid -> blocks . ix blid . blHP -~ x
     Nothing   -> id

src/Dodge/Wall/DamageEffect.hs

@@ -4,10 +4,12 @@ import Dodge.Particle.Spark
 import Dodge.Particle.Bullet.Spawn
 import Dodge.Wall.Reflect
 import Dodge.Wall.Dust
+import Dodge.Block
 import Geometry
 import LensHelp
 
 import Control.Monad.State
+import Data.Maybe
 
 defaultWallDamage :: Damage -> Wall -> World -> World
 defaultWallDamage dm wl = wallDamageEffect dm wl . case _dmType dm of
@@ -33,6 +35,36 @@ defaultWallDamage dm wl = wallDamageEffect dm wl . case _dmType dm of
     pSparkCol = V4 5 1 0.5 2
     lSparkCol = V4 20 (-5) 0 1
 
+windowWallDamage :: Damage -> Wall -> World -> World
+windowWallDamage dm wl = wallDamageEffect dm wl . case _dmType dm of
+    LASERING    -> colSparkRandDir 0.2 8 lSparkCol outTo (reflDirWall sp p wl)
+    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
+    SPARKING    -> id
+    FLAMING     -> id
+    ELECTRICAL  -> id
+    CONCUSSIVE  -> dosplint . id
+    TORQUEDAM   -> id
+    PUSHDAM     -> id
+    POISONDAM   -> id
+    ENTERREMENT -> id
+  where
+    dosplint w = fromMaybe w $ do
+        blid <- wl ^? wlStructure . wsBlock
+        bl   <- w ^? blocks . ix blid
+        return $ splinterBlock bl w
+            & blocks . ix blid . blHP %~ min 1
+    sp = _dmFrom dm
+    p = _dmAt dm
+    outTo = p +.+ squashNormalizeV (sp -.- p)
+    pSparkCol = V4 5 1 0.5 2
+    lSparkCol = V4 20 (-5) 0 1
+
+
 wallDamageEffect :: Damage -> Wall -> World -> World
 wallDamageEffect dm wl w = case _dmEffect dm of
     BounceBullet bt -> w & instantParticles .:~ thebouncer