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;
__________________
Начало.
|