hedgewars/uGearsHandlersMess.pas
changeset 11152 3ac7f6d43200
parent 11070 f9a03078dd4f
child 11169 1b386b9e1be0
--- a/hedgewars/uGearsHandlersMess.pas	Thu Sep 10 18:22:52 2015 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Sep 10 18:50:39 2015 +0200
@@ -3677,7 +3677,14 @@
     FollowGear := Gear;
 
     if Gear^.Timer > 0 then
+        begin
+        if Gear^.Timer = 1 then
+            begin
+            StopSoundChan(Gear^.SoundChannel);
+            Gear^.SoundChannel:= -1;
+            end;
         dec(Gear^.Timer);
+        end;
 
     fChanged := false;
     if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then