Continue link cleanup

2022-03-05 01:29:24 +00:00
parent 0c580e63a4
commit f82bd3f788
5 changed files with 22 additions and 24 deletions
@@ -67,14 +67,19 @@ room2 = lasCenSensEdge
 startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
 startRoom i = join $ uncurry takeOneWeighted $ unzip 
 --    [ (,) (0.5::Float) $ chainUses <$> sequence [minigunFakeout,weaponRoom]
-    [ (,) one rezBoxesWp
-    , (,) 1 rezBoxesThenWeaponRoom
-    , (,) 1 rezBoxThenWeaponRoom
-    , (,) one rezBoxesWpCrit
-    , (,) 1 $ runPastStart i
+    [-- (,) one rezBoxesWp
+     (,) one rezBoxesThenWeaponRoom
+--    , (,) 1 rezBoxThenWeaponRoom
+--    , (,) one rezBoxesWpCrit
+--    , (,) 1 $ runPastStart i
    ]
  where
    one = (1::Float)
+randomChallenges :: RandomGen g => State g (SubCompTree Room)
+randomChallenges = join $ takeOne
+    [fmap (return . UseAll) doubleCorridorBarrels
+    ,shootingRange
+    ]

 runPastStart :: RandomGen g => Int -> State g (SubCompTree Room)
 runPastStart i = do