Add menu option to start new game from seed, uses system clipboard

2021-12-09 14:36:26 +00:00
parent eeda4f3e39
commit 24a0cc289f
13 changed files with 101 additions and 54 deletions
@@ -3,6 +3,7 @@
 module Dodge.LevelGen where
 import Dodge.Data
 import Dodge.Floor
+import Dodge.Save
 import Dodge.Layout
 import Dodge.Initialisation
 --import Dodge.RandomHelp
@@ -19,7 +20,7 @@ import qualified Data.IntMap.Strict as IM
 generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
    roomList <- layoutLevelFromSeed 0 i
-    return $ _gWorld $ generateLevelFromRoomList roomList 
+    return $ saveLevelStartSlot $ _gWorld $ generateLevelFromRoomList roomList 
         initialWorld{_randGen=mkStdGen i}

 layoutLevelFromSeed :: Int -> Int -> IO (IM.IntMap Room)