21 lines
610 B
Haskell
21 lines
610 B
Haskell
module Dodge.WorldEvent.Sound
|
|
( originIDsAt
|
|
, originsIDsAt
|
|
) where
|
|
import Dodge.Data
|
|
import Dodge.SoundLogic
|
|
import Sound.Data
|
|
import Geometry.Data
|
|
import RandomHelp
|
|
|
|
import Control.Lens
|
|
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)
|