supernewbie
26.09.2010, 02:30
timer:=TTimer.Create(nil);
timer.OnTimer:=@Idet;
timer.interval:=10;
timer.enabled:=false;
procedure Idet(Sender: TObject);
begin
if (nextx>endx-10) and (nextx<endx+10) and (nexty>endy-10) and (nexty<endy+10) and (nextz>endz-10) and (nextz<endz+10) then
begin
timer.enabled:=false;
exit;
end;
nextx:=startx+Round(vx*offset);
nexty:=starty+Round(vy*offset);
nextz:=startz+Round(vz*offset);
x:=nextx;
y:=nexty;
z:=nextz;
offset:=offset+1;
end;
procedure MoveToLocation;
begin
if id=ReadD(2) then
begin
startx:=ReadD(18);
starty:=ReadD(22);
startz:=ReadD(26);
x:=startx;
y:=starty;
z:=startz;
endx:=ReadD(6);
endy:=ReadD(10);
endz:=ReadD(14);
dx:=endx-startx;
dy:=endy-starty;
dz:=endz-startz;
path:=sqrt((dx*dx)+(dy*dy)+(dz*dz));
time1:=(path / speed);
vx:=dx / time1;
vy:=dy / time1;
vz:=dz / time1;
vx:=vx / 100;
vy:=vy / 100;
vz:=vz / 100;
offset:=1;
timer.enabled:=true;
exit;
end;
end;
timer.OnTimer:=@Idet;
timer.interval:=10;
timer.enabled:=false;
procedure Idet(Sender: TObject);
begin
if (nextx>endx-10) and (nextx<endx+10) and (nexty>endy-10) and (nexty<endy+10) and (nextz>endz-10) and (nextz<endz+10) then
begin
timer.enabled:=false;
exit;
end;
nextx:=startx+Round(vx*offset);
nexty:=starty+Round(vy*offset);
nextz:=startz+Round(vz*offset);
x:=nextx;
y:=nexty;
z:=nextz;
offset:=offset+1;
end;
procedure MoveToLocation;
begin
if id=ReadD(2) then
begin
startx:=ReadD(18);
starty:=ReadD(22);
startz:=ReadD(26);
x:=startx;
y:=starty;
z:=startz;
endx:=ReadD(6);
endy:=ReadD(10);
endz:=ReadD(14);
dx:=endx-startx;
dy:=endy-starty;
dz:=endz-startz;
path:=sqrt((dx*dx)+(dy*dy)+(dz*dz));
time1:=(path / speed);
vx:=dx / time1;
vy:=dy / time1;
vz:=dz / time1;
vx:=vx / 100;
vy:=vy / 100;
vz:=vz / 100;
offset:=1;
timer.enabled:=true;
exit;
end;
end;