Скрипт на телепорт

[Zastawka]

plz translate to english how to use this

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.

 

http://coderx.ru/showthread.php?t=1754

 

 

[essential]

Var
// variable
ValidatePosition:string; c:integer; e:integer; n:integer; r:Boolean;
a:integer; b:Boolean;  d:integer; f:integer; v:integer; cmd: string;

Procedure Init; //Called when the script run
begin
    SendMsc('take target on u'r self');
    b:=False;
end;

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

Begin
    //	does not process empty packages
    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('remember 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.

enjoy.  ;)

 

[NLObP]

это легче пакетами делать) ну покраинеи мере мне)))

[cpakakak]

Не понял, что делает скрипт?

[cpakakak]

сори за флуд. уже разобрался =)

[essential]

это легче пакетами делать) ну покраинеи мере мне)))

кто бы сомневался)) ты же практически гуру по пакетам, а скрипты - скорее для чайников как я, и для автоматизации - чтобы не тыкать в "послать". :)

[NLObP]

кто бы сомневался)) ты же практически гуру по пакетам, а скрипты - скорее для чайников как я, и для автоматизации - чтобы не тыкать в "послать". :)

 

ОФФТОП:

та ладно у тебя 100 постов карма не в минусе ты не ноеш как эти лентяи ты норм человек ;)