Tweak block sounds

2021-11-18 03:50:54 +00:00
parent 94552ff658
commit 147d6098ab
12 changed files with 114 additions and 89 deletions
@@ -29,11 +29,11 @@ import System.Random

 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = join $ takeOne 
-    [ -- rezBoxesWp
--    , rezBoxesThenWeaponRoom
--    , rezBoxThenWeaponRoom
--    , rezBoxesWpCrit
-    runPastStart
+    [ rezBoxesWp
+    , rezBoxesThenWeaponRoom
+    , rezBoxThenWeaponRoom
+    , rezBoxesWpCrit
+    , runPastStart
    ]

 runPastStart :: RandomGen g => State g (Tree (Either Room Room))