Commit before unifying placements in rooms (in/out)

2022-06-11 12:37:56 +01:00
parent ad576014fb
commit 7b00867f6d
6 changed files with 24 additions and 22 deletions
@@ -39,7 +39,7 @@ initialAnoTree :: Tree [Annotation]
 initialAnoTree = padSucWithDoors $ treeFromPost 
    [[AnoApplyInt 110 startRoom]
    , [PassthroughLockKeyLists 2 keyCardRunPastRand itemRooms]
-    , [SpecificRoom $ warningRooms 7]
+    , [SpecificRoom $ warningRooms 777777]
    , [SpecificRoom $ return ( toOnward "chaseCrit+armourChaseCrit rectRoom"
            , return . useAll $ roomRectAutoLinks 400 400
                & rmPmnts .++~ [spNoID anyUnusedSpot (PutCrit invisibleChaseCrit)