23 lines
682 B
Haskell
23 lines
682 B
Haskell
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
|
|
& cWorld . camPos . 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]]
|