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