Modify analyser sounds

2022-03-22 18:42:48 +00:00
parent 7b842bca4f
commit 72a1399da0
10 changed files with 176 additions and 160 deletions
@@ -36,8 +36,8 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithDoors $ treeFromTrunk 
    [[AnoApplyInt 0 startRoom]
-    , [AnoApplyInt 100 healthTest]
--    , [SpecificRoom $ return . UseAll <$> tanksRoom [] []]
+--    , [AnoApplyInt 100 healthTest]
+    , [SpecificRoom $ return . UseAll <$> tanksRoom [] []]
    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
    , [SpecificRoom randomChallenges]
    , [AnoApplyInt 1 lasSensorTurretTest]