Make tanks into decorated blocks

src/Dodge/Default/Block.hs

@@ -14,6 +14,8 @@ defaultBlock = Block
     , _blDir       = 0
     , _blDraw      = const mempty
     , _blDeath     = makeBlockDebris
+    , _blHeight     = 100
+    , _blMaterial   = Stone
     , _blObstructs = []
     }
 defaultDirtBlock :: Block

src/Dodge/Default/Wall.hs

@@ -38,7 +38,6 @@ defaultCrystalWall = defaultWall
 defaultMachineWall :: Wall
 defaultMachineWall = defaultWall
     { _wlOpacity = SeeAbove
-    , _wlUnshadowed = False
     , _wlRotateTo = False
     , _wlStructure = MachinePart 0
     , _wlMaterial  = Metal
@@ -51,7 +50,6 @@ defaultDirtWall = defaultWall
     , _wlSeen = False
     , _wlOpacity = Opaque
     , _wlRotateTo = False
-    , _wlUnshadowed = True
     , _wlFireThrough = True
     , _wlMaterial    = Dirt
     }
@@ -62,7 +60,6 @@ defaultWindow = defaultWall
     , _wlColor = withAlpha 0.5 cyan
     , _wlSeen = False
     , _wlOpacity = SeeThrough
-    , _wlUnshadowed = True
     , _wlFireThrough = True
     , _wlMaterial    = Glass
     }