Increase explosive damage to walls (still problems with hitboxes)

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...