Commit before changing links

src/Dodge/Menu.hs

@@ -18,6 +18,7 @@ import Dodge.Base.Window
 import Dodge.SoundLogic
 
 import Control.Lens
+import System.Random
 
 optionMenu :: ScreenLayer
 optionMenu = OptionScreen
@@ -159,8 +160,10 @@ pauseMenuOptions =
 startNewGame :: World -> Maybe World
 startNewGame w = Just $ w
     & menuLayers .~ [WaitScreen (const "GENERATING...") 1]
-    & sideEffects .~ const (firstWorld <&> keyConfig .~ _keyConfig w <&> config .~ _config w
+    & sideEffects .~ const (worldFromSeed i <&> keyConfig .~ _keyConfig w <&> config .~ _config w
         <&> preloadData .~ _preloadData w) -- this kills save games etc...
+  where
+    i = fst $ random (_randGen w)
 
 -- | hacky
 scodeToChar :: Scancode -> Char