Add analysing machine

2022-03-21 09:14:32 +00:00
parent 13e8ea85d2
commit 51cc04799d
7 changed files with 102 additions and 15 deletions
@@ -36,7 +36,8 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithDoors $ treeFromTrunk 
    [[AnoApplyInt 0 startRoom]
-    , [SpecificRoom $ fmap (return . UseAll) $ tanksRoom [] []]
+    , [AnoApplyInt 100 healthTest]
+    , [SpecificRoom $ (return . UseAll) <$> tanksRoom [] []]
    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
    , [SpecificRoom randomChallenges]
    , [AnoApplyInt 1 lasSensorTurretTest]