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
@@ -373,7 +373,7 @@ spawnerRoom = do
    aRoom <- airlock
    return $ treeFromTrunk [aRoom, corridor] $ pure $ cleatOnward roomWithSpawner

-corDoor :: State StdGen (MetaTree Room String)
+corDoor :: RandomGen g => State g (MetaTree Room String)
 corDoor = do
    cor <- shuffleLinks (cleatOnward corridor) <&> rmPmnts .~ []
    return $ tToBTree "corDoor" $ treePost [door, cor]