Add sound on spawn, allow for filtering of to play sounds

2025-12-05 23:19:06 +00:00
parent a4f8369420
commit f9ce58b409
19 changed files with 752 additions and 695 deletions
@@ -91,7 +91,8 @@ tryPlay sd s = do
        & soundChannel ?~ i
        & soundStatus . playStatus .~ JustStartedPlaying
  where
-    timesToPlay | _soundIsLooping (_soundStatus s) = Mix.Forever
+    timesToPlay 
+        | _soundIsLooping (_soundStatus s) = Mix.Forever
        | otherwise = Mix.Once

 tryGetChannel :: Sound -> MaybeT IO Mix.Channel