Cleanup

2022-06-14 11:35:40 +01:00
parent 4a910566e6
commit 88e5f40f06
6 changed files with 30 additions and 36 deletions
@@ -41,10 +41,11 @@ initialAnoTree = OnwardList
        $ intersperse (AnTree $ tToBTree "cori" . pure <$> shuffleLinks (cleatOnward corridor))
    [ IntAnno $ AnTree . startRoom
 --     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
-    , AnRoom $ roomCCrits 10
+    , AnRoom $ pistolerRoom
    , AnRoom doubleCorridorBarrels
    , IntAnno $ PassthroughLockKeyLists
        [(sensorRoomRunPast ELECTRICAL, takeOne [STATICMODULE,SPARKGUN] )] itemRooms
+    , AnRoom $ roomCCrits 10
    , IntAnno $ PassthroughLockKeyLists keyCardRunPastRand itemRooms
    , IntAnno $ AnTree . warningRooms
    , AnTree $ rToOnward "chaseCrit+armourChaseCrit rectRoom"