Add possible cosmetic pipes to tanks

src/Dodge/PlacementSpot.hs

@@ -3,6 +3,7 @@ module Dodge.PlacementSpot
     ( atFstLnkOut
     , rpIsOnPath
     , rpIsOffPath
+    , rpOffPathEdge
     , useUnusedLnk
     , psRandRanges
     , useRoomPosCond
@@ -80,6 +81,10 @@ rpIsOffPath = any f . _rpType
   where
     f RoomPosOffPath {} = True
     f _ = False
+rpOffPathEdge :: PathEdge -> RoomPos -> Bool
+rpOffPathEdge pe = any f . _rpType
+  where
+    f rt = maybe False (any (== pe)) (rt ^? offPathEdges) 
 
 resetPLUse :: PlacementSpot -> PlacementSpot
 resetPLUse (PSPos f g fallback) = PSPos f' g fallback