Create post world load function

src/Dodge/StartNewGame.hs

@@ -3,9 +3,7 @@ module Dodge.StartNewGame (
     startSeedGame,
 ) where
 
-import Data.Preload.Render
-import Shader.Data
-import Shader.Poke -- it would be very nice to remove/rework the poking dependencies
+import Dodge.WorldLoad
 import Dodge.Menu.Loading
 import Dodge.Concurrent
 --import Dodge.Menu.Option
@@ -30,12 +28,10 @@ startSeedGame _ i u = blockingLoad "LOADING" (startSeedGameConc i $ u ^. preload
 
 startSeedGameConc :: Int -> PreloadData -> IO (Universe -> Maybe Universe)
 startSeedGameConc seed pdata = do
-    w' <- generateWorldFromSeed seed
-    nfloorvxs <- pokeFloors (pdata ^?! renderData . textureArrayShader . _2 . vboPtr)
-        (w' ^. cWorld . floorTiles)
-    let w = w' & numberFloorVerxs .~ nfloorvxs
+    w <- generateWorldFromSeed (pdata ^?! renderData) seed
     writeFile "saveSlot/seed" $ show seed
     return $ Just
         . saveWorldInSlot (LevelStartSlot 0)
         . (uvScreenLayers .~ [])
         . (uvWorld .~ w)
+        . (uvIOEffects %~ (\f uv -> ( (uvWorld . cWorld) (postWorldLoad (pdata ^?! renderData)) uv >>= f)))