Tweak ledge room, rename roomRectAutoLinks

2026-02-02 10:44:27 +00:00
parent f3aaf8ba57
commit 3b7e33cab8
15 changed files with 34 additions and 32 deletions
@@ -33,7 +33,7 @@ import RandomHelp
 warningRooms :: String -> Int -> State StdGen (MetaTree Room String)
 warningRooms str n = do
    rm <- do
-        join $ takeOne [roomNgon 8 200, roomRectAutoLinks 200 200, tanksRoom [] []]
+        join $ takeOne [roomNgon 8 200, roomRectAutoLights 200 200, tanksRoom [] []]
    cenroom <- shuffleLinks $ addWarningTerminal str n rm
    rToOnward "warningRooms" $ treePost [door, cenroom, triggerDoorRoom n, cleatOnward door]