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