Move towards introducing pipes, generalise blocks

2022-06-16 02:18:22 +01:00
parent f404f32241
commit a7201b8fb6
13 changed files with 154 additions and 65 deletions
@@ -40,7 +40,8 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
--    , AnRoom roomPillarsSquare
+    , AnRoom roomPillarsPassage
+    , AnRoom tanksPipesRoom
    , AnTree firstBreather
 --     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
    , AnRoom $ roomCCrits 10