Fix close floor item bug

2025-08-23 23:00:19 +01:00
parent fcccd63844
commit 7336177edf
9 changed files with 214 additions and 200 deletions
@@ -45,7 +45,7 @@ tutAnoTree =
    OnwardList $
        [ AnTree $ return $ tToBTree "teststart" $ return $ cleatOnward corridor
        , AnTree $ tutDrop
-        , AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
+--        , AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
        , AnTree corDoor
        , AnTree $ tutRooms
        , AnTree $ tutDrop
@@ -57,7 +57,7 @@ tutDrop :: State LayoutVars (MetaTree Room String)
 tutDrop = do
    x <- shuffleLinks $ roomNgon 6 100
    y <- decontamRoom
-    return $ tToBTree "TutDrop" $ treePost [x,y,roomRectAutoLinks 40 100]
+    return $ tToBTree "TutDrop" $ treePost [x,y,cleatOnward $ roomRectAutoLinks 40 100]

 tutRooms :: State LayoutVars (MetaTree Room String)
 tutRooms = do