# HG changeset patch
# User unc0rr
# Date 1394050790 -14400
# Node ID 26c4256a9e4b44b32d92095b2deb425a2043a624
# Parent  0f9042536c46d7194e0bac03a3af547907666faa# Parent  949b51ca18c6b722e1a44692439b19064af8c963
merge

diff -r 0f9042536c46 -r 26c4256a9e4b hedgewars/uGearsHedgehog.pas
--- a/hedgewars/uGearsHedgehog.pas	Thu Mar 06 00:18:51 2014 +0400
+++ b/hedgewars/uGearsHedgehog.pas	Thu Mar 06 00:19:50 2014 +0400
@@ -606,6 +606,7 @@
 procedure doStepHedgehogGone(Gear: PGear);
 const frametime = 65;
       timertime = frametime * 11;
+var i: LongInt;
 begin
 if Gear^.Hedgehog^.Unplaced then
     exit;
@@ -628,8 +629,20 @@
     Gear^.Z:= cCurrHHZ;
     RemoveGearFromList(Gear);
     InsertGearToList(Gear);
-    PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
-    PlaySound(sndWarp);
+    // only play sound for one alive hedgehog
+    with Gear^.Hedgehog^.Team^ do
+        for i:= 0 to cMaxHHIndex do
+            begin
+            if (Hedgehogs[i].Gear <> nil) then
+                begin
+                if (Hedgehogs[i].Gear = Gear) then
+                    begin
+                    PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
+                    PlaySound(sndWarp);
+                    end;
+                break;
+                end;
+            end;
     Gear^.Pos:= 0;
     Gear^.Timer:= timertime
     end