Transition to new room datatypes, first separate out/inlinks

src/Dodge/Room/Start.hs

@@ -5,6 +5,7 @@ import Dodge.Room.RunPast
 import Dodge.Room.LasTurret
 import Dodge.Data
 import Dodge.Default
+import Dodge.RoomLink
 import Dodge.Tree
 import Dodge.RandomHelp
 import Dodge.Room.Door
@@ -98,7 +99,7 @@ rezColor = do
         }
 
 rezInvBox :: LightSource -> Room
-rezInvBox = (rmLinks %~ reverse) . rezBox
+rezInvBox = swapInOutLinks . rezBox
 
 crAdd :: Room -> Room
 crAdd = rmPmnts %~ (sPS (V2 20 10) (0.5*pi) randC1 :)
@@ -134,7 +135,7 @@ rezBoxesWpCrit = do
     centralRoom <- filterSortOutLinksOn bottomEdgeTest ((\(V2 a b) -> (b,a)) . fst) <$>
             (randomiseOutLinks =<< changeLinkTo bottomPassDownTest 
                     ((roomRectAutoLinks w h) {_rmPmnts = []}))
-    let n = length $ filter bottomEdgeTest $ _rmLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ _rmOutLinks centralRoom
     i <- state $ randomR (0,n-3)
     j <- state $ randomR (i,n-2)
     blcor <- blockedCorridor'
@@ -161,7 +162,7 @@ rezBoxesWp = do
     centralRoom <- randomiseOutLinks =<< changeLinkTo bottomEdgeTest 
         ((roomRectAutoLinks w h) {_rmPmnts = []})
     blcor <- blockedCorridor'
-    let n = length $ filter bottomEdgeTest $ _rmLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ _rmOutLinks centralRoom
     let rezrooms = map adddoor 
             $ wpAdd theweapon aroom : replicate (n-2) aroom
     centralRoom' <- changeLinkFrom bottomEdgeTest centralRoom
@@ -182,7 +183,7 @@ rezBoxes = do
         dbox = treeFromPost [PassDown door] (PassDown $ rezInvBox thecol)
     centralRoom <- randomiseOutLinks =<< changeLinkTo bottomEdgeTest 
         ((roomRectAutoLinks w h) {_rmPmnts = []})
-    let n = length $ filter bottomEdgeTest $ _rmLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ _rmOutLinks centralRoom
     centralRoom' <- changeLinkFrom bottomEdgeTest centralRoom
     return $ treeFromTrunk [PassDown $ rezBox thecol
         , PassDown door