module Dodge.WorldEvent.Sound (
    originIDsAt,
    originsIDsAt,
) where

import Control.Lens
import Dodge.Data.World
import Dodge.SoundLogic
import Geometry.Data
import RandomHelp
import Sound.Data

originsIDsAt :: [SoundOrigin] -> [SoundID] -> Point2 -> World -> World
originsIDsAt sos sids p w = soundMultiFrom sos p sid Nothing $ set randGen g w
  where
    (sid, g) = _randGen w & runState (takeOne sids)

originIDsAt :: SoundOrigin -> [SoundID] -> Point2 -> World -> World
originIDsAt so sids p w = soundStart so p sid Nothing $ set randGen g w
  where
    (sid, g) = _randGen w & runState (takeOne sids)