Enable sounds in menus

2025-06-03 08:51:34 +01:00
parent 695cf3c5fd
commit e952f2abea
8 changed files with 348 additions and 326 deletions
@@ -13,6 +13,7 @@ module Dodge.Data.Universe (
    module Loop.Data,
 ) where

+import Sound.Data
 import qualified Data.Map.Strict as M
 import GHC.Word (Word32)
 import Dodge.Data.SelectionList
@@ -44,6 +45,7 @@ data Universe = Universe
    , _uvDebugFloat1 :: Float
    , _uvDebugFloat2 :: Float
    , _uvDebugMessageOffset :: Int
+    , _uvSoundQueue :: [SoundID]  -- sounds without a position, to be played once
    }

 data DebugItem = DebugItem