Partially implement separate blocks

src/Dodge/Data.hs

@@ -568,13 +568,14 @@ data Wall
         , _wlColor :: Color
         , _wlSeen :: Bool
         , _blIDs :: [Int]
-        , _blHP :: Int
+        --, _blHP :: Int
         , _wlIsSeeThrough :: Bool
         , _blVisible :: Bool
-        , _blDegrades :: [Int]
+        --, _blDegrades :: [Int]
         , _blShadows :: [Int]
         , _wlDraw :: Bool
         , _wlRotateTo :: Bool
+        , _wlBlockID :: Int
         }
 data ForceField = FF 
     { _ffLine :: [Point2] , _ffID :: Int