Add basic vocalizations to chase creatures

This commit is contained in:
2021-11-18 01:46:37 +00:00
parent 5949ad2b3d
commit f6d5d5a201
34 changed files with 525 additions and 329 deletions
@@ -0,0 +1,317 @@
-- generated at 2021-11-18 01:13:04.234031373 UTC
module Dodge.SoundLogic.ExternallyGeneratedSounds where
import Sound.Data
soundToVol :: SoundID -> Float
soundToVol v = case _getSoundID v of
0 -> 5000
1 -> 8000
2 -> 8000
3 -> 5000
4 -> 5000
5 -> 5000
6 -> 3000
7 -> 3000
8 -> 4000
9 -> 5000
10 -> 10000
11 -> 8000
12 -> 8000
13 -> 8000
14 -> 8000
15 -> 10000
16 -> 3000
17 -> 4000
18 -> 5000
19 -> 5000
20 -> 20000
21 -> 4000
22 -> 10000
23 -> 8000
24 -> 4000
25 -> 2000
26 -> 6000
27 -> 500
28 -> 5000
29 -> 8000
30 -> 8000
31 -> 8000
32 -> 5000
33 -> 8000
34 -> 4000
35 -> 3000
36 -> 8000
37 -> 2000
38 -> 10000
39 -> 5000
40 -> 2000
41 -> 3000
42 -> 12000
43 -> 5000
44 -> 10000
45 -> 12000
46 -> 2000
47 -> 3000
48 -> 8000
49 -> 5000
50 -> 2000
51 -> 3000
52 -> 10000
53 -> 10000
54 -> 3000
55 -> 15000
56 -> 10000
57 -> 3000
58 -> 15000
59 -> 10000
60 -> 8000
_ -> 50
soundToOnomato :: SoundID -> String
soundToOnomato v = case _getSoundID v of
0 -> "HNH"
1 -> "CRNKL"
2 -> "ZMM"
3 -> "WE-OH"
4 -> "UGGAUGGA"
5 -> "KRTNKL"
6 -> "DWAAH"
7 -> "BWAH"
8 -> "TIPTOP"
9 -> "TINKLE"
10 -> "TATATA"
11 -> "CRSK"
12 -> "CRNK"
13 -> "TAKH"
14 -> "CRUNK"
15 -> "SCREE"
16 -> "TNKTNKTNK"
17 -> "TIPTAP"
18 -> "WRR"
19 -> "HSS"
20 -> "BOOM"
21 -> "CLNK"
22 -> "BRAP"
23 -> "CRSNK"
24 -> "TAPP"
25 -> "BLIH"
26 -> "TAPTIP"
27 -> "CLICK"
28 -> "FWUMP"
29 -> "RINGGG"
30 -> "BRAP"
31 -> "CRUMPLE"
32 -> "TRINKL"
33 -> "TAK"
34 -> "SMACK"
35 -> "DRR"
36 -> "CRASH"
37 -> "SWSH"
38 -> "CRAKLE"
39 -> "CRTINK"
40 -> "FHP"
41 -> "CHPCHPCHP"
42 -> "BRPBRPBRP"
43 -> "CHNKCHNKCHUNK"
44 -> "WRRR"
45 -> "BRDBRDBRD"
46 -> "PHF"
47 -> "BWAAH"
48 -> "BEP"
49 -> "HSSS"
50 -> "SHUHP"
51 -> "THUD"
52 -> "WHSSH"
53 -> "BRAHCHCH"
54 -> "TIP"
55 -> "BANGG"
56 -> "ZHM"
57 -> "TAP"
58 -> "BANG"
59 -> "CHUGUGUG"
60 -> "CRISH"
_ -> error "unitialised sound"
soundPathList :: [String]
soundPathList =
[ "grunt.HNH.5000.wav"
, "glassShat2.CRNKL.8000.wav"
, "buzz.ZMM.8000.wav"
, "seagullWhistle.WE-OH.5000.wav"
, "seagullBark.UGGAUGGA.5000.wav"
, "smallGlass2.KRTNKL.5000.wav"
, "skwareFadeTwoSec.DWAAH.3000.wav"
, "sineRaisePitchOneSec.BWAH.3000.wav"
, "twoStepSlow.TIPTOP.4000.wav"
, "smallGlass4.TINKLE.5000.wav"
, "autoB.TATATA.10000.wav"
, "glassShat4.CRSK.8000.wav"
, "glassShat3.CRNK.8000.wav"
, "tap2.TAKH.8000.wav"
, "impact2.CRUNK.8000.wav"
, "tone440sawtooth.SCREE.10000.wav"
, "reload.TNKTNKTNK.3000.wav"
, "twoStep.TIPTAP.4000.wav"
, "fire.WRR.5000.wav"
, "foamSprayFadeOut.HSS.5000.wav"
, "explosion.BOOM.20000.wav"
, "tapQuiet.CLNK.4000.wav"
, "autoGun.BRAP.10000.wav"
, "glassShat1.CRSNK.8000.wav"
, "foot3.TAPP.4000.wav"
, "heal.BLIH.2000.wav"
, "twoStep1.TAPTIP.6000.wav"
, "click1.CLICK.500.wav"
, "tap4.FWUMP.5000.wav"
, "tinitus.RINGGG.8000.wav"
, "tap3.BRAP.8000.wav"
, "impact3.CRUMPLE.8000.wav"
, "smallGlass1.TRINKL.5000.wav"
, "tap1.TAK.8000.wav"
, "hit1.SMACK.4000.wav"
, "slideDoor.DRR.3000.wav"
, "impact1.CRASH.8000.wav"
, "knife.SWSH.2000.wav"
, "elecCrackle.CRAKLE.10000.wav"
, "smallGlass3.CRTINK.5000.wav"
, "whiteNoiseFadeIn.FHP.2000.wav"
, "reload1.CHPCHPCHP.3000.wav"
, "mini.BRPBRPBRP.12000.wav"
, "crankSlow.CHNKCHNKCHUNK.5000.wav"
, "fireLoud.WRRR.10000.wav"
, "mini1.BRDBRDBRD.12000.wav"
, "whiteNoiseFadeOut.PHF.2000.wav"
, "sineRaisePitchTwoSec.BWAAH.3000.wav"
, "tone440.BEP.8000.wav"
, "foamSprayLoop.HSSS.5000.wav"
, "pickUp.SHUHP.2000.wav"
, "hit.THUD.3000.wav"
, "missileLaunch.WHSSH.10000.wav"
, "shotgun.BRAHCHCH.10000.wav"
, "foot1.TIP.3000.wav"
, "bangEcho.BANGG.15000.wav"
, "tele.ZHM.10000.wav"
, "foot2.TAP.3000.wav"
, "bang.BANG.15000.wav"
, "seagullChatter.CHUGUGUG.10000.wav"
, "impact4.CRISH.8000.wav"
]
gruntS :: SoundID
gruntS = SoundID 0
glassShat2S :: SoundID
glassShat2S = SoundID 1
buzzS :: SoundID
buzzS = SoundID 2
seagullWhistleS :: SoundID
seagullWhistleS = SoundID 3
seagullBarkS :: SoundID
seagullBarkS = SoundID 4
smallGlass2S :: SoundID
smallGlass2S = SoundID 5
skwareFadeTwoSecS :: SoundID
skwareFadeTwoSecS = SoundID 6
sineRaisePitchOneSecS :: SoundID
sineRaisePitchOneSecS = SoundID 7
twoStepSlowS :: SoundID
twoStepSlowS = SoundID 8
smallGlass4S :: SoundID
smallGlass4S = SoundID 9
autoBS :: SoundID
autoBS = SoundID 10
glassShat4S :: SoundID
glassShat4S = SoundID 11
glassShat3S :: SoundID
glassShat3S = SoundID 12
tap2S :: SoundID
tap2S = SoundID 13
impact2S :: SoundID
impact2S = SoundID 14
tone440sawtoothS :: SoundID
tone440sawtoothS = SoundID 15
reloadS :: SoundID
reloadS = SoundID 16
twoStepS :: SoundID
twoStepS = SoundID 17
fireS :: SoundID
fireS = SoundID 18
foamSprayFadeOutS :: SoundID
foamSprayFadeOutS = SoundID 19
explosionS :: SoundID
explosionS = SoundID 20
tapQuietS :: SoundID
tapQuietS = SoundID 21
autoGunS :: SoundID
autoGunS = SoundID 22
glassShat1S :: SoundID
glassShat1S = SoundID 23
foot3S :: SoundID
foot3S = SoundID 24
healS :: SoundID
healS = SoundID 25
twoStep1S :: SoundID
twoStep1S = SoundID 26
click1S :: SoundID
click1S = SoundID 27
tap4S :: SoundID
tap4S = SoundID 28
tinitusS :: SoundID
tinitusS = SoundID 29
tap3S :: SoundID
tap3S = SoundID 30
impact3S :: SoundID
impact3S = SoundID 31
smallGlass1S :: SoundID
smallGlass1S = SoundID 32
tap1S :: SoundID
tap1S = SoundID 33
hit1S :: SoundID
hit1S = SoundID 34
slideDoorS :: SoundID
slideDoorS = SoundID 35
impact1S :: SoundID
impact1S = SoundID 36
knifeS :: SoundID
knifeS = SoundID 37
elecCrackleS :: SoundID
elecCrackleS = SoundID 38
smallGlass3S :: SoundID
smallGlass3S = SoundID 39
whiteNoiseFadeInS :: SoundID
whiteNoiseFadeInS = SoundID 40
reload1S :: SoundID
reload1S = SoundID 41
miniS :: SoundID
miniS = SoundID 42
crankSlowS :: SoundID
crankSlowS = SoundID 43
fireLoudS :: SoundID
fireLoudS = SoundID 44
mini1S :: SoundID
mini1S = SoundID 45
whiteNoiseFadeOutS :: SoundID
whiteNoiseFadeOutS = SoundID 46
sineRaisePitchTwoSecS :: SoundID
sineRaisePitchTwoSecS = SoundID 47
tone440S :: SoundID
tone440S = SoundID 48
foamSprayLoopS :: SoundID
foamSprayLoopS = SoundID 49
pickUpS :: SoundID
pickUpS = SoundID 50
hitS :: SoundID
hitS = SoundID 51
missileLaunchS :: SoundID
missileLaunchS = SoundID 52
shotgunS :: SoundID
shotgunS = SoundID 53
foot1S :: SoundID
foot1S = SoundID 54
bangEchoS :: SoundID
bangEchoS = SoundID 55
teleS :: SoundID
teleS = SoundID 56
foot2S :: SoundID
foot2S = SoundID 57
bangS :: SoundID
bangS = SoundID 58
seagullChatterS :: SoundID
seagullChatterS = SoundID 59
impact4S :: SoundID
impact4S = SoundID 60