hedgewars/uGearsHandlersMess.pas
changeset 15844 4e3c340eb766
parent 15842 4172debdff61
child 15847 2839b68a3732
equal deleted inserted replaced
15843:a722c8e86573 15844:4e3c340eb766
  1916                 Gear^.X := newX;
  1916                 Gear^.X := newX;
  1917                 Gear^.Y := newY;
  1917                 Gear^.Y := newY;
  1918                 end;
  1918                 end;
  1919 
  1919 
  1920         inc(BTSteps);
  1920         inc(BTSteps);
  1921         if BTSteps = 15 then
  1921         if BTSteps = 11 then
  1922             begin
  1922             begin
  1923             BTSteps := 0;
  1923             BTSteps := 0;
  1924             hit := true
  1924             hit := true
  1925             end;
  1925             end;
  1926         end;
  1926         end;