hedgewars/uGearsHandlersMess.pas
changeset 12677 c98179b00740
parent 12661 161c10db4f27
child 12681 2e6dcd97f085
--- a/hedgewars/uGearsHandlersMess.pas	Sun Oct 08 04:57:28 2017 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Oct 08 16:30:42 2017 +0200
@@ -5748,6 +5748,7 @@
 if Gear^.Pos = 2 then
     begin
     StopSoundChan(Gear^.SoundChannel);
+    Gear^.SoundChannel:= -1;
     if (Gear^.Timer = 0) then
         begin
         if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then
@@ -5796,6 +5797,7 @@
 if (Gear^.Pos = 3) and (Gear^.Power = 0) then
     begin
     StopSoundChan(Gear^.SoundChannel);
+    Gear^.SoundChannel:= -1;
     if HH^.GearHidden = nil then
         begin
         DeleteGear(Gear);