Add pop sound
This commit is contained in:
@@ -134,7 +134,7 @@ splitSlimeCrit' :: Point2 -> Point2 -> Int -> Creature -> World -> Maybe World
|
||||
splitSlimeCrit' p v cid cr w = do
|
||||
(cr1,cr2) <- splitSlimeCrit p v cr
|
||||
let cid' = IM.newKey $ w ^. cWorld . lWorld . creatures
|
||||
(s,g) = runState (takeOne [popS,pop1S,pop2S]) (w ^. randGen)
|
||||
(s,g) = runState (takeOne [popS,pop1S,pop2S,pop3S]) (w ^. randGen)
|
||||
return $ w & cWorld . lWorld . creatures . ix cid .~ cr1
|
||||
& cWorld . lWorld . creatures . at cid' ?~ (cr2 & crID .~ cid')
|
||||
& soundStart (CrSound cid) (cr ^. crPos . _xy) s Nothing
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
-- generated at 2026-04-15 21:13:20.935856206 UTC
|
||||
-- generated at 2026-04-15 23:14:13.383166268 UTC
|
||||
module Dodge.SoundLogic.ExternallyGeneratedSounds where
|
||||
import Sound.Data
|
||||
soundToVol :: SoundID -> Float
|
||||
@@ -144,45 +144,46 @@ soundToVol v = case _getSoundID v of
|
||||
138 -> 100
|
||||
139 -> 100
|
||||
140 -> 50
|
||||
141 -> 1000
|
||||
142 -> 500
|
||||
143 -> 40
|
||||
144 -> 100
|
||||
145 -> 200
|
||||
146 -> 500
|
||||
147 -> 1000
|
||||
148 -> 300
|
||||
149 -> 100
|
||||
150 -> 300
|
||||
141 -> 500
|
||||
142 -> 1000
|
||||
143 -> 500
|
||||
144 -> 40
|
||||
145 -> 100
|
||||
146 -> 200
|
||||
147 -> 500
|
||||
148 -> 1000
|
||||
149 -> 300
|
||||
150 -> 100
|
||||
151 -> 300
|
||||
152 -> 100
|
||||
152 -> 300
|
||||
153 -> 100
|
||||
154 -> 500
|
||||
155 -> 100
|
||||
154 -> 100
|
||||
155 -> 500
|
||||
156 -> 100
|
||||
157 -> 500
|
||||
157 -> 100
|
||||
158 -> 500
|
||||
159 -> 100
|
||||
159 -> 500
|
||||
160 -> 100
|
||||
161 -> 500
|
||||
162 -> 40
|
||||
163 -> 200
|
||||
164 -> 50
|
||||
165 -> 500
|
||||
166 -> 2000
|
||||
167 -> 200
|
||||
168 -> 2000
|
||||
169 -> 40
|
||||
170 -> 100
|
||||
161 -> 100
|
||||
162 -> 500
|
||||
163 -> 40
|
||||
164 -> 200
|
||||
165 -> 50
|
||||
166 -> 500
|
||||
167 -> 2000
|
||||
168 -> 200
|
||||
169 -> 2000
|
||||
170 -> 40
|
||||
171 -> 100
|
||||
172 -> 500
|
||||
173 -> 100
|
||||
174 -> 1000
|
||||
175 -> 100
|
||||
176 -> 500
|
||||
177 -> 8000
|
||||
178 -> 200
|
||||
179 -> 300
|
||||
172 -> 100
|
||||
173 -> 500
|
||||
174 -> 100
|
||||
175 -> 1000
|
||||
176 -> 100
|
||||
177 -> 500
|
||||
178 -> 8000
|
||||
179 -> 200
|
||||
180 -> 300
|
||||
_ -> 50
|
||||
soundToOnomato :: SoundID -> String
|
||||
soundToOnomato v = case _getSoundID v of
|
||||
@@ -327,45 +328,46 @@ soundToOnomato v = case _getSoundID v of
|
||||
138 -> "SLP"
|
||||
139 -> "SPRT"
|
||||
140 -> "HSS"
|
||||
141 -> "TRNKL"
|
||||
142 -> "TAK"
|
||||
143 -> "CLICK"
|
||||
144 -> "DUHDEH"
|
||||
145 -> "SHTCK"
|
||||
146 -> "DEDUM"
|
||||
147 -> "BWMP"
|
||||
148 -> "BWAAH"
|
||||
149 -> "SLP"
|
||||
150 -> "DWAAH"
|
||||
151 -> "TNKTONK"
|
||||
152 -> "VFVFVF"
|
||||
153 -> "SLP"
|
||||
154 -> "CRTINK"
|
||||
155 -> "VHHP"
|
||||
156 -> "SPRT"
|
||||
157 -> "PRUM"
|
||||
158 -> "POP"
|
||||
159 -> "SLPP"
|
||||
160 -> "FWUMP"
|
||||
161 -> "CLANG"
|
||||
162 -> "TIP"
|
||||
163 -> "CRAKLE"
|
||||
164 -> "HSSS"
|
||||
165 -> "TRINKL"
|
||||
166 -> "BANG"
|
||||
167 -> "ZMM"
|
||||
168 -> "CHUGUGUG"
|
||||
169 -> "TAPP"
|
||||
170 -> "KKSQWL"
|
||||
171 -> "SKWLL"
|
||||
172 -> "DUDURAH"
|
||||
173 -> "SKWLL"
|
||||
174 -> "TRNKL"
|
||||
175 -> "SLP"
|
||||
176 -> "WHUAWUH"
|
||||
177 -> "RINGGG"
|
||||
178 -> "QWLPH"
|
||||
179 -> "WRRR"
|
||||
141 -> "POP"
|
||||
142 -> "TRNKL"
|
||||
143 -> "TAK"
|
||||
144 -> "CLICK"
|
||||
145 -> "DUHDEH"
|
||||
146 -> "SHTCK"
|
||||
147 -> "DEDUM"
|
||||
148 -> "BWMP"
|
||||
149 -> "BWAAH"
|
||||
150 -> "SLP"
|
||||
151 -> "DWAAH"
|
||||
152 -> "TNKTONK"
|
||||
153 -> "VFVFVF"
|
||||
154 -> "SLP"
|
||||
155 -> "CRTINK"
|
||||
156 -> "VHHP"
|
||||
157 -> "SPRT"
|
||||
158 -> "PRUM"
|
||||
159 -> "POP"
|
||||
160 -> "SLPP"
|
||||
161 -> "FWUMP"
|
||||
162 -> "CLANG"
|
||||
163 -> "TIP"
|
||||
164 -> "CRAKLE"
|
||||
165 -> "HSSS"
|
||||
166 -> "TRINKL"
|
||||
167 -> "BANG"
|
||||
168 -> "ZMM"
|
||||
169 -> "CHUGUGUG"
|
||||
170 -> "TAPP"
|
||||
171 -> "KKSQWL"
|
||||
172 -> "SKWLL"
|
||||
173 -> "DUDURAH"
|
||||
174 -> "SKWLL"
|
||||
175 -> "TRNKL"
|
||||
176 -> "SLP"
|
||||
177 -> "WHUAWUH"
|
||||
178 -> "RINGGG"
|
||||
179 -> "QWLPH"
|
||||
180 -> "WRRR"
|
||||
_ -> error "unitialised sound"
|
||||
soundPathList :: [String]
|
||||
soundPathList =
|
||||
@@ -510,6 +512,7 @@ soundPathList =
|
||||
, "slap2.SLP.100.wav"
|
||||
, "bloodShort2.SPRT.100.wav"
|
||||
, "foamSprayFadeOut.HSS.50.wav"
|
||||
, "pop3.POP.500.wav"
|
||||
, "metal6.TRNKL.1000.wav"
|
||||
, "tap1.TAK.500.wav"
|
||||
, "click1.CLICK.40.wav"
|
||||
@@ -832,81 +835,83 @@ bloodShort2S :: SoundID
|
||||
bloodShort2S = SoundID 139
|
||||
foamSprayFadeOutS :: SoundID
|
||||
foamSprayFadeOutS = SoundID 140
|
||||
pop3S :: SoundID
|
||||
pop3S = SoundID 141
|
||||
metal6S :: SoundID
|
||||
metal6S = SoundID 141
|
||||
metal6S = SoundID 142
|
||||
tap1S :: SoundID
|
||||
tap1S = SoundID 142
|
||||
tap1S = SoundID 143
|
||||
click1S :: SoundID
|
||||
click1S = SoundID 143
|
||||
click1S = SoundID 144
|
||||
semitoneLoop1S :: SoundID
|
||||
semitoneLoop1S = SoundID 144
|
||||
semitoneLoop1S = SoundID 145
|
||||
disconnectItemS :: SoundID
|
||||
disconnectItemS = SoundID 145
|
||||
disconnectItemS = SoundID 146
|
||||
dedumS :: SoundID
|
||||
dedumS = SoundID 146
|
||||
dedumS = SoundID 147
|
||||
sawtoothFailS :: SoundID
|
||||
sawtoothFailS = SoundID 147
|
||||
sawtoothFailS = SoundID 148
|
||||
sineRaisePitchTwoSecS :: SoundID
|
||||
sineRaisePitchTwoSecS = SoundID 148
|
||||
sineRaisePitchTwoSecS = SoundID 149
|
||||
slap4S :: SoundID
|
||||
slap4S = SoundID 149
|
||||
slap4S = SoundID 150
|
||||
skwareFadeTwoSecS :: SoundID
|
||||
skwareFadeTwoSecS = SoundID 150
|
||||
skwareFadeTwoSecS = SoundID 151
|
||||
reloadFailS :: SoundID
|
||||
reloadFailS = SoundID 151
|
||||
reloadFailS = SoundID 152
|
||||
throb1S :: SoundID
|
||||
throb1S = SoundID 152
|
||||
throb1S = SoundID 153
|
||||
slap5S :: SoundID
|
||||
slap5S = SoundID 153
|
||||
slap5S = SoundID 154
|
||||
smallGlass3S :: SoundID
|
||||
smallGlass3S = SoundID 154
|
||||
smallGlass3S = SoundID 155
|
||||
reverseCymbal1S :: SoundID
|
||||
reverseCymbal1S = SoundID 155
|
||||
reverseCymbal1S = SoundID 156
|
||||
blood2S :: SoundID
|
||||
blood2S = SoundID 156
|
||||
blood2S = SoundID 157
|
||||
insertOneS :: SoundID
|
||||
insertOneS = SoundID 157
|
||||
insertOneS = SoundID 158
|
||||
pop2S :: SoundID
|
||||
pop2S = SoundID 158
|
||||
pop2S = SoundID 159
|
||||
slap1S :: SoundID
|
||||
slap1S = SoundID 159
|
||||
slap1S = SoundID 160
|
||||
tap4S :: SoundID
|
||||
tap4S = SoundID 160
|
||||
tap4S = SoundID 161
|
||||
clang1S :: SoundID
|
||||
clang1S = SoundID 161
|
||||
clang1S = SoundID 162
|
||||
foot1S :: SoundID
|
||||
foot1S = SoundID 162
|
||||
foot1S = SoundID 163
|
||||
elecCrackleS :: SoundID
|
||||
elecCrackleS = SoundID 163
|
||||
elecCrackleS = SoundID 164
|
||||
foamSprayLoopS :: SoundID
|
||||
foamSprayLoopS = SoundID 164
|
||||
foamSprayLoopS = SoundID 165
|
||||
smallGlass1S :: SoundID
|
||||
smallGlass1S = SoundID 165
|
||||
smallGlass1S = SoundID 166
|
||||
bangS :: SoundID
|
||||
bangS = SoundID 166
|
||||
bangS = SoundID 167
|
||||
buzz1S :: SoundID
|
||||
buzz1S = SoundID 167
|
||||
buzz1S = SoundID 168
|
||||
seagullChatterS :: SoundID
|
||||
seagullChatterS = SoundID 168
|
||||
seagullChatterS = SoundID 169
|
||||
foot3S :: SoundID
|
||||
foot3S = SoundID 169
|
||||
foot3S = SoundID 170
|
||||
bloodShort3S :: SoundID
|
||||
bloodShort3S = SoundID 170
|
||||
bloodShort3S = SoundID 171
|
||||
blood4S :: SoundID
|
||||
blood4S = SoundID 171
|
||||
blood4S = SoundID 172
|
||||
ejectS :: SoundID
|
||||
ejectS = SoundID 172
|
||||
ejectS = SoundID 173
|
||||
bloodShort4S :: SoundID
|
||||
bloodShort4S = SoundID 173
|
||||
bloodShort4S = SoundID 174
|
||||
metal1S :: SoundID
|
||||
metal1S = SoundID 174
|
||||
metal1S = SoundID 175
|
||||
slapClean5S :: SoundID
|
||||
slapClean5S = SoundID 175
|
||||
slapClean5S = SoundID 176
|
||||
warp1S :: SoundID
|
||||
warp1S = SoundID 176
|
||||
warp1S = SoundID 177
|
||||
tinitusS :: SoundID
|
||||
tinitusS = SoundID 177
|
||||
tinitusS = SoundID 178
|
||||
gut1S :: SoundID
|
||||
gut1S = SoundID 178
|
||||
gut1S = SoundID 179
|
||||
fireFadeS :: SoundID
|
||||
fireFadeS = SoundID 179
|
||||
fireFadeS = SoundID 180
|
||||
|
||||
Reference in New Issue
Block a user