Room with doors and central ledge terminal

2026-02-01 22:23:06 +00:00
parent a6976eae8d
commit f3aaf8ba57
7 changed files with 286 additions and 148 deletions
@@ -14,6 +14,7 @@ module Dodge.PlacementSpot (
    isUnusedLnk,
    isInLnk,
    isOutLnk,
+    isOutLnkNum,
    unusedSpotNearInLink,
    randDirPS,
    unusedSpotAwayFromInLink,
@@ -169,6 +170,11 @@ isOutLnk rp = case _rpType rp of
    UsedOutLink{} -> null $ _rpPlacementUse rp
    _ -> False

+isOutLnkNum :: Int -> RoomPos -> Bool
+isOutLnkNum i rp = case _rpType rp of
+    UsedOutLink{_rplsChildNum = j} | j == i -> null $ _rpPlacementUse rp
+    _ -> False
+
 useUnusedLnk :: PlacementSpot
 useUnusedLnk = rprBool isUnusedLnk