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
@@ -25,7 +25,7 @@ import Control.Monad
 -- for roomRectAutoLinks-- make the locked door a center door?
 sensorRoom :: RandomGen g => SensorType -> Int -> State g (Tree Room)
 sensorRoom senseType n = do
-    rm <- join $ takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
+    rm <- join $ takeOne [roomNgon 8 200, roomRectAutoLights 200 200]
    cenroom <- shuffleLinks $ sensInsideDoor senseType n rm
    return $ treePost
            [ door