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

src/Dodge/Data/WorldEffect.hs

@@ -3,6 +3,7 @@
 
 module Dodge.Data.WorldEffect where
 
+import qualified Data.Set as S
 import Dodge.Data.Item.Location
 import NewInt
 import Dodge.Data.LightSource
@@ -17,6 +18,10 @@ data ItCrWdWd = ItCrWdItemHeldEffect
     | ItCrWdItemHeldEffectNoHammer
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data SoundFilter 
+    = FilterBySoundOrigin (S.Set SoundOrigin)
+    | NoSoundFilter
+
 data WdWd
     = NoWorldEffect
     | SetTrigger Bool Int
@@ -33,6 +38,7 @@ data WdWd
     | MakeTempLightFade Float LSParam Int
     | UseInvItem Int Int -- invid presstime
     | WdWdBurstFireRepetition Int (NewInt InvInt)
+    | WdWdSetSoundFilter SoundFilter
     --deriving (Eq, Show, Read) --, Generic)
     --h--deriving (Eq, Show, Read) --Generic, Flat)
 
@@ -61,6 +67,7 @@ data WdP2f
     = WdP2f0
     | WdP2fDoorPosition Int
 
+deriveJSON defaultOptions ''SoundFilter
 deriveJSON defaultOptions ''ItCrWdWd
 deriveJSON defaultOptions ''WdWd
 deriveJSON defaultOptions ''WdP2