Implement working no-item-airlock zone

2025-09-18 15:23:51 +01:00
parent 4494e47b43
commit e017a92892
7 changed files with 55 additions and 51 deletions
@@ -56,7 +56,8 @@ tutAnoTree =
 tutDrop :: State LayoutVars (MetaTree Room String)
 tutDrop = do
    x <- shuffleLinks =<< roomNgon 6 100
-    y <- decontamRoom
+    i <- nextLayoutInt
+    let y = decontamRoom i
    rm <- roomRectAutoLinks 40 100
    return $ tToBTree "TutDrop" $ treePost [x,y,cleatOnward rm]