[Скрипт] Телепорт во время боя

[Aero93]

Всем этот баг давно известен. Этот скрипт просто его автоматизирует

Запуск скрипта : UTP , INI
Вот сам скрипт:

PHP код:

// UTP во время боя
// Запуск              SendPMessage("UTP","INI")


var le,inil,namel,PID,itemID:integer;
    ini,name:string;
    flag,init:boolean;

procedure OnCreate;
begin
     le:=23;
     ini:='INI';
     inil:=length(ini);
     name:='UTP';
     namel:=length(name);
     flag:=false;
     init:=false;
end;

Procedure MsgInfo(msg : string);
begin
     gSys.EnSendC(FormatPck('%hcdacha',[$0A02,02,0,'[!]'+FStr(16),Length(msg) + 2,$203A,msg+#0]));
     gsys.sleep(15);
end;

BEGIN
     if length(_gBuff) < 4 then exit;
     PID:= GInt(_gBuff,3,2);

     if not (_gFromServ) then
     case PID of
       $0302: begin
                   if strcmp(copy(_gBuff,5,namel),name) then
                   begin
                        if strcmp(copy(_gBuff,le,inil),ini) then
                        begin
                             flag:=true;
                             MsgInfo('UrgentTP запущен');
                             MsgInfo('используйте ТП из инвентаря');
                             MsgInfo('для инициализации');
                        end;
                        gBlockPacket;
                   end;
              end;
       $1A04: if flag then 
              begin
                   itemID:= GInt(_gBuff,5,1);
                   flag:= false;
                   init:= true;
                   gBlockPacket;
                   MsgInfo('ТП инициализирован успешно');
              end;                   
       $160D: if (GInt(_gBuff,5,1) = 7) and init then gSys.SendS(FormatPck('%hcc',[$1A04,itemID,0]));                   
     end;
     if _gFromServ then
     case PID of
       $660D: begin
                   MsgInfo('/UTP INI для запуска скрипта');
                   MsgInfo('после запуска используйте ТП');
                   MsgInfo('из инвентаря для инициализации');
              end;
     end;
END. 


[sakrat3]

и че с ним делать???

[Aero93]

Качай WPF, и ищи статью на жуке про то как использовать их.

[qw1qwe]

на rf-condor не пашет, или руки у меня кривые или срипт...

[WARLOK567]

Скрипт кривой

[=PaLeTiZaToR=]

тоже не пашет