Скрипт

[8tomat8]

Муфлон пишет .gludio
ловиш свои координаты допустим пусть будут "аа аа аа аа 00 00 00 00 11 11 11 11"
считываеш (ReadD(1,2 или 3)) х у и z (x1=aa aa aa aa, у1=00 00 00 00...)
потом береш координаты глудио(там будут пускай х2 у2 z2)
Делаеш не хитрые действия Xc:=х1-х2 Ус:=у1-у2.....(Xc Yc Zc это разница межды значениями координат)
Тут кусок ты поймеш из таблицы...

и говориш для каждой переменной к примеру для X

For x1:=aa aa aa aa until x1:<>=x2 //я сомневаюсь с командой FOR на ней постоянно PHX зависает, походу надо repeat until но я не помню....
begin
x1:=x1+5;
end;

Право писание у меня тут хана как хромает)) Все из головы)
И так для трех значений(х,у и z)

Добавлено через 2 минуты
на.... брал все из головы так что правте если чо там не так