Jump to content

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


Recommended Posts

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

 

 

Link to comment
Share on other sites

  • 3 weeks later...

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.  ;)

 

Link to comment
Share on other sites

  • 5 weeks later...
  • 4 weeks later...
  • 2 weeks later...

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

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

Link to comment
Share on other sites

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

 

ОФФТОП:

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disbaled AdBlock