Assign used links during room generation

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}