hedgewars/uSound.pas
changeset 16035 1f9f971adec4
parent 15609 61f2ffcd5652
child 16042 2e529b1a9d5b
--- a/hedgewars/uSound.pas	Fri Apr 05 07:37:44 2024 +0100
+++ b/hedgewars/uSound.pas	Fri Apr 05 13:10:55 2024 +0100
@@ -508,9 +508,16 @@
             GetFallbackV := sndNooo
         else
             GetFallbackV := sndUhOh
-    else if (snd in [sndDrat, sndBugger]) then
-        GetFallbackV := sndStupid
-    else if (snd in [sndGonnaGetYou, sndIllGetYou, sndJustYouWait, sndCutItOut, sndLeaveMeAlone]) then
+    else if (snd = sndCover) then
+        if random(2) = 0 then
+            GetFallbackV := sndWatchThis
+        else
+            GetFallbackV := sndFire
+    else if (snd in [sndBugger]) then
+        GetFallbackV := sndDrat
+    else if (snd in [sndDrat] then)
+        GetFallbackV := sndBugger
+    else if (snd in [sndGonnaGetYou, sndIllGetYou, sndRevenge, sndCutItOut, sndLeaveMeAlone]) then
         GetFallbackV := sndRegret
     else if (snd in [sndOhDear, sndSoLong]) then
         GetFallbackV := sndByeBye