module Dodge.Initialisation where

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

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

initialWorld :: World
initialWorld =
    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]]