Simplify room link functions

2025-10-03 18:55:18 +01:00
parent a8348a3515
commit 2d44809900
14 changed files with 229 additions and 205 deletions
@@ -98,7 +98,8 @@ rezBoxesWpCrit = do
    centralRoom <- roomRectAutoLinks w h <&> rmPmnts .~ []
    onwardpassage <-
        over root (rmConnectsTo .~ S.member (OnEdge West)) <$> maybeBlockedPassage
-    let n = length $ filter bottomEdgeTest $ map lnkPosDir $ _rmLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ map (\rl -> (rl ^. rlPos, rl ^. rlDir)) 
+            $ _rmLinks centralRoom
    i <- state $ randomR (0, n -3)
    j <- state $ randomR (i, n -2)
    let rezrooms =