hedgewars/uGearsHandlersMess.pas
changeset 11152 3ac7f6d43200
parent 11070 f9a03078dd4f
child 11173 1b386b9e1be0
equal deleted inserted replaced
11151:5c40c65b619d 11152:3ac7f6d43200
  3675 
  3675 
  3676     HHGear := Gear^.Hedgehog^.Gear;
  3676     HHGear := Gear^.Hedgehog^.Gear;
  3677     FollowGear := Gear;
  3677     FollowGear := Gear;
  3678 
  3678 
  3679     if Gear^.Timer > 0 then
  3679     if Gear^.Timer > 0 then
       
  3680         begin
       
  3681         if Gear^.Timer = 1 then
       
  3682             begin
       
  3683             StopSoundChan(Gear^.SoundChannel);
       
  3684             Gear^.SoundChannel:= -1;
       
  3685             end;
  3680         dec(Gear^.Timer);
  3686         dec(Gear^.Timer);
       
  3687         end;
  3681 
  3688 
  3682     fChanged := false;
  3689     fChanged := false;
  3683     if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then
  3690     if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then
  3684         begin
  3691         begin
  3685         fChanged := true;
  3692         fChanged := true;