Tweak clouds

src/Dodge/Event/Test.hs

@@ -2,8 +2,15 @@ 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]]
+  where
+    V2 cx cy = w ^?! cWorld . lWorld . creatures . ix 0 . crPos