Add whirdown for machine pistol

src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs

@@ -1,4 +1,4 @@
--- generated at 2025-06-26 00:05:44.195128752 UTC
+-- generated at 2025-06-26 00:25:02.708688263 UTC
 module Dodge.SoundLogic.ExternallyGeneratedSounds where
 import Sound.Data
 soundToVol :: SoundID -> Float
@@ -130,9 +130,10 @@ soundToVol v = case _getSoundID v of
     124 -> 1000
     125 -> 2000
     126 -> 2000
-    127 -> 200
-    128 -> 100
-    129 -> 200
+    127 -> 250
+    128 -> 200
+    129 -> 100
+    130 -> 200
     _ -> 50
 soundToOnomato :: SoundID -> String
 soundToOnomato v = case _getSoundID v of
@@ -263,9 +264,10 @@ soundToOnomato v = case _getSoundID v of
     124 -> "BWMP"
     125 -> "BRPBRPBRP"
     126 -> "WE-OH"
-    127 -> "THCK"
-    128 -> "FHP"
-    129 -> "QWLPH"
+    127 -> "WHRHH"
+    128 -> "THCK"
+    129 -> "FHP"
+    130 -> "QWLPH"
     _ -> error "unitialised sound"
 soundPathList :: [String]
 soundPathList =
@@ -396,6 +398,7 @@ soundPathList =
     , "sawtoothFail.BWMP.1000.wav"
     , "mini.BRPBRPBRP.2000.wav"
     , "seagullWhistle.WE-OH.2000.wav"
+    , "whirdown.WHRHH.250.wav"
     , "connectItem.THCK.200.wav"
     , "whiteNoiseFadeIn.FHP.100.wav"
     , "gut1.QWLPH.200.wav"
@@ -654,9 +657,11 @@ miniS :: SoundID
 miniS = SoundID 125
 seagullWhistleS :: SoundID
 seagullWhistleS = SoundID 126
+whirdownS :: SoundID
+whirdownS = SoundID 127
 connectItemS :: SoundID
-connectItemS = SoundID 127
+connectItemS = SoundID 128
 whiteNoiseFadeInS :: SoundID
-whiteNoiseFadeInS = SoundID 128
+whiteNoiseFadeInS = SoundID 129
 gut1S :: SoundID
-gut1S = SoundID 129
+gut1S = SoundID 130