Reinstate genworld concept

2022-07-25 09:49:55 +01:00
parent d62e14cdb5
commit 3354d108be
7 changed files with 58 additions and 47 deletions
@@ -28,7 +28,7 @@ generateWorldFromSeed i = do
    (roomList,bounds) <- layoutLevelFromSeed 0 i
    return -- $ saveLevelStartSlot 
        $ postGenerationProcessing
-        $ generateLevelFromRoomList roomList initialWorld{_randGen=mkStdGen i}
+        $ _gwWorld (generateLevelFromRoomList roomList initialWorld{_randGen=mkStdGen i})
        & roomClipping .~ bounds

 postGenerationProcessing :: World -> World