Automatically order placements

2026-03-17 23:38:14 +00:00
parent 3b4cf68a15
commit d1c2870d63
25 changed files with 527 additions and 479 deletions
@@ -27,12 +27,12 @@ roomsContaining' crs its = do
    endroom <-
        join $
            takeOne
-                [ roomPillarsSquare <&> rmPmnts ++.~ crsItmsUnused crs its
-                , randomFourCornerRoomCrsIts crs its
-                , tanksRoom crs its
-                , tanksPipesRoom <&> rmPmnts ++.~ crsItmsUnused crs its
-                , roomPillarsContaining crs its
-                , roomPillarsPassage <&> rmPmnts ++.~ crsItmsUnused crs its
+                [-- roomPillarsSquare <&> rmPmnts ++.~ crsItmsUnused crs its
+                 --, randomFourCornerRoomCrsIts crs its
+                 --, tanksRoom crs its
+--                 tanksPipesRoom <&> rmPmnts ++.~ crsItmsUnused crs its
+                 roomPillarsContaining crs its
+--                , roomPillarsPassage <&> rmPmnts ++.~ crsItmsUnused crs its
                ]
    return (pure $ cleatOnward endroom)