Temporary de-randomisation of random seed

2021-04-02 20:25:52 +02:00
parent 4327e94e04
commit a735977bf8
3 changed files with 61 additions and 41 deletions
@@ -20,7 +20,10 @@ initializeWorld :: World -> World
 initializeWorld w = w

 firstWorld :: IO World
-firstWorld = return $ generateFromTree lev1 $ initialWorld
+firstWorld = do
+    i <- randomRIO (0,5000)
+    putStrLn $ "Random seed for level generation: " ++ show ( i :: Int)
+    return $ generateFromTree lev1 $ initialWorld {_randGen = mkStdGen i}

 initialWorld :: World
 initialWorld = defaultWorld