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
@@ -52,7 +52,7 @@ roomC w h = do
    maybeaddgird <- takeOne [return, addRandomGirderFrom West 0, addRandomGirderFrom North 0]
    maybeaddgird
        =<< shuffleLinks
-        =<< ( roomRectAutoLinks w h
+        =<< ( roomRectAutoLights w h
                <&> rmLinks
                    %~ ( setInLinks (\rl -> S.fromList [FromEdge East 0, OnEdge South] `S.isSubsetOf` _rlType rl)
                            . setOutLinks (\rl -> OnEdge West `S.member` _rlType rl)
@@ -320,7 +320,7 @@ shootersRoom' = do
                   , spanLightI (V2 (w / 2) 200) (V2 (w + 10) 200)
                   ]
        toPS x y = return (V2 x y, -0.5 * pi)
-    roomRectAutoLinks w 600
+    roomRectAutoLights w 600
        <&> rmPmnts .~ plmnts
        <&> rmRandPSs .~ [toPS x1 y1, toPS x2 y2, toPS x3 y3]

@@ -423,7 +423,7 @@ distributerRoom atype aamount = do
    i1 <- nextLayoutInt
    w <- state $ randomR (100, 400)
    h <- state $ randomR (200, 400)
-    r <- roomRectAutoLinks w h
+    r <- roomRectAutoLights w h
    let mcstore = defaultMachine
            & mcMaterial .~ Metal
            & mcType .~ McStorage atype aamount