module Dodge.SoundSelection (newSoundsToPlay) where

import Sound.Data
import Dodge.Data.Universe
import qualified Data.Map.Strict as M
import Control.Lens

newSoundsToPlay :: Universe -> M.Map SoundOrigin Sound
newSoundsToPlay u = case u ^. uvWorld . wSoundFilter of
    NoSoundFilter -> u ^. uvWorld . toPlaySounds
    FilterBySoundOrigin ks -> (u ^. uvWorld . toPlaySounds) `M.restrictKeys` ks