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

src/Dodge/Default/World.hs

@@ -1,6 +1,7 @@
 module Dodge.Default.World (defaultWorld) where
 
 --import Data.Graph.Inductive.Graph hiding ((&))
+import qualified Data.Set as S
 import qualified Data.Map as M
 import Dodge.Data.World
 import Geometry.Data
@@ -55,6 +56,7 @@ defaultWorld =
         , _gsZoning = mempty --Zoning IM.empty clZoneSize (zonePos _guPos)
         , _unpauseClock = 0
         , _coordinates = mempty
+        , _wSoundFilter = FilterBySoundOrigin $ S.singleton SpawnSound
         }
 
 defaultCWGen :: CWGen