Создаю стратегию.

[Shadow_1329]

Когда жмешь на клавишу он едет секунды 2 потом опять начинает тормозить.

[Вадим Буренков]

Я убрал прорисовку карты и торможение исчезло.Следовательно все дело в Canvas'е.

[Shadow_1329]

Невканывает перемещение. Танк не хочет останавливаться там где я тыкнул мышкой! Он проезжает мимо(гад!), а когдая тыкаю на него он останавливается!

[Вадим Буренков]

Скорее всего дело в этом:
К примеру танк имеет координаты 100,100 и скорость 2. Представим ты ткнул мышью, например в координаты 121,100. Танк едет пока не доедет до координат 121,100, то есть он никогда не приедет и будет ехать вечно(это арифметическая прогрессия с разностью 2, число 121 не входит в нее).

[Shadow_1329]

Я поставил проверку не через = а через > или <. Но все равно нифига!

[Beermonza]

Сообщение от Shadow_1329

Я поставил проверку не через = а через > или <. Но все равно нифига!

Именно по этому я всегда предлагал использовать систему "поинтов", мышь на экране интерпретирует координаты курсора в координаты клетки карты с некоторыми размерами, т.е. нажав на экране в код передается координата в массиве, а юнит сам идет/едет в эту координату и останавливается где нужно, сам выбирает направление, изменяет его когда нужно. Если "тыкнуть" в другое место пока юнит передвигается, то он тут же изменит направление, примет новый путь. В теме "Уроки по созданию игр для новичков" есть пример с исходниками, сейчас найду.

В теме "Уроки по созданию игр для новичков" пост #176

[Shadow_1329]

Столкнулся с такой проблемой. Как сделать IntToStr(c) только не для integer(var c:integer) а для char(var c:char)? Все поисковики молчат(чуть в пол их не вкатал)!

[Вадим Буренков]

Укажи код, где тебе это надо сделать.

[Shadow_1329]

function Collision(c:char): boolean;
begin
buf.Canvas.Textout(0,20,int(char(c));
For i:=1 to MaxRusTanks do
  Result:=False;
  if ((map[Rt[i].Ux+50,Rt[i].Uy+50]='c') or (map[Rt[i].Ux,Rt[i].Uy]='c')) then
     Result:=True;
end;

[Вадим Буренков]

Для вывода на экран данные Char не нужно переводить. Так и пишешь:

var
c: char;
.............
с:='a';
.............
buf.Canvas.Textout(0,20,c);
//на экране появится буква 'a'.