линия

[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;

[Breadfan]

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

[xkor]

так будет быстрее)

function GetVector: Integer; inline;
begin
  result := Integer(dx<0) or (Integer(dy<0) shl 1) + 1;
end;