Work on placements/room generation

src/Dodge/PlacementSpot.hs

@@ -1,6 +1,7 @@
 --{-# LANGUAGE LambdaCase #-}
 module Dodge.PlacementSpot 
     ( atFstLnkOut
+    , atNthLnkOutShiftBy
     , rpIsOnPath
     , rpIsOffPath
     , rpOffPathFromEdge
@@ -34,6 +35,7 @@ module Dodge.PlacementSpot
     , shiftByV2
     , usedRoomLinkPoss
     , usedRoomInLinkPoss
+    , atNthLinkOut
     ) where
 
 import Dodge.Data.GenWorld
@@ -209,7 +211,10 @@ usedRoomLinkPoss r = mapMaybe f $ _rmPos r
         _ -> Nothing
 
 atFstLnkOut :: PlacementSpot
-atFstLnkOut = rprBool $ \rp _ -> rp ^? rpLinkStatus . rplsChildNum == Just 0
+atFstLnkOut = atNthLinkOut 0
+
+atNthLinkOut :: Int -> PlacementSpot
+atNthLinkOut n = rprBool $ \rp _ -> rp ^? rpLinkStatus . rplsChildNum == Just n
 
 atNthLnkOutShiftBy :: Int -> ((Point2,Float) -> (Point2,Float)) -> PlacementSpot
 atNthLnkOutShiftBy n = rprBoolShift