Cleanup

2022-06-14 16:13:06 +01:00
parent a20602abdb
commit d0e3500cad
11 changed files with 106 additions and 38 deletions
@@ -9,6 +9,7 @@ module Dodge.PlacementSpot
    , unusedSpotAwayFromLink
    , isUnusedLnk
    , isInLnk
+    , isOutLnk
    , unusedSpotNearInLink
    , randDirPS
    , unusedSpotAwayFromInLink
@@ -135,6 +136,10 @@ isInLnk :: RoomPos -> Bool
 isInLnk rp = case _rpLinkStatus rp of
    UsedInLink {} -> _rpPlacementUse rp == 0
    _ -> False
+isOutLnk :: RoomPos -> Bool
+isOutLnk rp = case _rpLinkStatus rp of
+    UsedOutLink {} -> _rpPlacementUse rp == 0
+    _ -> False

 useUnusedLnk :: PlacementSpot
 useUnusedLnk = rprBool isUnusedLnk