hedgewars/uGearsHandlersMess.pas
changeset 15866 4e3c340eb766
parent 15864 4172debdff61
child 15869 2839b68a3732
equal deleted inserted replaced
15865:a722c8e86573 15866: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;