Make block damages slightly more logical

src/Dodge/Item/Equipment.hs

@@ -161,11 +161,11 @@ shieldWall crid = defaultWall
     }
 
 -- TODO the reflection should be controled by the particle
-shieldWallDamage :: Damage -> Wall -> Int -> World -> World
-shieldWallDamage dm _ crid w = case _dmType dm of
---    Lasering -> w 
-    _ | isMovementDam dm -> w & creatures . ix crid . crState . crDamage .:~ dm
-    _ -> w
+--shieldWallDamage :: Damage -> Wall -> Int -> World -> World
+--shieldWallDamage dm _ crid w = case _dmType dm of
+----    Lasering -> w 
+--    _ | isMovementDam dm -> w & creatures . ix crid . crState . crDamage .:~ dm
+--    _ -> w
 
 createShieldWall :: Creature -> Int -> World -> World
 createShieldWall cr invid w = case _ieMID $ _itEffect it of