module Dodge.Initialisation (initialWorld, splashScreen) where

import Control.Lens
import Dodge.Creature
import Dodge.Data.World
import Dodge.Default.World
import qualified IntMapHelp as IM
import Dodge.SpawnAt

splashScreen :: World
splashScreen = 
    defaultWorld
        & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]

initialWorld :: World
initialWorld = respawn defaultWorld
--        & wCam . camZoom .~ 10
--        & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]
--        & cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
--        [MakeStartCloudAt (V3 x y 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]