18 lines
508 B
Haskell
18 lines
508 B
Haskell
module Dodge.WorldEvent.Sound
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.SoundLogic
|
|
import System.Random
|
|
|
|
import Control.Lens
|
|
|
|
mkSoundBreakGlass :: Point2 -> World -> World
|
|
mkSoundBreakGlass p w = soundOnceOrigin soundid (GlassBreakSound 0) p $ set randGen g w
|
|
where
|
|
(soundid,g) = _randGen w & randomR (37,40)
|
|
|
|
mkSoundSplinterGlass :: Point2 -> World -> World
|
|
mkSoundSplinterGlass p w = soundOnceOrigin soundid (GlassBreakSound 1) p $ set randGen g w
|
|
where
|
|
(soundid,g) = _randGen w & randomR (33,36)
|