Further implementation of poitional sound

src/Dodge/Data.hs

@@ -10,7 +10,7 @@ module Dodge.Data
   where
 import Picture.Data
 import Geometry.Data
-import Sound.Preload
+import Sound.Data
 import Control.Lens
 import Control.Monad.State
 import System.Random
@@ -25,6 +25,8 @@ import Codec.Picture (Image,PixelRGBA8)
 import qualified Data.DList as DL
 import Dodge.LoadConfig
 
+import Data.Int (Int16)
+
 data World = World 
     { _keys                 :: !(S.Set Scancode)
     , _mouseButtons         :: !(S.Set MouseButton)
@@ -50,7 +52,7 @@ data World = World
     , _worldEvents          :: !(World -> World)
     , _pressPlates          :: IM.IntMap PressPlate
     , _buttons              :: IM.IntMap Button
-    , _soundQueue           :: [Int]
+    , _soundQueue           :: [(Int,Int16)]
     , _sounds               :: M.Map SoundOrigin Sound
     , _decorations          :: IM.IntMap Picture
     , _corpses              :: IM.IntMap (IM.IntMap [Corpse])