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

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