Add more information to Room Positions

2022-06-15 12:34:36 +01:00
parent bf1bfa5453
commit 62dae5bebe
12 changed files with 192 additions and 112 deletions
@@ -40,6 +40,7 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
+    , AnRoom roomPillarsSquare
    , AnTree firstBreather
 --     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
    , AnRoom $ roomCCrits 10