Add missing file, workaround for placement positions bug

2022-03-08 07:59:36 +00:00
parent 79b5241c32
commit 59e6f433ff
16 changed files with 67 additions and 86 deletions
@@ -33,8 +33,9 @@ import System.Random

 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
-    [[AnoApplyInt 0 startRoom]
-    , [SpecificRoom $ glassLesson]
+--    [[AnoApplyInt 0 startRoom]
+    [[SpecificRoom startRoom']
+--    , [SpecificRoom $ rezThenLasTurret]
 --    , [SpecificRoom $ fmap (return . PassDown) longRoom]
    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
    , [SpecificRoom randomChallenges]