43 lines
1.1 KiB
Haskell
43 lines
1.1 KiB
Haskell
module Dodge.SoundLogic.Synonyms
|
|
where
|
|
|
|
clickSound , reloadSound , pickUpSound , putDownSound , fireSound , grenadeBang , tapQuiet , twoStepSound , healSound , doorSound , twoStepSlowSound , knifeSound , buzzSound , hitSound , autoGunSound , shotgunSound , teleSound , longGunSound , launcherSound , smokeTrailSound , foot1Sound , foot2Sound , drawWeaponSound , holsterWeaponSound :: 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
|
|
foamSpray :: Int
|
|
foamSpray = 41
|
|
foamSprayFadeOutSound :: Int
|
|
foamSprayFadeOutSound = 42
|
|
sineRaisePitchOneSecSound :: Int
|
|
sineRaisePitchOneSecSound = 43
|
|
sineRaisePitchTwoSecSound :: Int
|
|
sineRaisePitchTwoSecSound = 44
|
|
skwareFadeTwoSecSound :: Int
|
|
skwareFadeTwoSecSound = 45
|
|
|
|
drawWeaponSound = 4
|
|
holsterWeaponSound = 5
|
|
|
|
soundVolID :: Int -> Float
|
|
soundVolID _ = 10000
|