26 lines
713 B
Haskell
26 lines
713 B
Haskell
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]]
|
|
|