Move typical light placement over doors

2022-03-10 19:00:56 +00:00
parent 01c58490fa
commit 73a35bb3f1
3 changed files with 11 additions and 19 deletions
@@ -96,6 +96,12 @@ isUnusedLnk rp = case _rpLinkStatus rp of
    UnusedLink {} -> _rpPlacementUse rp == 0
    _ -> False

+isUsedLnkUnplaced :: RoomPos -> Bool
+isUsedLnkUnplaced  rp = case _rpLinkStatus rp of
+    UsedOutLink {} -> _rpPlacementUse rp == 0
+    UsedInLink {} -> _rpPlacementUse rp == 0
+    _ -> False
+
 useRoomPosCond :: (RoomPos -> Bool)
    -> RoomPos -> Room -> Maybe (PlacementSpot,RoomPos)
 useRoomPosCond t rp _