Commit before changing links

src/Dodge/Initialisation.hs

@@ -17,15 +17,9 @@ import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 
-firstWorld :: IO World
-firstWorld = do
---    i <- randomRIO (0,5000)
-    let i = 3
-    --putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
---    let g = mkStdGen i
---    (roomList,n) <- f g
---    putStrLn $ "Had to go through "++ show n ++ " random generators"
-    roomList <- layoutLevelFromSeed i
+worldFromSeed :: Int -> IO World
+worldFromSeed i = do
+    roomList <- layoutLevelFromSeed 0 i
     return $ generateLevelFromRoomList roomList 
          initialWorld -- note this uses a random generator defined elsewhere
 
@@ -43,7 +37,8 @@ initialWorld = defaultWorld
     , _mousePos = V2 0 0
     , _testString = testStringInit
     , _yourID = 0
-    , _worldEvents = saveWorldInEmptySlot LevelStartSlot . soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
+    , _worldEvents = saveWorldInEmptySlot LevelStartSlot 
+        . soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
         . foldr ((.) . makeStartCloudAt) id [V3 x y 5 | x <- [-5,-3..5] , y <- [-5,-3..5]]
     , _pressPlates = IM.empty
     , _buttons = IM.empty