Add files

src/Dodge/Room/Start.hs

@@ -47,14 +47,23 @@ minigunfakeout = do
                 ,Left keyholeCorridor,Left corridor])
         `treeFromPost` Right door
 
+centralLasTurret :: Room
+centralLasTurret = roomOctogon
+
+rezThenLasTurret :: RandomGen g => State g (Tree (Either Room Room))
+rezThenLasTurret = do
+    rbox <- rezBoxStart 
+    return $ rbox `appendEitherTree` [return $ Right roomOctogon]
+
 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = join $ takeOne 
-    [ minigunfakeout
+    [ rezThenLasTurret
-    , rezBoxesWp
+    --,minigunfakeout
-    , rezBoxesThenWeaponRoom
+    --, rezBoxesWp
-    , rezBoxThenWeaponRoom
+    --, rezBoxesThenWeaponRoom
-    , rezBoxesWpCrit
+    --, rezBoxThenWeaponRoom
-    , runPastStart
+    --, rezBoxesWpCrit
+    --, runPastStart
     ]
 
 runPastStart :: RandomGen g => State g (Tree (Either Room Room))