Increase explosive damage to walls (still problems with hitboxes)

src/Dodge/Update.hs

@@ -258,7 +258,7 @@ functionalUpdate u =
         . over uvWorld ppEvents
         . colCrsWalls
         . over uvWorld simpleCrSprings
-        . over uvWorld (updateIMl (_doors . _lWorld . _cWorld) (doDrWdWd . _drMech))
+        . over uvWorld (updateIMl' (_doors . _lWorld . _cWorld) updateDoor)
         . over uvWorld doWorldEvents
         . over uvWorld updateDelayedEvents
         . over uvWorld (updateIMl (_modifications . _lWorld . _cWorld) 
@@ -306,6 +306,9 @@ updateAimPos :: Universe -> Universe
 updateAimPos u = u & uvWorld . cWorld . lWorld . lAimPos
     .~ mouseWorldPos' (u ^. uvWorld . input) (u ^. uvWorld . wCam)
 
+updateDoor :: Door -> World -> World
+updateDoor dr = doDrWdWd (_drMech dr) dr
+
 updateMagnets :: LWorld -> LWorld
 updateMagnets lw =
     lw & oldMagnets .~ (lw ^. magnets)

src/Dodge/Update/WallDamage.hs

@@ -1,4 +1,4 @@
-module Dodge.Update.WallDamage where
+module Dodge.Update.WallDamage (updateWallDamages) where
 
 import Control.Lens
 import Data.Maybe

src/Dodge/Wall/Damage.hs

@@ -23,7 +23,9 @@ damageWall dt wl w = case _wlStructure wl of
             & maybeDestroyDoor drid
     _ -> w'
   where
-    x = dt ^. dmAmount
+    x = case dt of
+        Explosive y _ -> y * 100
+        _ -> dt ^. dmAmount
     w' = damMatSideEffect dt (_wlMaterial wl) (Right wl) w
 
 -- block destruction is convoluted...