# HG changeset patch
# User sheepluva
# Date 1394019351 -3600
# Node ID c38cdb5dd37cd28117ad16255d14dd181b5a1469
# Parent  fe4b1ce9b6f82c2735734855080e7c5bbb263f6d
don't stack bye/teleport sounds of hogs (when a team is gone)

diff -r fe4b1ce9b6f8 -r c38cdb5dd37c hedgewars/uGearsHedgehog.pas
--- a/hedgewars/uGearsHedgehog.pas	Tue Jan 07 11:40:58 2014 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Wed Mar 05 12:35:51 2014 +0100
@@ -607,6 +607,7 @@
 procedure doStepHedgehogGone(Gear: PGear);
 const frametime = 65;
       timertime = frametime * 11;
+var i: LongInt;
 begin
 if Gear^.Hedgehog^.Unplaced then
     exit;
@@ -629,8 +630,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