changeset 15866 | 4e3c340eb766 |
parent 15864 | 4172debdff61 |
child 15869 | 2839b68a3732 |
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; |