module Dodge.Initialisation where
import Dodge.Default.World
--import Dodge.Combine
--import Dodge.Base.You
--import Dodge.Base
--import Dodge.Save
import Dodge.Data
import Dodge.Creature
import Dodge.SoundLogic
import Geometry.Data

import System.Random
import qualified Data.Set as S
import qualified IntMapHelp as IM
import qualified Data.Map as M
import Control.Lens

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]]