Implement torch

2022-07-14 01:11:48 +01:00
parent 2a5b512d61
commit bfe9073808
4 changed files with 21 additions and 4 deletions
@@ -41,6 +41,7 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
+    , AnRoom $ tanksRoom [] [] <&> rmPmnts .~ []
    , AnRoom $ tanksRoom [] []
    , AnRoom $ roomCCrits 0
    , AnRoom $ return airlock0