Change poke to use folding rather than store incremental ints in vector

src/Dodge/Data.hs

@@ -61,7 +61,6 @@ import Geometry.ConvexPoly
 import Sound.Data
 import Dodge.GameRoom
 import Color
-import Shape
 import Data.Tile
 import MaybeHelp
 
@@ -141,7 +140,6 @@ data World = World
     , _playingSounds        :: M.Map SoundOrigin Sound
     , _decorations          :: IM.IntMap Picture
     , _shapes               :: IM.IntMap ForegroundShape
-    , _foregroundShape      :: Shape
     , _corpses              :: IM.IntMap Corpse
     , _clickMousePos        :: Point2
     , _pathGraph            :: Gr Point2 Float
@@ -1402,10 +1400,8 @@ data PSType = PutCrit {_unPutCrit :: Creature}
         , _putDepth :: Float, _putStartPoint :: Point2, _putEndPoint :: Point2}
     | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
     | PutSlideDr Door Wall Float Point2 Point2
---    | PutSlideDr Bool Color (World -> Bool) Float Point2 Point2 Float
     | PutDoor Color (World -> Bool) [(Point2,Point2)]
     | RandPS (State StdGen PSType)
-    | PutShape Shape
     | PutForeground ForegroundShape
     | PutWorldUpdate (PlacementSpot -> World -> World)
     | PutNothing