Add seagull sounds, remove random generator paramatricity for level gen

2022-05-19 17:56:45 +01:00
parent 40fc6792ae
commit 887dd547d9
10 changed files with 147 additions and 138 deletions
@@ -31,11 +31,11 @@ layoutLevelFromSeed i seed = do
    putStrLn $ "Generating level with seed " ++ show seed
    let g = mkStdGen seed
    let rmtree = inorderNumberTree $ evalState initialRoomTree g
-    putStrLn "Abstract layout: "
+    putStrLn "Compact layout: "
    putStrLn $ compactDrawTree $ fmap (show . snd) rmtree
    let nameshow (r,rid) = _rmName r ++ "-" ++ show rid
    writeFile "aGeneratedRoomLayout" $ drawTree $ fmap nameshow rmtree
-    putStrLn "Layout with room names written to aGeneratedRoomLayout"
+    putStrLn "Layout with room names (also written to aGeneratedRoomLayout):"
    mrs <- positionRoomsFromTree rmtree
    case mrs of
        Just (PosRooms bounds rs) -> do