Add more procedural girders

src/Dodge/Floor.hs

@@ -36,23 +36,10 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
     [[AnoApplyInt 0 startRoom]
---    , [SpecificRoom $ sensorRoom Flaming 50]
+    , [SpecificRoom $ fmap (return . UseAll) $ tanksRoom [] []]
     , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
     , [SpecificRoom randomChallenges]
     , [AnoApplyInt 1 lasSensorTurretTest]
---    ,[ChainAnos 
---        [[SetLabel 0 $ return $ roomRectAutoLinks 200 200 
---            & rmExtPmnt ?~ triggerSwitchSPicLight (drawSwitchWire red red)
---                (anyLnkInPS 5 & psLnkRoomEff .~ (putWireStart 0 . extractRoomPos) )
---            & rmLinkEff .~ [putWireEnd 0]
---         ]
---        ,[UseLabel 0 $ return switchDoorRoom]
---        ]
---     ]
---    ,[SpecificRoom $ return $ connectRoom lasTunnel ]
---    ,[SpecificRoom $ fmap singleUseAll slowDoorRoom ]
---    ,[Corridor]
---    ,[Corridor]
 --    ,[SpecificRoom $ fmap singleUseAll roomCCrits]
 --    ,[AirlockAno]
 --    ,[Corridor]