Рисунок пути

[J-Fobos]

Проверил, мой алгоритм хорошо работает =р
Сразу его и усовершенствовал, сделал деление не на 100, а сделал чтоб менялось в зависимости от пройденного пути, вообще красиво получилось =)

[supernewbie]

код выложишь, не?

[J-Fobos]

А самому написать, не?
Я бегал по колизею, там координата z не изменяется и я ее не учитывал.

var
vx,vy:real;

procedure lines;
var
dx,dy,x1,x2,y1,y2:integer;
s:real;

begin
dx:=x2-x1;
dy:=y2-y1;
if (dx=0) and (dy=0) then exit;
s:=sqrt(dx*dx+dy*dy);
vx:=dx/s;
vy:=dy/s;
Timer01.Enabled:=True;
end;

Ну а в таймере у меня бросается предмет, координаты броска и остановка таймера определяются так:

x1:=round(x1+vx);
y1:=round(y1+vy);
if x1>=x2 then Timer01.Enabled:=False;

Я отредактировал сообщение, оптимизировал код, убрал лишнюю переменную, без нее можно нормально обойтись.

[supernewbie]

while x11<x21 do
begin
dx1:=x21-x11;
dy1:=y21-y11;
dz1:=z21-z11;
if (dx1=0) and (dy1=0) and (dz1=0) then exit;
s:=sqrt(dx1*dx1+dy1*dy1+dz1*dz1);
vx1:=dx1/s;
vy1:=dy1/s;
vz1:=dz1/s;
x11:=round(x11+vx1);
y11:=round(y11+vy1);
z11:=round(z11+vz1);
dropItem(57,x11,y11,z11);
end;