Move towards introducing pipes, generalise blocks

src/Dodge/Data.hs

@@ -529,7 +529,6 @@ data Targeting
         , _tgID     :: Maybe Int
         , _tgActive :: Bool
         }
-
 data ItemDimension = ItemDimension
     { _dimRad    :: Float
     , _dimCenter :: Point3
@@ -918,11 +917,15 @@ data Prop
         }
 data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
 data Block = Block
-    { _blID      :: Int
-    , _blWallIDs :: IS.IntSet
-    , _blHPs     :: [Int]
-    , _blShadows :: [Int]
-    , _blMaterial :: BlockMaterial
+    { _blID         :: Int
+    , _blWallIDs    :: IS.IntSet
+    , _blHPs        :: [Int]
+    , _blShadows    :: [Int]   -- a list of blocks/walls? that are not shown when this block exists
+    , _blMaterial   :: BlockMaterial
+    , _blFootprint  :: [Point2]
+    , _blPos        :: Point2
+    , _blDraw       :: Block -> SPic
+    , _blDeath      :: Block -> World -> World
     }
 data BlockMaterial = WoodBlock | DirtBlock | StoneBlock | GlassBlock | MetalBlock
 data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady