Tweak start rooms

src/Dodge/Room/RunPast.hs

@@ -24,6 +24,7 @@ import Geometry.Data
 import Color
 --import Shape
 
+import qualified Data.Set as S
 import Data.Tree
 import Control.Monad.State
 import Control.Lens
@@ -57,8 +58,9 @@ runPastRoom i = do
     thels <- roomCritLS
     --theweapon <- join $ takeOne [randBlockBreakWeapon,return grenade]
     theweapon <- randBlockBreakWeapon
-    cenroom <- changeLinkFrom theedgetest
+    cenroom <- shuffleLinks $ restrictRMInLinksPD (\(V2 _ y,_) -> y < 1)
                 $ roomRectAutoLinks 40 h & rmPmnts .~ [plRRpt 0 (PutFlIt theweapon)]
+    theedge <- takeOne [West,East]
     --let cenroom = filterSortOutLinksOn theedgetest ((\(V2 a b) -> (a,b)) . fst)
     let linkcor = critRoom {_rmPmnts = 
                     [ spanLS thels (V2 0 65) (V2 40 65)
@@ -76,4 +78,7 @@ runPastRoom i = do
         critrooms :: [SubCompTree Room]
         critrooms = treeFromPost [PassDown switchdoor] (PassDown critroom) : 
             replicate (n-2) (treeFromPost [PassDown switchdoor] (PassDown linkcor))
-    return $ Node (PassDown cenroom) (controom : critrooms ++ [return $ PassDown aswitchroom])
+    return $ Node (PassDown cenroom) 
+        (map (applyToCompRoot $ rmConnectsTo .~ S.singleton (OnEdge theedge)) (controom : critrooms) 
+            ++ [return $ PassDown aswitchroom]
+        )