80 lines
2.1 KiB
Haskell
80 lines
2.1 KiB
Haskell
module Dodge.SoundLogic where
|
|
import Dodge.Data
|
|
import Control.Lens
|
|
import qualified Data.Map as M
|
|
|
|
haltSound :: World -> World
|
|
haltSound w = w
|
|
|
|
pauseSound :: World -> World
|
|
pauseSound w = w
|
|
|
|
resumeSound :: World -> World
|
|
resumeSound w = w
|
|
|
|
soundOnce :: Int -> World -> World
|
|
soundOnce i = over soundQueue ((:) i)
|
|
|
|
soundOnceOrigin :: Int -> SoundOrigin -> World -> World
|
|
soundOnceOrigin sType so = over sounds (M.insertWith (flip const) so sound)
|
|
where
|
|
sound = Sound
|
|
{ _soundType = sType
|
|
, _soundTime = Nothing
|
|
, _soundFadeTime = 0
|
|
, _soundChannel = Nothing
|
|
, _soundPos = Nothing
|
|
}
|
|
|
|
soundFrom :: SoundOrigin -> Int -> Int -> Int -> World -> World
|
|
soundFrom so sType time fadeTime w = over sounds (M.insertWith f so sound) w
|
|
where
|
|
sound = Sound
|
|
{ _soundType = sType
|
|
, _soundTime = Just time
|
|
, _soundFadeTime = fadeTime
|
|
, _soundChannel = Nothing
|
|
, _soundPos = Nothing
|
|
}
|
|
f _ s = s {_soundTime = Just time, _soundFadeTime = fadeTime}
|
|
|
|
soundMultiFrom :: [SoundOrigin] -> Int -> Int -> Int -> World -> World
|
|
soundMultiFrom [] _ _ _ w = w
|
|
soundMultiFrom (so:sos) sType time fadeTime w
|
|
| so `M.member` _sounds w = soundMultiFrom sos sType time fadeTime w
|
|
| otherwise = over sounds (M.insert so sound) w
|
|
where sound = Sound { _soundType = sType
|
|
, _soundTime = Nothing
|
|
, _soundFadeTime = fadeTime
|
|
, _soundChannel = Nothing
|
|
, _soundPos = Nothing
|
|
}
|
|
|
|
|
|
stopSoundFrom :: SoundOrigin -> World -> World
|
|
stopSoundFrom so = over (sounds . ix so . soundTime) (fmap $ min 0)
|
|
|
|
reloadSound,putDownSound,pickUpSound,fireSound,grenadeBang,healSound,teleSound,twoStepSlowSound :: Int
|
|
clickSound = 1
|
|
reloadSound = 2
|
|
pickUpSound = 4
|
|
putDownSound = 5
|
|
fireSound = 6
|
|
grenadeBang = 7
|
|
tapQuiet = 8
|
|
twoStepSound = 9
|
|
healSound = 10
|
|
doorSound = 11
|
|
twoStepSlowSound = 12
|
|
knifeSound = 13
|
|
buzzSound = 14
|
|
hitSound = 15
|
|
autoGunSound = 16
|
|
shotgunSound = 17
|
|
teleSound = 18
|
|
longGunSound = 19
|
|
launcherSound = 20
|
|
smokeTrailSound = 21
|
|
foot1Sound = 22
|
|
foot2Sound = 23
|