Pause and resume sounds when pausing game

2025-06-02 12:43:37 +01:00
parent 6706ac494a
commit 1851dcc5d6
8 changed files with 74 additions and 63 deletions
@@ -50,8 +50,8 @@ data Sound = Sound
    { _soundTime :: Maybe Int
    , _soundStatus :: SoundStatus
    , _soundChannel :: Maybe Mix.Channel
-    , _soundAngDist :: Maybe (Int16, Word8) -- why do BOTH of
-    , _soundPos :: Point2 -- these exist?
+    , _soundAngDist :: Maybe (Int16, Word8)
+    , _soundPos :: Point2
    , _soundVolume :: Float
    , _soundVolumeFraction :: Float -- this needs cleaning up/combining
    , _soundChunkID :: SoundID