Fix explosion damage

src/Dodge/Data.hs

@@ -150,7 +150,7 @@ data World = World
     , _toPlaySounds         :: M.Map SoundOrigin Sound
     , _playingSounds        :: M.Map SoundOrigin Sound
     , _decorations          :: IM.IntMap Picture
-    , _shapes               :: IM.IntMap ForegroundShape
+    , _foregroundShapes     :: IM.IntMap ForegroundShape
     , _corpses              :: IM.IntMap Corpse
     , _clickMousePos        :: Point2
     , _pathGraph            :: Gr Point2 PathEdge
@@ -1064,6 +1064,10 @@ data MachineType
         , _tuFireTime   :: Int
         , _tuMCrID      :: Maybe Int
         }
+data BlockShifter = BlockShifter
+    { _bsID :: Int
+    , _bsBlocks :: IS.IntSet
+    }
 data Door = Door
     { _drID :: Int
     , _drWallIDs :: IS.IntSet
@@ -1454,6 +1458,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutDoor Color EdgeObstacle (World -> Bool) [(Point2,Point2)]
     | RandPS (State StdGen PSType)
     | PutForeground ForegroundShape
+    | PutDecoration Picture
     | PutWorldUpdate (PlacementSpot -> World -> World)
     | PutNothing
     | PutUsingGenParams (World -> (World,PSType))