Refactor sounds

2021-09-09 14:58:07 +01:00
parent be7b2d2cd7
commit 70c97f5367
26 changed files with 113 additions and 162 deletions
@@ -42,8 +42,8 @@ initialWorld = defaultWorld
    , _mousePos = V2 0 0
    , _testString = testStringInit
    , _yourID = 0
-    , _worldEvents = soundOncePos foamSprayFadeOutSound (V2 0 0) . foldr ((.) . makeStartCloudAt) id 
-        [V3 x y 5 | x <- [-5,-3..5] , y <- [-5,-3..5]]
+    , _worldEvents = soundFrom BackgroundSound (V2 0 0) foamSprayFadeOutSound Nothing 
+        . foldr ((.) . makeStartCloudAt) id [V3 x y 5 | x <- [-5,-3..5] , y <- [-5,-3..5]]
    , _pressPlates = IM.empty
    , _buttons = IM.empty
    , _sounds = M.empty