[NLObP]

pmen, немного покритикую. Надо было так сделать (выдержка)

Var
// переменная
ValidatePosition:string; c:integer; e:integer; n:integer; r:Boolean;
a:integer; b:Boolean;  d:integer; f:integer; v:integer; cmd: string;

Procedure Init; //Вызывается при включении скрипта
begin
    SendMsc('Возьми себя в таргет');
    b:=False;
end;

Procedure SendMsc(msc:string);
begin
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(msc);
    SendToClient;
end;

Begin
    //не обрабатываем пустые пакеты
    if pck='' then exit;

    //********************************************************************************
    if FromClient then begin
        case pck[1] of
            //************************************************************************
            #$04: begin
                If (Not b) then
                begin
                    a:=ReadD(2); c:=ReadD(6);
                    d:=ReadD(10); e:=ReadD(14);
                    f:=ReadC(18);
                    SendMsc('Запомнен ObjectID = '+inttostr(a));
                    b:=True;
                end;
            end;
            //************************************************************************
            #$38: begin
                    cmd:=ReadS(2);
                    case  cmd of
                    //****************************************************************
                    '.olympiad': begin
                        buf:=#$28;
                        WriteD(a);
                        buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;
                        SendToClient;
                    end;
                    //****************************************************************
                    '.gludio': begin
                        buf:=#$28;
                        WriteD(a);
                        buf:=buf+ #$8E#$CE#$FF#$FF#$99#$DF#$01#$00#$D9#$F3#$FF#$FF;
                        SendToClient;
                    end;
                    //****************************************************************
                    //...
                    //****************************************************************
                end;
            end;
        end;
    end;
end.

Не совсем понял, как будет телепорт происходить? Ты все команды клиенту шлешь и его же команды перехватываешь. Имхо фейк все эти телепорты, только у тебя в клиенте.