Commit before making all walls zoned

src/Dodge/Room/LongDoor.hs

@@ -68,7 +68,8 @@ twinSlowDoorRoom drid w h x = defaultRoom
         ,rectNSWE 20 (-h) (negate x) x
         ]
     cond w' = or $ M.lookup (DoorNumOpen drid) (_worldState w')
-    col = dim $ dim $ bright red
+    --col = dim $ dim $ bright red
+    col = V4 0 1 0 1
 
 twinSlowDoorChasers 
     :: RandomGen g 

src/Dodge/Room/Start.hs

@@ -32,6 +32,6 @@ startRoom = do
         <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) 
                 $ roomRectAutoLinks w h & rmPS .~ 
             [ fground
-            , wallMountA (V2 0 (h/3)) (V3 40 (h/3) 70)
+            , wallMountJ (V2 0 (h/3)) (V3 40 (h/3) 70)
             ]
             )