[WPF Script] PVPHelper - Видим заточку вещей противника

@broveymimo · 29.01.2010, 02:36

Предлагаю вашему вниманию скрипт PVPHelper.

Суть работы скрипта - вы берете персонаж в таргет и вам в приват приходит информация о заточке одетых на персонаже вещей.

Выглядит это так:

Запуск скрипта /PVP START
Останов скрипта /PVP STOP

Вот сам скрипт:

PHP код:


			
// Скрипт PVPHelper v.1.0  (c) broveymimo

// Запуск              SendPMessage("PVP","START")

// Останов             SendPMessage("PVP","STOP")



var start,stop,name,Charname:string;

    PID,le,startl,stopl,namel,CharSID:integer;

    flag:boolean;



Procedure MsgInfo(msg : string);

begin

     gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),Length(msg) + 2,$203A,msg+#0***93;));

     gsys.sleep(15);

end;



procedure OnCreate;

begin

     le:=23;

     start:='START';

     startl:=length(start);

     stop:='STOP';

     stopl:=length(stop);

     name:='PVP';

     namel:=length(name);

     flag:=false;

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,startl),start) then flag:=true;

                        if strcmp(copy(_gBuff,le,stopl),stop) then flag:=false;

                        gBlockPacket;

                   end;

              end;



       $1A0D: begin

                   CharSID:=GInt(_gBuff,7,2);

                   gSys.SendS(FormatPck('%hhh',***91;$1E03,CharSID,0***93;));

              end;

     end;

     if _gFromServ then

     case PID of

       $660D: begin

                   MsgInfo('Welcome to PVPHelper v.1.0');

                   MsgInfo('(c) broveymimo, 2010');

                   MsgInfo('');

                   MsgInfo('/PVP START для запуска скрипта');

                   MsgInfo('/PVP STOP для остановки скрипта');

                   MsgInfo('----------');

              end;



       $1F03: begin

                   if flag and (GInt(_gBuff,5,2) = CharSID) then

                   begin

                        Charname:=(copy(_gBuff,46,17));

                        gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),19,$203A,Charname+#0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,'куртка +',(GInt(_gBuff,19,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),9,$203A,'штаны +',(GInt(_gBuff,22,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),12,$203A,'перчатки +',(GInt(_gBuff,25,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),11,$203A,'ботинки +',(GInt(_gBuff,28,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),9,$203A,'шапка +',(GInt(_gBuff,31,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),7,$203A,'щит +',(GInt(_gBuff,34,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,'оружие +',(GInt(_gBuff,37,1)+48),0***93;));

                        MsgInfo('----------');

                   end;

              end;

      end;

END.

@котопес · 01.02.2010, 13:21

как и обещал слегка модифицированный скрипт с прикрученной gidbase с руоффа.

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 50 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 100 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

@котопес · 03.02.2010, 11:57

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 100 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

@dark · 03.02.2010, 12:18

Фишка добавлена в RFWarrior. Качаем - http://files.rf-cheats.ru/RFWarrior_1.6.rar
котопес +20 постов

@broveymimo · 04.02.2010, 17:39

Фикс скрипта v.2.2
- Внесена проверка на таргет моба. Теперь при таргете моба не будет вылета.
- Добавлено несколько сервисных сообщений. Теперь скрипт будет информировать вас о запуске или останове скрипта.

PHP код:


			
// Скрипт PVPHelper v.2.2 (c)котопес. оригинальный скрипт (c) broveymimo

// Запуск              SendPMessage("PVP","START")

// Останов             SendPMessage("PVP","STOP")



var start,stop,name,Charname:string;

    PID,le,startl,stopl,namel,CharSID:integer;

    flag:boolean;

    Items : TMemIniFile;

    i0 : integer;

    s : string;

const

  pckf = _gScriptDir+'PVPItems\';

  snp = ***91;'gidbase.ini'***93;;



Procedure MsgInfo(msg : string);

begin

     gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),Length(msg) + 2,$203A,msg+#0***93;));

     gsys.sleep(15);

end;



procedure OnCreate;

begin

  le := 23;

  start := 'START';

  startl := length(start);

  stop := 'STOP';

  stopl := length(stop);

  name := 'PVP';

  namel := length(name);

  flag := false;

  Items := nil;

  if not FileExists(pckf+snp***91;0***93;) then begin

    RaiseException(' Не найден файл - '+pckf+snp***91;0***93;);

    exit;

  end;

  Items := TMemIniFile.create(pckf+snp***91;0***93;);

end;



procedure OnDestroy;

