Move machine destruction to external function

2022-07-14 12:48:52 +01:00
parent 79791d0df2
commit f05d284312
7 changed files with 57 additions and 23 deletions
@@ -41,10 +41,10 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
-    , AnRoom $ tanksRoom [] [] <&> rmPmnts .~ []
-    , AnRoom $ tanksRoom [] []
-    , AnRoom $ roomCCrits 0
-    , AnRoom $ return airlock0
+--    , AnRoom $ tanksRoom [] [] <&> rmPmnts .~ []
+--    , AnRoom $ tanksRoom [] []
+--    , AnRoom $ roomCCrits 0
+--    , AnRoom $ return airlock0
    , AnRoom slowDoorRoom
 --    , AnRoom $ roomCCrits 10
 --    , AnTree firstBreather