Add bounds to door rooms, tweak mounted lights

2022-03-20 08:23:18 +00:00
parent 02adb0a915
commit e811e67ff9
8 changed files with 44 additions and 65 deletions
@@ -34,7 +34,7 @@ import System.Random
 --import qualified Data.IntMap.Strict as IM

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