Move toward adding multiple equipable items that are not directly usable

2021-12-08 17:09:24 +00:00
parent 9f6e5af991
commit a9139db0a8
22 changed files with 260 additions and 137 deletions
@@ -65,13 +65,13 @@ room2 :: RandomGen g => Int -> State g (SubCompTree Room)
 room2 = lasCenSensEdge    

 startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
-startRoom i = join $ uncurry takeOneWeighted $ unzip 
+startRoom _ = join $ uncurry takeOneWeighted $ unzip 
 --    [ (,) (0.5::Float) $ chainUses <$> sequence [minigunFakeout,weaponRoom]
    [ (,) (1::Float) rezBoxesWp
-    , (,) 1 rezBoxesThenWeaponRoom
-    , (,) 1 rezBoxThenWeaponRoom
-    , (,) 1 rezBoxesWpCrit
-    , (,) 1 $ runPastStart i
+--    , (,) 1 rezBoxesThenWeaponRoom
+--    , (,) 1 rezBoxThenWeaponRoom
+--    , (,) 1 rezBoxesWpCrit
+--    , (,) 1 $ runPastStart i
    ]

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