Allow for custom reloading sounds

This commit is contained in:
2022-06-21 22:21:18 +01:00
parent 53c8be0679
commit 029b6daf8e
25 changed files with 339 additions and 219 deletions
+179 -159
View File
@@ -1,4 +1,4 @@
-- generated at 2022-06-19 19:56:56.88468711 UTC
-- generated at 2022-06-21 17:36:17.190436966 UTC
module Dodge.SoundLogic.ExternallyGeneratedSounds where
import Sound.Data
soundToVol :: SoundID -> Float
@@ -21,62 +21,66 @@ soundToVol v = case _getSoundID v of
15 -> 200
16 -> 40
17 -> 300
18 -> 2000
19 -> 500
20 -> 100
21 -> 1000
22 -> 100
23 -> 1000
24 -> 40
25 -> 2000
26 -> 50
27 -> 2000
28 -> 50
29 -> 1000
30 -> 8000
31 -> 2000
18 -> 500
19 -> 2000
20 -> 500
21 -> 100
22 -> 1000
23 -> 100
24 -> 1000
25 -> 40
26 -> 2000
27 -> 50
28 -> 2000
29 -> 50
30 -> 1000
31 -> 8000
32 -> 2000
33 -> 1000
34 -> 2000
35 -> 100
36 -> 40
33 -> 2000
34 -> 1000
35 -> 2000
36 -> 100
37 -> 40
38 -> 2000
39 -> 100
40 -> 40
41 -> 300
38 -> 40
39 -> 2000
40 -> 100
41 -> 40
42 -> 300
43 -> 2000
44 -> 1000
43 -> 300
44 -> 2000
45 -> 1000
46 -> 1000
47 -> 40
48 -> 50
49 -> 500
47 -> 1000
48 -> 40
49 -> 50
50 -> 500
51 -> 1000
52 -> 20
53 -> 500
54 -> 300
55 -> 500
56 -> 1000
57 -> 2000
58 -> 2000
51 -> 500
52 -> 1000
53 -> 20
54 -> 500
55 -> 300
56 -> 500
57 -> 500
58 -> 1000
59 -> 500
60 -> 2000
61 -> 100
62 -> 300
63 -> 1000
61 -> 2000
62 -> 500
63 -> 2000
64 -> 100
65 -> 2000
65 -> 300
66 -> 1000
67 -> 200
68 -> 500
69 -> 100
70 -> 2000
71 -> 2000
72 -> 2000
73 -> 100
67 -> 100
68 -> 2000
69 -> 1000
70 -> 200
71 -> 500
72 -> 100
73 -> 2000
74 -> 2000
75 -> 2000
76 -> 500
77 -> 100
_ -> 50
soundToOnomato :: SoundID -> String
soundToOnomato v = case _getSoundID v of
@@ -98,62 +102,66 @@ soundToOnomato v = case _getSoundID v of
15 -> "CRAKLE"
16 -> "TAP"
17 -> "DWAAH"
18 -> "BANGG"
19 -> "CRTINK"
20 -> "PHF"
21 -> "ZHM"
22 -> "THUD"
23 -> "CRASH"
24 -> "TAPTIP"
25 -> "CHUGUGUG"
26 -> "HSSS"
27 -> "BOOM"
28 -> "HSS"
29 -> "TAKH"
30 -> "RINGGG"
31 -> "CRH"
32 -> "UGGAUGGA"
33 -> "CRUMPLE"
34 -> "CREUH"
35 -> "SMACK"
36 -> "CLICK"
37 -> "TIPTOP"
38 -> "CRUH"
39 -> "CHNKCHNKCHUNK"
40 -> "TIPTAP"
41 -> "TNKTNKTNK"
42 -> "CHPCHPCHP"
43 -> "SCREE"
44 -> "BRAP"
45 -> "CRSK"
46 -> "CRNKL"
47 -> "TAPP"
48 -> "SHUHP"
49 -> "DEDEDUM"
50 -> "TAK"
51 -> "CRISH"
52 -> "SWSH"
53 -> "BIPBIPBIP"
54 -> "BEP"
55 -> "KRTNKL"
56 -> "CRSNK"
57 -> "CHUGUGUG"
58 -> "BANG"
59 -> "DEDA"
60 -> "WHSSH"
61 -> "HNH"
62 -> "BWAH"
63 -> "CRUNK"
64 -> "DRR"
65 -> "BRAP"
66 -> "BLPCHCH"
67 -> "ZMM"
68 -> "WRRR"
69 -> "FWUMP"
70 -> "BRAHCHCH"
71 -> "BRPBRPBRP"
72 -> "WE-OH"
73 -> "FHP"
18 -> "PRUM"
19 -> "BANGG"
20 -> "CRTINK"
21 -> "PHF"
22 -> "ZHM"
23 -> "THUD"
24 -> "CRASH"
25 -> "TAPTIP"
26 -> "CHUGUGUG"
27 -> "HSSS"
28 -> "BOOM"
29 -> "HSS"
30 -> "TAKH"
31 -> "RINGGG"
32 -> "CRH"
33 -> "UGGAUGGA"
34 -> "CRUMPLE"
35 -> "CREUH"
36 -> "SMACK"
37 -> "CLICK"
38 -> "TIPTOP"
39 -> "CRUH"
40 -> "CHNKCHNKCHUNK"
41 -> "TIPTAP"
42 -> "TNKTNKTNK"
43 -> "CHPCHPCHP"
44 -> "SCREE"
45 -> "BRAP"
46 -> "CRSK"
47 -> "CRNKL"
48 -> "TAPP"
49 -> "SHUHP"
50 -> "DEDEDUM"
51 -> "TAK"
52 -> "CRISH"
53 -> "SWSH"
54 -> "BIPBIPBIP"
55 -> "BEP"
56 -> "CLIKCLIK"
57 -> "KRTNKL"
58 -> "CRSNK"
59 -> "DUDURAH"
60 -> "CHUGUGUG"
61 -> "BANG"
62 -> "DEDA"
63 -> "WHSSH"
64 -> "HNH"
65 -> "BWAH"
66 -> "CRUNK"
67 -> "DRR"
68 -> "BRAP"
69 -> "BLPCHCH"
70 -> "ZMM"
71 -> "WRRR"
72 -> "FWUMP"
73 -> "BRAHCHCH"
74 -> "BRPBRPBRP"
75 -> "WE-OH"
76 -> "CUHRAM"
77 -> "FHP"
_ -> error "unitialised sound"
soundPathList :: [String]
soundPathList =
@@ -175,6 +183,7 @@ soundPathList =
, "elecCrackle.CRAKLE.200.wav"
, "foot2.TAP.40.wav"
, "skwareFadeTwoSec.DWAAH.300.wav"
, "insertOne.PRUM.500.wav"
, "bangEcho.BANGG.2000.wav"
, "smallGlass3.CRTINK.500.wav"
, "whiteNoiseFadeOut.PHF.100.wav"
@@ -212,8 +221,10 @@ soundPathList =
, "knife.SWSH.20.wav"
, "computerBeeping.BIPBIPBIP.500.wav"
, "tone440.BEP.300.wav"
, "prime.CLIKCLIK.500.wav"
, "smallGlass2.KRTNKL.500.wav"
, "glassShat1.CRSNK.1000.wav"
, "eject.DUDURAH.500.wav"
, "seagullChatter1.CHUGUGUG.2000.wav"
, "bang.BANG.2000.wav"
, "deda.DEDA.500.wav"
@@ -230,6 +241,7 @@ soundPathList =
, "shotgun.BRAHCHCH.2000.wav"
, "mini.BRPBRPBRP.2000.wav"
, "seagullWhistle.WE-OH.2000.wav"
, "insert.CUHRAM.500.wav"
, "whiteNoiseFadeIn.FHP.100.wav"
]
dedumS :: SoundID
@@ -268,115 +280,123 @@ foot2S :: SoundID
foot2S = SoundID 16
skwareFadeTwoSecS :: SoundID
skwareFadeTwoSecS = SoundID 17
insertOneS :: SoundID
insertOneS = SoundID 18
bangEchoS :: SoundID
bangEchoS = SoundID 18
bangEchoS = SoundID 19
smallGlass3S :: SoundID
smallGlass3S = SoundID 19
smallGlass3S = SoundID 20
whiteNoiseFadeOutS :: SoundID
whiteNoiseFadeOutS = SoundID 20
whiteNoiseFadeOutS = SoundID 21
teleS :: SoundID
teleS = SoundID 21
teleS = SoundID 22
hitS :: SoundID
hitS = SoundID 22
hitS = SoundID 23
stone1S :: SoundID
stone1S = SoundID 23
stone1S = SoundID 24
twoStep1S :: SoundID
twoStep1S = SoundID 24
twoStep1S = SoundID 25
seagullChatterS :: SoundID
seagullChatterS = SoundID 25
seagullChatterS = SoundID 26
foamSprayLoopS :: SoundID
foamSprayLoopS = SoundID 26
foamSprayLoopS = SoundID 27
explosionS :: SoundID
explosionS = SoundID 27
explosionS = SoundID 28
foamSprayFadeOutS :: SoundID
foamSprayFadeOutS = SoundID 28
foamSprayFadeOutS = SoundID 29
tap2S :: SoundID
tap2S = SoundID 29
tap2S = SoundID 30
tinitusS :: SoundID
tinitusS = SoundID 30
tinitusS = SoundID 31
seagullCry1S :: SoundID
seagullCry1S = SoundID 31
seagullCry1S = SoundID 32
seagullBarkS :: SoundID
seagullBarkS = SoundID 32
seagullBarkS = SoundID 33
stone3S :: SoundID
stone3S = SoundID 33
stone3S = SoundID 34
seagullCry2S :: SoundID
seagullCry2S = SoundID 34
seagullCry2S = SoundID 35
hit1S :: SoundID
hit1S = SoundID 35
hit1S = SoundID 36
click1S :: SoundID
click1S = SoundID 36
click1S = SoundID 37
twoStepSlowS :: SoundID
twoStepSlowS = SoundID 37
twoStepSlowS = SoundID 38
seagullCryS :: SoundID
seagullCryS = SoundID 38
seagullCryS = SoundID 39
crankSlowS :: SoundID
crankSlowS = SoundID 39
crankSlowS = SoundID 40
twoStepS :: SoundID
twoStepS = SoundID 40
twoStepS = SoundID 41
reloadS :: SoundID
reloadS = SoundID 41
reloadS = SoundID 42
reload1S :: SoundID
reload1S = SoundID 42
reload1S = SoundID 43
tone440sawtoothS :: SoundID
tone440sawtoothS = SoundID 43
tone440sawtoothS = SoundID 44
tap3S :: SoundID
tap3S = SoundID 44
tap3S = SoundID 45
glassShat4S :: SoundID
glassShat4S = SoundID 45
glassShat4S = SoundID 46
glassShat2S :: SoundID
glassShat2S = SoundID 46
glassShat2S = SoundID 47
foot3S :: SoundID
foot3S = SoundID 47
foot3S = SoundID 48
pickUpS :: SoundID
pickUpS = SoundID 48
pickUpS = SoundID 49
dededumS :: SoundID
dededumS = SoundID 49
dededumS = SoundID 50
tap1S :: SoundID
tap1S = SoundID 50
tap1S = SoundID 51
metal4S :: SoundID
metal4S = SoundID 51
metal4S = SoundID 52
knifeS :: SoundID
knifeS = SoundID 52
knifeS = SoundID 53
computerBeepingS :: SoundID
computerBeepingS = SoundID 53
computerBeepingS = SoundID 54
tone440S :: SoundID
tone440S = SoundID 54
tone440S = SoundID 55
primeS :: SoundID
primeS = SoundID 56
smallGlass2S :: SoundID
smallGlass2S = SoundID 55
smallGlass2S = SoundID 57
glassShat1S :: SoundID
glassShat1S = SoundID 56
glassShat1S = SoundID 58
ejectS :: SoundID
ejectS = SoundID 59
seagullChatter1S :: SoundID
seagullChatter1S = SoundID 57
seagullChatter1S = SoundID 60
bangS :: SoundID
bangS = SoundID 58
bangS = SoundID 61
dedaS :: SoundID
dedaS = SoundID 59
dedaS = SoundID 62
missileLaunchS :: SoundID
missileLaunchS = SoundID 60
missileLaunchS = SoundID 63
gruntS :: SoundID
gruntS = SoundID 61
gruntS = SoundID 64
sineRaisePitchOneSecS :: SoundID
sineRaisePitchOneSecS = SoundID 62
sineRaisePitchOneSecS = SoundID 65
metal2S :: SoundID
metal2S = SoundID 63
metal2S = SoundID 66
slideDoorS :: SoundID
slideDoorS = SoundID 64
slideDoorS = SoundID 67
autoGunS :: SoundID
autoGunS = SoundID 65
autoGunS = SoundID 68
oldMachineBootS :: SoundID
oldMachineBootS = SoundID 66
oldMachineBootS = SoundID 69
buzzS :: SoundID
buzzS = SoundID 67
buzzS = SoundID 70
fireLoudS :: SoundID
fireLoudS = SoundID 68
fireLoudS = SoundID 71
tap4S :: SoundID
tap4S = SoundID 69
tap4S = SoundID 72
shotgunS :: SoundID
shotgunS = SoundID 70
shotgunS = SoundID 73
miniS :: SoundID
miniS = SoundID 71
miniS = SoundID 74
seagullWhistleS :: SoundID
seagullWhistleS = SoundID 72
seagullWhistleS = SoundID 75
insertS :: SoundID
insertS = SoundID 76
whiteNoiseFadeInS :: SoundID
whiteNoiseFadeInS = SoundID 73
whiteNoiseFadeInS = SoundID 77