begin

  if Items <> nil then Items.free;

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,startl),start) then

                        begin

                             flag:=true;

                             MsgInfo('PVPHelper запущен');

                        end;

                        if strcmp(copy(_gBuff,le,stopl),stop) then

                        begin

                             flag:=false;

                             MsgInfo('PVPHelper остановлен');

                        end;

                        gBlockPacket;

                   end;

              end;



       $1A0D: begin 

                   CharSID:=GInt(_gBuff,7,2);

                   if (GInt(_gBuff,6,1) = 0) then gSys.SendS(FormatPck('%hhh',***91;$1E03,CharSID,0***93;)); 

              end; 

     end;

     if _gFromServ then

     case PID of

       $660D: begin

                   MsgInfo('Welcome to PVPHelper v.2.0');

                   MsgInfo('База итемов/доработка (c) котопес, 2010');

                   MsgInfo('оригинальный скрипт (c) broveymimo, 2010');

                   MsgInfo('');

                   MsgInfo('/PVP START для запуска скрипта');

                   MsgInfo('/PVP STOP для остановки скрипта');

                   MsgInfo('----------');

              end;



       $1F03: begin

                   if flag and (GInt(_gBuff,5,2) = CharSID) then

                   begin

                        Charname:=(copy(_gBuff,46,17));

                        gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),19,$203A,Charname+#0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,Items.ReadString('items0',BufToHex(copy(_gBuff,17,2)),'куртка')+' +',(GInt(_gBuff,19,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),9,$203A,Items.ReadString('items1',BuftoHex(copy(_gBuff,20,2)),'штаны')+' +',(GInt(_gBuff,22,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),12,$203A,Items.ReadString('items2',BuftoHex(copy(_gBuff,23,2)),'перчатки')+' +',(GInt(_gBuff,25,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),11,$203A,Items.ReadString('items3',BuftoHex(copy(_gBuff,26,2)),'ботинки')+' +',(GInt(_gBuff,28,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),9,$203A,Items.ReadString('items4',BuftoHex(copy(_gBuff,29,2)),'шапка')+' +',(GInt(_gBuff,31,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),7,$203A,Items.ReadString('items6',BuftoHex(copy(_gBuff,32,2)),'щит')+' +',(GInt(_gBuff,34,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,Items.ReadString('items5',BuftoHex(copy(_gBuff,35,2)),'оружие')+' +',(GInt(_gBuff,37,1)+48),0***93;));

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,Items.ReadString('items7',BuftoHex(copy(_gBuff,38,2)),'антиграв')+' +',(GInt(_gBuff,40,1)+48),0***93;));

                        MsgInfo('----------');

                   end;

              end;

      end;

END.

06.02.2010, 14:53

вопрос) gidbase.ini под соткой лежит, или я криво поиск юзаю

07.02.2010, 19:53

с версией v 2.2. rf_online.bin негрузится (видимо нет gidbase.ini =) где его взять не подскажите? )

и как в версию 1.1 вставить проверку на таргет моба (чтоб не вылетало)

P.S. Затыкаю спасибками)

@broveymimo · 07.02.2010, 20:33

Версия скрипта 1.1 без гид базы, но с фиксом вылета при выделении мобов.

PHP код:


			
// Скрипт PVPHelper v.1.1  (c) broveymimo 

// Запуск              SendPMessage("PVP","START") 

// Останов             SendPMessage("PVP","STOP") 



var start,stop,name,Charname:string; 

    PID,le,startl,stopl,namel,CharSID:integer; 

    flag:boolean; 



Procedure MsgInfo(msg : string); 

begin 

     gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),Length(msg) + 2,$203A,msg+#0***93;)); 

     gsys.sleep(15); 

end; 



procedure OnCreate; 

begin 

     le:=23; 

     start:='START'; 

     startl:=length(start); 

     stop:='STOP'; 

     stopl:=length(stop); 

     name:='PVP'; 

     namel:=length(name); 

     flag:=false; 

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,startl),start) then 

                        begin 

                             flag:=true; 

                             MsgInfo('PVPHelper запущен'); 

                        end; 

                        if strcmp(copy(_gBuff,le,stopl),stop) then 

                        begin 

                             flag:=false; 

                             MsgInfo('PVPHelper остановлен'); 

                        end; 

                        gBlockPacket; 

                   end; 

              end; 



       $1A0D: begin  

                   CharSID:=GInt(_gBuff,7,2); 

                   if (GInt(_gBuff,6,1) = 0) then gSys.SendS(FormatPck('%hhh',***91;$1E03,CharSID,0***93;));  

              end;  

     end;

     if _gFromServ then 

     case PID of 

       $660D: begin 

                   MsgInfo('Welcome to PVPHelper v.1.0'); 

                   MsgInfo('(c) broveymimo, 2010'); 

                   MsgInfo(''); 

                   MsgInfo('/PVP START для запуска скрипта'); 

                   MsgInfo('/PVP STOP для остановки скрипта'); 

                   MsgInfo('----------'); 

              end; 



       $1F03: begin 

                   if flag and (GInt(_gBuff,5,2) = CharSID) then 

                   begin 

                        Charname:=(copy(_gBuff,46,17)); 

                        gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),19,$203A,Charname+#0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,'куртка +',(GInt(_gBuff,19,1)+48),0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),9,$203A,'штаны +',(GInt(_gBuff,22,1)+48),0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),12,$203A,'перчатки +',(GInt(_gBuff,25,1)+48),0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),11,$203A,'ботинки +',(GInt(_gBuff,28,1)+48),0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),9,$203A,'шапка +',(GInt(_gBuff,31,1)+48),0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),7,$203A,'щит +',(GInt(_gBuff,34,1)+48),0***93;)); 

                        gSys.EnSendC(FormatPck('%hcdachacc',***91;$0A02,02,0,'***91;!***93;'+FStr(16),10,$203A,'оружие +',(GInt(_gBuff,37,1)+48),0***93;)); 

                        MsgInfo('----------'); 

                   end; 

              end; 

      end; 

END.

@broveymimo · 08.02.2010, 00:41

Цитата:

Сообщение от <Витёк>

Мне интересно почему хайды разные?) Я понимаю что там разные сообщения, но зачем их нужно было делить?

потому что gidbase под разными хайдами имеют разную ценность

11.02.2010, 16:13

Инетерсная вещь.
Было бы совсем няшно, если писалось на что заточка. Например Руки +5 (милосердии- точность), Тапки +5 (грации- додж).

[WPF Script] PVPHelper - Видим заточку вещей противника

Пакетный уровень RFO / WPF-скрипты

[WPF Script] PVPHelper - Видим заточку вещей противника