Tweak longRoom

src/Dodge/Room/Room.hs

@@ -293,13 +293,13 @@ deadEndRoom = defaultRoom
   where 
     lnks = [(V2 0 30  ,0) ]
 {- A random Either tree with a weapon and melee monster challenge.  -}
-weaponRoom :: RandomGen g => State g (SubCompTree Room)
-weaponRoom = join $ takeOne 
---    [ weaponEmptyRoom
-    [ weaponUnderCrits 0
---    , weaponBehindPillar
---    , weaponBetweenPillars
---    , weaponLongCorridor
+weaponRoom :: RandomGen g => Int -> State g (SubCompTree Room)
+weaponRoom i = join $ takeOne 
+    [ weaponEmptyRoom
+    , weaponUnderCrits i
+    , weaponBehindPillar
+    , weaponBetweenPillars
+    , weaponLongCorridor
     ]
 
 roomCCrits :: RandomGen g => State g Room