Add possible cosmetic pipes to tanks

2022-06-19 10:17:03 +01:00
parent bae0f7dcad
commit 55d2fcc8d0
13 changed files with 70 additions and 16 deletions
@@ -40,9 +40,10 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
 --    [ IntAnno $ AnTree . startRoom
-    [ AnRoom $ tanksRoom [] []
-    , AnRoom roomPillarsPassage
+    [ AnRoom tanksPipesRoom
    , AnRoom tanksPipesRoom
+    , AnRoom $ tanksRoom [] []
+    , AnRoom roomPillarsPassage
    , AnTree firstBreather
 --     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
    , AnRoom $ roomCCrits 10