советы
но не мои
Код:
или на каком то расстоянии от мен
function rastoyanie(xpos1, ypos1, xpos2, ypos2:extended):integer; //возвращ rezu растояние
begin
result:= Round(Sqrt(((xpos1-xpos2)*(xpos1-xpos2))+((ypos1-ypos2)*(ypos1-ypos2))));
end;
=================================================
if (rastoyanie(MyXpos, MyYpos, ReadD(14), ReadD(18))<=
1600) then
при менее или 1600 выполнить >>>>
====================