Думаю хорошим тоном будет выложить готовый скрипт.
Код:
Var
CharID: Integer;
X,Y,Z: Integer;
//говорилка
Procedure Say(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
//запись таргета каравана
begin
if FromClient and (ConnectName='InisTrue')
and (pck[1]= #$1F) then begin
CharId:=ReadD(2);
Say('Таргет каравана записан: '+ IntToStr(CharId));
end;
if FromServer and (ConnectName='InisTrue')
and (pck[1]= #$01) and (ReadD(2) = CharID) then begin
X:= (ReadD(6));
Y:= (ReadD(10));
Z:= (ReadD(14));
buf:= #$0F;
WriteD(X);
WriteD(Y);
WriteD(Z);
WriteC(00);
SendToServer;
end;
end.