justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add sound queue when on chasm edge

Browse Source
This commit is contained in:
justin
2025-07-30 14:01:56 +01:00
parent d1346b855f
commit 7110ddb7a6
16 changed files with 401 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs
+68 -63
View File
@@ -1,4 +1,4 @@
-- generated at 2025-07-26 12:49:22.540764534 UTC
-- generated at 2025-07-30 11:38:32.680040921 UTC
module Dodge.SoundLogic.ExternallyGeneratedSounds where
import Sound.Data
soundToVol :: SoundID -> Float
@@ -124,27 +124,28 @@ soundToVol v = case _getSoundID v of
118 -> 100
119 -> 300
120 -> 1000
121 -> 200
122 -> 100
123 -> 200
124 -> 1000
125 -> 2000
126 -> 200
127 -> 1000
128 -> 100
129 -> 200
130 -> 500
131 -> 100
132 -> 2000
133 -> 200
134 -> 300
135 -> 1000
136 -> 2000
121 -> 50
122 -> 200
123 -> 100
124 -> 200
125 -> 1000
126 -> 2000
127 -> 200
128 -> 1000
129 -> 100
130 -> 200
131 -> 500
132 -> 100
133 -> 2000
134 -> 200
135 -> 300
136 -> 1000
137 -> 2000
138 -> 250
139 -> 200
140 -> 100
141 -> 200
138 -> 2000
139 -> 250
140 -> 200
141 -> 100
142 -> 200
_ -> 50
soundToOnomato :: SoundID -> String
soundToOnomato v = case _getSoundID v of
@@ -269,27 +270,28 @@ soundToOnomato v = case _getSoundID v of
118 -> "HNH"
119 -> "BWAH"
120 -> "CRUNK"
121 -> "SQWLTCH"
122 -> "DRR"
123 -> "WHH"
124 -> "TRNKL"
125 -> "BRAP"
126 -> "WHR"
127 -> "BLPCHCH"
128 -> "SKLE"
129 -> "ZMM"
130 -> "WRRR"
131 -> "FWUMP"
132 -> "BRAHCHCH"
133 -> "TING"
134 -> "WHRR"
135 -> "BWMP"
136 -> "BRPBRPBRP"
137 -> "WE-OH"
138 -> "WHRHH"
139 -> "THCK"
140 -> "FHP"
141 -> "QWLPH"
121 -> "FHFH"
122 -> "SQWLTCH"
123 -> "DRR"
124 -> "WHH"
125 -> "TRNKL"
126 -> "BRAP"
127 -> "WHR"
128 -> "BLPCHCH"
129 -> "SKLE"
130 -> "ZMM"
131 -> "WRRR"
132 -> "FWUMP"
133 -> "BRAHCHCH"
134 -> "TING"
135 -> "WHRR"
136 -> "BWMP"
137 -> "BRPBRPBRP"
138 -> "WE-OH"
139 -> "WHRHH"
140 -> "THCK"
141 -> "FHP"
142 -> "QWLPH"
_ -> error "unitialised sound"
soundPathList :: [String]
soundPathList =
@@ -414,6 +416,7 @@ soundPathList =
, "grunt.HNH.100.wav"
, "sineRaisePitchOneSec.BWAH.300.wav"
, "metal2.CRUNK.1000.wav"
, "debris.FHFH.50.wav"
, "gut5.SQWLTCH.200.wav"
, "slideDoor.DRR.100.wav"
, "whirdown2.WHH.200.wav"
@@ -678,45 +681,47 @@ sineRaisePitchOneSecS :: SoundID
sineRaisePitchOneSecS = SoundID 119
metal2S :: SoundID
metal2S = SoundID 120
debrisS :: SoundID
debrisS = SoundID 121
gut5S :: SoundID
gut5S = SoundID 121
gut5S = SoundID 122
slideDoorS :: SoundID
slideDoorS = SoundID 122
slideDoorS = SoundID 123
whirdown2S :: SoundID
whirdown2S = SoundID 123
whirdown2S = SoundID 124
metal6S :: SoundID
metal6S = SoundID 124
metal6S = SoundID 125
autoGunS :: SoundID
autoGunS = SoundID 125
autoGunS = SoundID 126
whirdownSmall1S :: SoundID
whirdownSmall1S = SoundID 126
whirdownSmall1S = SoundID 127
oldMachineBootS :: SoundID
oldMachineBootS = SoundID 127
oldMachineBootS = SoundID 128
blood6S :: SoundID
blood6S = SoundID 128
blood6S = SoundID 129
buzzS :: SoundID
buzzS = SoundID 129
buzzS = SoundID 130
fireLoudS :: SoundID
fireLoudS = SoundID 130
fireLoudS = SoundID 131
tap4S :: SoundID
tap4S = SoundID 131
tap4S = SoundID 132
shotgunS :: SoundID
shotgunS = SoundID 132
shotgunS = SoundID 133
ting5S :: SoundID
ting5S = SoundID 133
ting5S = SoundID 134
whirS :: SoundID
whirS = SoundID 134
whirS = SoundID 135
sawtoothFailS :: SoundID
sawtoothFailS = SoundID 135
sawtoothFailS = SoundID 136
miniS :: SoundID
miniS = SoundID 136
miniS = SoundID 137
seagullWhistleS :: SoundID
seagullWhistleS = SoundID 137
seagullWhistleS = SoundID 138
whirdownS :: SoundID
whirdownS = SoundID 138
whirdownS = SoundID 139
connectItemS :: SoundID
connectItemS = SoundID 139
connectItemS = SoundID 140
whiteNoiseFadeInS :: SoundID
whiteNoiseFadeInS = SoundID 140
whiteNoiseFadeInS = SoundID 141
gut1S :: SoundID
gut1S = SoundID 141
gut1S = SoundID 142