Reinstate genworld concept

2022-07-25 09:49:55 +01:00
parent d62e14cdb5
commit 3354d108be
7 changed files with 58 additions and 47 deletions
@@ -16,10 +16,12 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 --import Control.Lens

-worldToGenWorld :: IM.IntMap Room -> World -> World
-worldToGenWorld rms w = w 
-    & genParams .~ evalState generateGenParams (_randGen w)
-    & genRooms .~ rms
+worldToGenWorld :: IM.IntMap Room -> World -> GenWorld
+worldToGenWorld rms w = GenWorld 
+    { _gwWorld = w & genParams .~ evalState generateGenParams (_randGen w)
+    , _genRooms = rms
+    , _genPlacements = mempty
+    }

 generateGenParams :: RandomGen g => State g GenParams
 generateGenParams = do