Add airlocks

src/Dodge/Room/Link.hs

@@ -30,6 +30,15 @@ randomiseAllLinks r = do
     newLinks <- shuffle $ _rmLinks r
     return $ r {_rmLinks = newLinks}
 
+randomiseLinksBy 
+    :: RandomGen g 
+    => ( [(Point2,Float)] -> State g [(Point2,Float)] )
+    -> Room
+    -> State g Room
+randomiseLinksBy f r = do
+    newLinks <- f $ _rmLinks r
+    return $ r {_rmLinks = newLinks}
+
 filterLinks :: RandomGen g => ((Point2,Float) -> Bool) -> Room -> State g Room
 filterLinks cond r = do
     newLinks <- shuffle $ filter cond $ init $ _rmLinks r