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
@@ -36,7 +36,7 @@ lockedStart i = do
    h <- state $ randomR (200, 400 :: Float)
    thels <- roomCritLS
    theweapon <- randBlockBreakWeapon
-    cenroom <- shuffleLinks =<< (roomRectAutoLinks 40 h <&> rmPmnts .~ [])
+    cenroom <- shuffleLinks =<< (roomRectAutoLights 40 h <&> rmPmnts .~ [])
    theedge <- takeOne $ map OnEdge [West, East]
    let linkcor = smallRoom & rmPmnts .~ [spanLS thels (V2 0 65) (V2 40 65)]
        n = length $ filter (elem theedge . _rlType) (_rmLinks cenroom)