Tweak start again

src/Dodge/Room/Start.hs

@@ -66,9 +66,8 @@ room2 = lasCenSensEdge
 
 startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
 startRoom i = join $ takeOne 
-    [-- roomMiniIntro
-    --minigunfakeout
-     rezBoxesWp
+    [ chainUses <$> sequence [minigunFakeout,weaponRoom]
+    , rezBoxesWp
     , rezBoxesThenWeaponRoom
     , rezBoxThenWeaponRoom
     , rezBoxesWpCrit
@@ -86,7 +85,6 @@ rezBoxStart = do
     ls <- rezColor
     return $ treeFromPost [PassDown $ rezBox ls] (UseAll door)
 
-
 rezBoxesThenWeaponRoom :: RandomGen g => State g (SubCompTree Room)
 rezBoxesThenWeaponRoom = do
     rboxes <- rezBoxes
@@ -98,8 +96,6 @@ rezBoxThenWeaponRoom = do
     rcol <- rezColor
     treeFromTrunk [PassDown $ rezBox rcol,PassDown door] <$> weaponRoom
 
-
-
 startRoom' :: RandomGen g => State g (SubCompTree Room)
 startRoom' = do
     w <- state $ randomR (100,400)