18 lines
553 B
Haskell
18 lines
553 B
Haskell
module Dodge.Event.Test (
|
|
testEvent,
|
|
) where
|
|
|
|
import Dodge.SoundLogic.ExternallyGeneratedSounds
|
|
import Dodge.Data.World
|
|
import Control.Lens
|
|
import Geometry
|
|
|
|
testEvent :: World -> World
|
|
testEvent w = w
|
|
& cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
|
|
--[MakeStartCloudAt (V3 (cx + x) (cy + y) 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]
|
|
[MakeStartCloudAt (V3 (cx + x) (cy + y) 5) | x <- [0], y <- [0]]
|
|
where
|
|
V2 cx cy = w ^?! cWorld . lWorld . creatures . ix 0 . crPos
|
|
|