Move towards unifying door movement

2025-10-21 23:13:36 +01:00
parent 2f3a00a971
commit 39677c3a02
9 changed files with 143 additions and 79 deletions
@@ -43,6 +43,7 @@ tutAnoTree = do
    foldMTRS
        [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
        , corDoor
+        , tToBTree "asdf" . return . cleatOnward <$> airlockZ 
        , return $ tToBTree "cor" $ return $ cleatOnward corridor
        , tToBTree "t" . return . cleatOnward <$> slowDoorRoom
        , corDoor