Attempt to incorporate free link positions into placement chain

src/Dodge/Initialisation.hs

@@ -28,8 +28,8 @@ import qualified Data.Map as M
 
 firstWorld :: IO World
 firstWorld = do
-    i <- randomRIO (0,5000)
---    let i = 2
+--    i <- randomRIO (0,5000)
+    let i = 2
     putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
     return $ generateLevelFromRoomList (levx 1) $ initialWorld {_randGen = mkStdGen i}