Refactor damages to materials

This commit is contained in:
2025-06-22 08:31:18 +01:00
parent df3fde5d3e
commit 9fa3e060d7
17 changed files with 576 additions and 609 deletions
+329 -319
View File
@@ -1,235 +1,240 @@
-- generated at 2025-06-09 10:19:06.449705157 UTC
-- generated at 2025-06-22 07:24:07.993044373 UTC
module Dodge.SoundLogic.ExternallyGeneratedSounds where
import Sound.Data
soundToVol :: SoundID -> Float
soundToVol v = case _getSoundID v of
0 -> 500
0 -> 200
1 -> 500
2 -> 500
3 -> 2000
4 -> 500
5 -> 1000
6 -> 40
7 -> 100
3 -> 500
4 -> 2000
5 -> 500
6 -> 1000
7 -> 40
8 -> 100
9 -> 500
10 -> 200
11 -> 500
12 -> 300
13 -> 100
14 -> 500
15 -> 1000
16 -> 40
17 -> 2000
18 -> 100
19 -> 50
20 -> 200
21 -> 50
22 -> 2000
23 -> 200
24 -> 40
25 -> 300
26 -> 500
27 -> 2000
28 -> 500
29 -> 100
30 -> 200
31 -> 1000
32 -> 100
9 -> 100
10 -> 500
11 -> 200
12 -> 500
13 -> 300
14 -> 100
15 -> 500
16 -> 1000
17 -> 40
18 -> 2000
19 -> 100
20 -> 50
21 -> 200
22 -> 50
23 -> 2000
24 -> 200
25 -> 40
26 -> 300
27 -> 500
28 -> 2000
29 -> 500
30 -> 100
31 -> 200
32 -> 1000
33 -> 100
34 -> 1000
34 -> 100
35 -> 1000
36 -> 40
37 -> 400
38 -> 2000
39 -> 100
40 -> 300
41 -> 50
42 -> 2000
43 -> 50
44 -> 1000
45 -> 8000
46 -> 2000
36 -> 1000
37 -> 40
38 -> 400
39 -> 2000
40 -> 100
41 -> 300
42 -> 50
43 -> 2000
44 -> 50
45 -> 1000
46 -> 8000
47 -> 2000
48 -> 1000
49 -> 2000
50 -> 100
51 -> 40
52 -> 40
53 -> 2000
54 -> 100
55 -> 500
56 -> 40
57 -> 300
58 -> 300
59 -> 100
60 -> 2000
61 -> 1000
62 -> 1000
48 -> 2000
49 -> 1000
50 -> 200
51 -> 2000
52 -> 100
53 -> 40
54 -> 40
55 -> 2000
56 -> 100
57 -> 500
58 -> 40
59 -> 300
60 -> 300
61 -> 100
62 -> 2000
63 -> 1000
64 -> 1000
65 -> 1000
66 -> 40
67 -> 50
68 -> 1000
69 -> 500
70 -> 500
71 -> 100
72 -> 1000
73 -> 20
74 -> 500
75 -> 300
76 -> 200
77 -> 500
78 -> 1000
79 -> 200
66 -> 1000
67 -> 1000
68 -> 40
69 -> 50
70 -> 1000
71 -> 500
72 -> 500
73 -> 100
74 -> 1000
75 -> 20
76 -> 500
77 -> 300
78 -> 200
79 -> 500
80 -> 1000
81 -> 2000
82 -> 500
83 -> 100
84 -> 1000
85 -> 300
86 -> 2000
87 -> 2000
88 -> 100
89 -> 500
90 -> 2000
91 -> 100
92 -> 300
93 -> 1000
94 -> 200
95 -> 100
96 -> 1000
97 -> 2000
81 -> 200
82 -> 1000
83 -> 2000
84 -> 500
85 -> 100
86 -> 1000
87 -> 300
88 -> 2000
89 -> 2000
90 -> 100
91 -> 500
92 -> 2000
93 -> 100
94 -> 300
95 -> 1000
96 -> 200
97 -> 100
98 -> 1000
99 -> 100
100 -> 200
101 -> 500
102 -> 100
103 -> 2000
104 -> 1000
99 -> 2000
100 -> 1000
101 -> 100
102 -> 200
103 -> 500
104 -> 100
105 -> 2000
106 -> 2000
107 -> 200
108 -> 100
106 -> 1000
107 -> 2000
108 -> 2000
109 -> 200
110 -> 100
111 -> 200
_ -> 50
soundToOnomato :: SoundID -> String
soundToOnomato v = case _getSoundID v of
0 -> "DEDUM"
1 -> "CUHRUP"
2 -> "SCREE"
3 -> "BRDBRDBRD"
4 -> "DEDEDA"
5 -> "CRNK"
6 -> "CLNK"
7 -> "SKWLCH"
8 -> "WRR"
9 -> "TINKLE"
10 -> "SKREL"
11 -> "TRINKL"
12 -> "BWAAH"
13 -> "SQLEE"
14 -> "DNDNDNDN"
15 -> "CRMBL"
16 -> "TIP"
17 -> "TATATA"
18 -> "SPRT"
19 -> "BLIH"
20 -> "SQWCH"
21 -> "HMM"
22 -> "PEW"
23 -> "CRAKLE"
24 -> "TAP"
25 -> "DWAAH"
26 -> "PRUM"
27 -> "BANGG"
28 -> "CRTINK"
29 -> "PHF"
30 -> "CRNCH"
31 -> "ZHM"
32 -> "CLCLH"
33 -> "THUD"
34 -> "TRWNG"
35 -> "CRASH"
36 -> "TAPTIP"
37 -> "CRNKCRNKCRNK"
38 -> "CHUGUGUG"
39 -> "SKWLL"
40 -> "WRRR"
41 -> "HSSS"
42 -> "BOOM"
43 -> "HSS"
44 -> "TAKH"
45 -> "RINGGG"
46 -> "CRH"
47 -> "UGGAUGGA"
48 -> "CRUMPLE"
49 -> "CREUH"
50 -> "SMACK"
51 -> "CLICK"
52 -> "TIPTOP"
53 -> "CRUH"
54 -> "CHNKCHNKCHUNK"
55 -> "CLKCLK"
56 -> "TIPTAP"
57 -> "TNKTNKTNK"
58 -> "CHPCHPCHP"
59 -> "SLP"
60 -> "SCREE"
61 -> "DHDHL"
62 -> "BRAP"
63 -> "CRSK"
64 -> "CRNKL"
65 -> "TRNKL"
66 -> "TAPP"
67 -> "SHUHP"
68 -> "CRUMBL"
69 -> "DEDEDUM"
70 -> "TAK"
71 -> "SPLRT"
72 -> "CRISH"
73 -> "SWSH"
74 -> "BIPBIPBIP"
75 -> "BEP"
76 -> "CRSKRL"
77 -> "KRTNKL"
78 -> "CRSNK"
79 -> "SHTCK"
80 -> "TTRKL"
81 -> "UGGAUGGA"
82 -> "DUDURAH"
83 -> "KKSQWL"
84 -> "CRMPL"
85 -> "BWEP"
86 -> "CHUGUGUG"
87 -> "BANG"
88 -> "SLPP"
89 -> "DEDA"
90 -> "WHSSH"
91 -> "HNH"
92 -> "BWAH"
93 -> "CRUNK"
94 -> "SQWLTCH"
95 -> "DRR"
96 -> "TRNKL"
97 -> "BRAP"
98 -> "BLPCHCH"
99 -> "SKLE"
100 -> "ZMM"
101 -> "WRRR"
102 -> "FWUMP"
103 -> "BRAHCHCH"
104 -> "BWMP"
105 -> "BRPBRPBRP"
106 -> "WE-OH"
107 -> "THCK"
108 -> "FHP"
109 -> "QWLPH"
0 -> "TING"
1 -> "DEDUM"
2 -> "CUHRUP"
3 -> "SCREE"
4 -> "BRDBRDBRD"
5 -> "DEDEDA"
6 -> "CRNK"
7 -> "CLNK"
8 -> "SKWLCH"
9 -> "WRR"
10 -> "TINKLE"
11 -> "SKREL"
12 -> "TRINKL"
13 -> "BWAAH"
14 -> "SQLEE"
15 -> "DNDNDNDN"
16 -> "CRMBL"
17 -> "TIP"
18 -> "TATATA"
19 -> "SPRT"
20 -> "BLIH"
21 -> "SQWCH"
22 -> "HMM"
23 -> "PEW"
24 -> "CRAKLE"
25 -> "TAP"
26 -> "DWAAH"
27 -> "PRUM"
28 -> "BANGG"
29 -> "CRTINK"
30 -> "PHF"
31 -> "CRNCH"
32 -> "ZHM"
33 -> "CLCLH"
34 -> "THUD"
35 -> "TRWNG"
36 -> "CRASH"
37 -> "TAPTIP"
38 -> "CRNKCRNKCRNK"
39 -> "CHUGUGUG"
40 -> "SKWLL"
41 -> "WRRR"
42 -> "HSSS"
43 -> "BOOM"
44 -> "HSS"
45 -> "TAKH"
46 -> "RINGGG"
47 -> "CRH"
48 -> "UGGAUGGA"
49 -> "CRUMPLE"
50 -> "TING"
51 -> "CREUH"
52 -> "SMACK"
53 -> "CLICK"
54 -> "TIPTOP"
55 -> "CRUH"
56 -> "CHNKCHNKCHUNK"
57 -> "CLKCLK"
58 -> "TIPTAP"
59 -> "TNKTNKTNK"
60 -> "CHPCHPCHP"
61 -> "SLP"
62 -> "SCREE"
63 -> "DHDHL"
64 -> "BRAP"
65 -> "CRSK"
66 -> "CRNKL"
67 -> "TRNKL"
68 -> "TAPP"
69 -> "SHUHP"
70 -> "CRUMBL"
71 -> "DEDEDUM"
72 -> "TAK"
73 -> "SPLRT"
74 -> "CRISH"
75 -> "SWSH"
76 -> "BIPBIPBIP"
77 -> "BEP"
78 -> "CRSKRL"
79 -> "KRTNKL"
80 -> "CRSNK"
81 -> "SHTCK"
82 -> "TTRKL"
83 -> "UGGAUGGA"
84 -> "DUDURAH"
85 -> "KKSQWL"
86 -> "CRMPL"
87 -> "BWEP"
88 -> "CHUGUGUG"
89 -> "BANG"
90 -> "SLPP"
91 -> "DEDA"
92 -> "WHSSH"
93 -> "HNH"
94 -> "BWAH"
95 -> "CRUNK"
96 -> "SQWLTCH"
97 -> "DRR"
98 -> "TRNKL"
99 -> "BRAP"
100 -> "BLPCHCH"
101 -> "SKLE"
102 -> "ZMM"
103 -> "WRRR"
104 -> "FWUMP"
105 -> "BRAHCHCH"
106 -> "BWMP"
107 -> "BRPBRPBRP"
108 -> "WE-OH"
109 -> "THCK"
110 -> "FHP"
111 -> "QWLPH"
_ -> error "unitialised sound"
soundPathList :: [String]
soundPathList =
[ "dedum.DEDUM.500.wav"
[ "ting1.TING.200.wav"
, "dedum.DEDUM.500.wav"
, "insert.CUHRUP.500.wav"
, "tone440sawtoothquiet.SCREE.500.wav"
, "mini1.BRDBRDBRD.2000.wav"
@@ -278,6 +283,7 @@ soundPathList =
, "seagullCry1.CRH.2000.wav"
, "seagullBark.UGGAUGGA.2000.wav"
, "stone3.CRUMPLE.1000.wav"
, "ting.TING.200.wav"
, "seagullCry2.CREUH.2000.wav"
, "hit1.SMACK.100.wav"
, "click1.CLICK.40.wav"
@@ -340,223 +346,227 @@ soundPathList =
, "whiteNoiseFadeIn.FHP.100.wav"
, "gut1.QWLPH.200.wav"
]
ting1S :: SoundID
ting1S = SoundID 0
dedumS :: SoundID
dedumS = SoundID 0
dedumS = SoundID 1
insertS :: SoundID
insertS = SoundID 1
insertS = SoundID 2
tone440sawtoothquietS :: SoundID
tone440sawtoothquietS = SoundID 2
tone440sawtoothquietS = SoundID 3
mini1S :: SoundID
mini1S = SoundID 3
mini1S = SoundID 4
dededaS :: SoundID
dededaS = SoundID 4
dededaS = SoundID 5
glassShat3S :: SoundID
glassShat3S = SoundID 5
glassShat3S = SoundID 6
tapQuietS :: SoundID
tapQuietS = SoundID 6
tapQuietS = SoundID 7
blood8S :: SoundID
blood8S = SoundID 7
blood8S = SoundID 8
fireS :: SoundID
fireS = SoundID 8
fireS = SoundID 9
smallGlass4S :: SoundID
smallGlass4S = SoundID 9
smallGlass4S = SoundID 10
gut4S :: SoundID
gut4S = SoundID 10
gut4S = SoundID 11
smallGlass1S :: SoundID
smallGlass1S = SoundID 11
smallGlass1S = SoundID 12
sineRaisePitchTwoSecS :: SoundID
sineRaisePitchTwoSecS = SoundID 12
sineRaisePitchTwoSecS = SoundID 13
blood7S :: SoundID
blood7S = SoundID 13
blood7S = SoundID 14
combineS :: SoundID
combineS = SoundID 14
combineS = SoundID 15
stone4S :: SoundID
stone4S = SoundID 15
stone4S = SoundID 16
foot1S :: SoundID
foot1S = SoundID 16
foot1S = SoundID 17
autoBS :: SoundID
autoBS = SoundID 17
autoBS = SoundID 18
blood2S :: SoundID
blood2S = SoundID 18
blood2S = SoundID 19
healS :: SoundID
healS = SoundID 19
healS = SoundID 20
gut3S :: SoundID
gut3S = SoundID 20
gut3S = SoundID 21
fridgeHumS :: SoundID
fridgeHumS = SoundID 21
fridgeHumS = SoundID 22
seagullWhistle1S :: SoundID
seagullWhistle1S = SoundID 22
seagullWhistle1S = SoundID 23
elecCrackleS :: SoundID
elecCrackleS = SoundID 23
elecCrackleS = SoundID 24
foot2S :: SoundID
foot2S = SoundID 24
foot2S = SoundID 25
skwareFadeTwoSecS :: SoundID
skwareFadeTwoSecS = SoundID 25
skwareFadeTwoSecS = SoundID 26
insertOneS :: SoundID
insertOneS = SoundID 26
insertOneS = SoundID 27
bangEchoS :: SoundID
bangEchoS = SoundID 27
bangEchoS = SoundID 28
smallGlass3S :: SoundID
smallGlass3S = SoundID 28
smallGlass3S = SoundID 29
whiteNoiseFadeOutS :: SoundID
whiteNoiseFadeOutS = SoundID 29
whiteNoiseFadeOutS = SoundID 30
gut2S :: SoundID
gut2S = SoundID 30
gut2S = SoundID 31
teleS :: SoundID
teleS = SoundID 31
teleS = SoundID 32
blood5S :: SoundID
blood5S = SoundID 32
blood5S = SoundID 33
hitS :: SoundID
hitS = SoundID 33
hitS = SoundID 34
metal7S :: SoundID
metal7S = SoundID 34
metal7S = SoundID 35
stone1S :: SoundID
stone1S = SoundID 35
stone1S = SoundID 36
twoStep1S :: SoundID
twoStep1S = SoundID 36
twoStep1S = SoundID 37
wrench1S :: SoundID
wrench1S = SoundID 37
wrench1S = SoundID 38
seagullChatterS :: SoundID
seagullChatterS = SoundID 38
seagullChatterS = SoundID 39
blood4S :: SoundID
blood4S = SoundID 39
blood4S = SoundID 40
fireFadeS :: SoundID
fireFadeS = SoundID 40
fireFadeS = SoundID 41
foamSprayLoopS :: SoundID
foamSprayLoopS = SoundID 41
foamSprayLoopS = SoundID 42
explosionS :: SoundID
explosionS = SoundID 42
explosionS = SoundID 43
foamSprayFadeOutS :: SoundID
foamSprayFadeOutS = SoundID 43
foamSprayFadeOutS = SoundID 44
tap2S :: SoundID
tap2S = SoundID 44
tap2S = SoundID 45
tinitusS :: SoundID
tinitusS = SoundID 45
tinitusS = SoundID 46
seagullCry1S :: SoundID
seagullCry1S = SoundID 46
seagullCry1S = SoundID 47
seagullBarkS :: SoundID
seagullBarkS = SoundID 47
seagullBarkS = SoundID 48
stone3S :: SoundID
stone3S = SoundID 48
stone3S = SoundID 49
tingS :: SoundID
tingS = SoundID 50
seagullCry2S :: SoundID
seagullCry2S = SoundID 49
seagullCry2S = SoundID 51
hit1S :: SoundID
hit1S = SoundID 50
hit1S = SoundID 52
click1S :: SoundID
click1S = SoundID 51
click1S = SoundID 53
twoStepSlowS :: SoundID
twoStepSlowS = SoundID 52
twoStepSlowS = SoundID 54
seagullCryS :: SoundID
seagullCryS = SoundID 53
seagullCryS = SoundID 55
crankSlowS :: SoundID
crankSlowS = SoundID 54
crankSlowS = SoundID 56
primeS :: SoundID
primeS = SoundID 55
primeS = SoundID 57
twoStepS :: SoundID
twoStepS = SoundID 56
twoStepS = SoundID 58
reloadS :: SoundID
reloadS = SoundID 57
reloadS = SoundID 59
reload1S :: SoundID
reload1S = SoundID 58
reload1S = SoundID 60
slapS :: SoundID
slapS = SoundID 59
slapS = SoundID 61
tone440sawtoothS :: SoundID
tone440sawtoothS = SoundID 60
tone440sawtoothS = SoundID 62
metal3S :: SoundID
metal3S = SoundID 61
metal3S = SoundID 63
tap3S :: SoundID
tap3S = SoundID 62
tap3S = SoundID 64
glassShat4S :: SoundID
glassShat4S = SoundID 63
glassShat4S = SoundID 65
glassShat2S :: SoundID
glassShat2S = SoundID 64
glassShat2S = SoundID 66
metal1S :: SoundID
metal1S = SoundID 65
metal1S = SoundID 67
foot3S :: SoundID
foot3S = SoundID 66
foot3S = SoundID 68
pickUpS :: SoundID
pickUpS = SoundID 67
pickUpS = SoundID 69
stone5S :: SoundID
stone5S = SoundID 68
stone5S = SoundID 70
dededumS :: SoundID
dededumS = SoundID 69
dededumS = SoundID 71
tap1S :: SoundID
tap1S = SoundID 70
tap1S = SoundID 72
blood1S :: SoundID
blood1S = SoundID 71
blood1S = SoundID 73
metal4S :: SoundID
metal4S = SoundID 72
metal4S = SoundID 74
knifeS :: SoundID
knifeS = SoundID 73
knifeS = SoundID 75
computerBeepingS :: SoundID
computerBeepingS = SoundID 74
computerBeepingS = SoundID 76
tone440S :: SoundID
tone440S = SoundID 75
tone440S = SoundID 77
gut6S :: SoundID
gut6S = SoundID 76
gut6S = SoundID 78
smallGlass2S :: SoundID
smallGlass2S = SoundID 77
smallGlass2S = SoundID 79
glassShat1S :: SoundID
glassShat1S = SoundID 78
glassShat1S = SoundID 80
disconnectItemS :: SoundID
disconnectItemS = SoundID 79
disconnectItemS = SoundID 81
metal5S :: SoundID
metal5S = SoundID 80
metal5S = SoundID 82
seagullBarkTransformedS :: SoundID
seagullBarkTransformedS = SoundID 81
seagullBarkTransformedS = SoundID 83
ejectS :: SoundID
ejectS = SoundID 82
ejectS = SoundID 84
blood3S :: SoundID
blood3S = SoundID 83
blood3S = SoundID 85
stone2S :: SoundID
stone2S = SoundID 84
stone2S = SoundID 86
tone440raiseS :: SoundID
tone440raiseS = SoundID 85
tone440raiseS = SoundID 87
seagullChatter1S :: SoundID
seagullChatter1S = SoundID 86
seagullChatter1S = SoundID 88
bangS :: SoundID
bangS = SoundID 87
bangS = SoundID 89
slap1S :: SoundID
slap1S = SoundID 88
slap1S = SoundID 90
dedaS :: SoundID
dedaS = SoundID 89
dedaS = SoundID 91
missileLaunchS :: SoundID
missileLaunchS = SoundID 90
missileLaunchS = SoundID 92
gruntS :: SoundID
gruntS = SoundID 91
gruntS = SoundID 93
sineRaisePitchOneSecS :: SoundID
sineRaisePitchOneSecS = SoundID 92
sineRaisePitchOneSecS = SoundID 94
metal2S :: SoundID
metal2S = SoundID 93
metal2S = SoundID 95
gut5S :: SoundID
gut5S = SoundID 94
gut5S = SoundID 96
slideDoorS :: SoundID
slideDoorS = SoundID 95
slideDoorS = SoundID 97
metal6S :: SoundID
metal6S = SoundID 96
metal6S = SoundID 98
autoGunS :: SoundID
autoGunS = SoundID 97
autoGunS = SoundID 99
oldMachineBootS :: SoundID
oldMachineBootS = SoundID 98
oldMachineBootS = SoundID 100
blood6S :: SoundID
blood6S = SoundID 99
blood6S = SoundID 101
buzzS :: SoundID
buzzS = SoundID 100
buzzS = SoundID 102
fireLoudS :: SoundID
fireLoudS = SoundID 101
fireLoudS = SoundID 103
tap4S :: SoundID
tap4S = SoundID 102
tap4S = SoundID 104
shotgunS :: SoundID
shotgunS = SoundID 103
shotgunS = SoundID 105
sawtoothFailS :: SoundID
sawtoothFailS = SoundID 104
sawtoothFailS = SoundID 106
miniS :: SoundID
miniS = SoundID 105
miniS = SoundID 107
seagullWhistleS :: SoundID
seagullWhistleS = SoundID 106
seagullWhistleS = SoundID 108
connectItemS :: SoundID
connectItemS = SoundID 107
connectItemS = SoundID 109
whiteNoiseFadeInS :: SoundID
whiteNoiseFadeInS = SoundID 108
whiteNoiseFadeInS = SoundID 110
gut1S :: SoundID
gut1S = SoundID 109
gut1S = SoundID 111