Start cleanup of room in-links

2022-03-05 01:09:19 +00:00
parent 8fa6bbfe29
commit 0c580e63a4
11 changed files with 67 additions and 90 deletions
@@ -34,6 +34,7 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
    [[AnoApplyInt 0 startRoom]
+    , [SpecificRoom $ fmap (return . UseAll) doubleCorridorBarrels]
    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
    , [AnoApplyInt 1 lasSensorTurretTest]
 --    ,[ChainAnos