линия

[mira]

Так зачем его менять. Написал новую функцию и перешол на нее. Если луше робит удалил старую если хуже убрал) я както так делаю стараясь не корежить ранше времени старый код

[destructor]

а я гуглить умею http://www.dtf.ru/articles/read.php?id=46788

[supernewbie]

ыыы

[mira]

чето похожее на то что нужно вроде

[supernewbie]

он ходит, он ходит!!!!!!!11111

[Aries]

Грац))))

[mira]

тоже когданить займусь, как разберусь с ХФ. тут мне чето никто подсказать непожелал и удалили тему) придетса разбирать пакеты самому.
благо там немного изменений =/

[supernewbie]

почти ничего на самом деле

Добавлено через 1 час 29 минут
*ля короче нужен алгоритм рисования прямой линии какой я описал в начале, а то бот иногда сквозь стены ломится или застрявает на углах

[Aries]

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

[supernewbie]

всем спасибо за помощь

function GetVector : integer;
  begin
  result:=0;
  if (dx>0) and (dy>0) then result:=1 else
  if (dx<0) and (dy>0) then result:=2 else
  if (dx>0) and (dy<0) then result:=3 else
  if (dx<0) and (dy<0) then result:=4 else exit;
  end;

if (dx<>0) and (dy<>0) then
begin
case GetVector of
1: Dec(y);
2: Dec(y);
3: Inc(y);
4: Inc(y);
end;
Form.Scene.Canvas.Pixels[x,y]:=clBlack;
end;