# HG changeset patch
# User sheepluva
# Date 1441903839 -7200
# Node ID 3ac7f6d43200ddade7dde4879f1ba1a3e05b5b61
# Parent  5c40c65b619dae2175d0ac98d58b62f0cdc5d2df
stop rc plane prop/engine sound when out of fuel

diff -r 5c40c65b619d -r 3ac7f6d43200 hedgewars/uGearsHandlersMess.pas
--- 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