Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
hedgewars