Add tank furniture, stop autorotate when aiming

src/Dodge/LevelGen/Block.hs

@@ -122,6 +122,8 @@ addBlock (p:ps) hp col isSeeThrough degradability w
             , _blVisible = True
             , _blShadows = []
             , _blDegrades = degradability
+            , _wlDraw = True
+            , _wlRotateTo = True
             }
         ) is lns
     wallInZone wl 

src/Dodge/LevelGen/TriggerDoor.hs

@@ -8,6 +8,7 @@ module Dodge.LevelGen.TriggerDoor
 import Dodge.Data
 import Dodge.Base
 import Dodge.Zone
+import Dodge.Default.Wall
 import Dodge.LevelGen.Switch
 import Dodge.LevelGen.Pathing
 import Dodge.LevelGen.MoveDoor
@@ -66,7 +67,7 @@ putDoor col cond pss w = (drid, addWalls w & doors %~ addDoor)
     wlids = take 4 [IM.newKey $ _walls w ..]
     wlps' = uncurry (rectanglePairs 9) $ head pss
     addWalls w' = foldl' addWall w' $ zip wlids wlps'
-    addWall w' (wlid, wlps) = w' & walls %~ IM.insert wlid Wall
+    addWall w' (wlid, wlps) = w' & walls %~ IM.insert wlid defaultWall
         { _wlLine = wlps
         , _wlID = wlid
         , _wlColor = col
@@ -142,7 +143,7 @@ putSingleDoor isPathable col cond a b speed w = (drid, addWalls w
         , _drMech   = doorMechanism drid speed (zip3 wlids shiftedPairs pairs)
         }
     addWalls w' = foldl' addWall w' $ zip wlids pairs
-    addWall w' (wlid, wlps) = w' & walls %~ IM.insert wlid Wall
+    addWall w' (wlid, wlps) = w' & walls %~ IM.insert wlid defaultWall
         { _wlLine = wlps
         , _wlID = wlid
         , _wlColor = col