22 lines
613 B
Haskell
22 lines
613 B
Haskell
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)
|