Improve rooms, make consumable use type

2022-03-09 10:51:01 +00:00
parent 8ff18178b1
commit a4ec4e4889
16 changed files with 98 additions and 50 deletions
@@ -33,8 +33,8 @@ import System.Random

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