Tweak start rooms

This commit is contained in:
2021-11-26 14:40:32 +00:00
parent 040849a550
commit b0f89db66e
5 changed files with 19 additions and 17 deletions
+5 -5
View File
@@ -355,11 +355,11 @@ deadEndRoom = defaultRoom
{- A random Either tree with a weapon and melee monster challenge. -}
weaponRoom :: RandomGen g => State g (SubCompTree Room)
weaponRoom = join $ takeOne
[-- weaponEmptyRoom
weaponUnderCrits
-- weaponBehindPillar
-- weaponBetweenPillars
--, weaponLongCorridor
[ weaponEmptyRoom
, weaponUnderCrits
, weaponBehindPillar
, weaponBetweenPillars
, weaponLongCorridor
]
roomCCrits :: RandomGen g => State g Room