Improve rooms

2022-03-17 19:37:17 +00:00
parent f8f60537c6
commit c4a8912441
7 changed files with 58 additions and 59 deletions
@@ -50,13 +50,13 @@ powerFakeout = do

 startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
 startRoom i = join $ uncurry takeOneWeighted $ unzip 
-    [ (,) (0.5::Float) $ chainUses <$> sequence [powerFakeout,weaponRoom]
-    , (,) one rezBoxesWp
-    , (,) one rezBoxesThenWeaponRoom
-    , (,) 1 rezBoxThenWeaponRoom
-    , (,) one rezBoxesWpCrit
-    , (,) 1 $ runPastStart i
-    , (,) 5 $ startCrafts >>= roomsContaining [] >>= rezBoxThenRooms
+--    [ (,) (0.5::Float) $ chainUses <$> sequence [powerFakeout,weaponRoom]
+--    , (,) one rezBoxesWp
+--    , (,) one rezBoxesThenWeaponRoom
+    [ (,) one rezBoxThenWeaponRoom
+--    , (,) one rezBoxesWpCrit
+--    , (,) 1 $ runPastStart i
+--    , (,) 1 $ startCrafts >>= roomsContaining [] >>= rezBoxThenRooms
    ]
  where
    one = 1::Float