Fix blinking bug, shrinker and shield broken

2021-11-28 00:34:16 +00:00
parent fe02739621
commit 3e64e33232
10 changed files with 36 additions and 42 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 rezBoxesWp
-    , (,) 1 rezBoxesThenWeaponRoom
-    , (,) 1 rezBoxThenWeaponRoom
-    , (,) 1 rezBoxesWpCrit
-    , (,) 1 $ runPastStart i
+--    , (,) 1 rezBoxesWp
+--    , (,) 1 rezBoxesThenWeaponRoom
+--    , (,) 1 rezBoxThenWeaponRoom
+--    , (,) 1 rezBoxesWpCrit
+--    , (,) 1 $ runPastStart i
    ]

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