Скрипт на телепортацию к членам парти

[CrazyS]

Вот..Скрипт на телепортацию к члену(ам) парти для L2PHX. Работает не везде )
Скрипт писался на сервере Lineagetwo ( Interlude)


// Скрипт для телепортации к Сопартийцам
// Введи в чат '.go' (без ковычек)
// После телепорта используйте какой-то скил ( Бафф,Фокус)
// Автор CrazyS

const
//======================================
Name='CrazyS'; //**<-----Ник Персонажа-=
//======================================
var
//++++++++++++++++++++++++++++++++++++++++
ValidatePosition:string;
Xcoord:integer;
Ycoord:integer;
Zcoord:integer;
ObjID:integer;
b:boolean;
//++++++++++++++++++++++++++++++++++++++++
procedure Init; //Вызывается при включении скрипта
begin
b:=false;
end;
//++++++++++++++++++++++++++++++++++++++++
begin
begin
if FromServer and (pck[1]=#$A7)
then
begin
ObjID:=ReadD(22);
Xcoord:=ReadD(10);
Ycoord:=ReadD(14);
Zcoord:=ReadD(18);
end;
//+++++++++++++++++++++++++++++++++++++++++
Begin
If FromClient and (pck=hstr('38 2E 00 67 00 6F 00 00 00 00 00 00 00'))
then
begin
buf:=#$28;
WriteD(ObjId);
WriteD(Xcoord);
WriteD(Ycoord);
WriteD(Zcoord);
SendToClientEX(Name);

end;
end;
end;
end.