hedgewars/uGearsHedgehog.pas
changeset 14035 f09276eb0c27
parent 14016 52e20f8f538a
child 14217 ab5e710d353d
--- a/hedgewars/uGearsHedgehog.pas	Sat Oct 27 15:21:10 2018 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Sat Oct 27 15:55:19 2018 +0200
@@ -700,7 +700,11 @@
     Gear^.Z:= cCurrHHZ;
     RemoveGearFromList(Gear);
     InsertGearToList(Gear);
-    PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
+    case random(3) of
+    0: PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
+    1: PlaySoundV(sndSoLong, Gear^.Hedgehog^.Team^.voicepack);
+    2: PlaySoundV(sndOhDear, Gear^.Hedgehog^.Team^.voicepack);
+    end;
     Gear^.Pos:= 0;
     Gear^.Timer:= timertime
     end