[help] нужен скрипт

[baho45]

Доброго времени суток, помогите найти Скрипт, запоминания текуших кор и тп к ним...
гдето раньще видел тут на форуме щас не могу найти...:(

[wimax]

бля написать чтоли трудно?

procedure Readcordinates;
begin
if (readD(2)=PPobjid) then begin ppx:=ReadD(6); ppy:=ReadD(10); ppz:=ReadD(14); end;
end;
begin
if FromServer then
case pck[1] of
#$79: Readcordinates;
end.