Work on placements/room generation

2025-08-22 13:42:51 +01:00
parent e7b52f4487
commit f641805845
14 changed files with 294 additions and 596 deletions
@@ -51,7 +51,7 @@ layoutLevelFromSeed i seed = do
    putStrLnAppend "log/attemptedSeeds" $ "Generating level with seed " ++ show seed
    appendFile "log/attemptedSeeds" "\n"
    let g = mkStdGen seed
-    let treecluster = evalState initialRoomTree (LayVars g 0)
+    let treecluster = evalState tutRoomTree (LayVars g 0)
    let labts = decomposeSelfTree $ numSelfTree $ combineTree _rmName treecluster
    appendFile "log/treeCluster" ("Seed: " ++ show seed ++ "\n")
    putStrLn "MetaTree clusters:"