Add possible cosmetic pipes to tanks

2022-06-19 10:17:03 +01:00
parent bae0f7dcad
commit 55d2fcc8d0
13 changed files with 70 additions and 16 deletions
@@ -119,7 +119,8 @@ lnkBothAnd rlt ltcon ltcon2 i (j,(p,a)) = RoomLink
 roomRectAutoLinks :: Float -> Float -> Room
 roomRectAutoLinks x y = roomRect x y (f x) (f y) 
    & rmName .~ "autoRect"
-    & rmPmnts .~ [mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isInLnk rp]
+    & rmPmnts .~ [mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isInLnk rp
+        ,mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isOutLnk rp]
  where
    f z = max 1 $ (ceiling z - 40) `div` 60
 {- Combines two rooms into one room.