Видим заточку противника

[Mr.Plagiatos]

Предлагаю вашему вниманию скрипт PVPHelper.
Суть работы скрипта - вы берете персонаж в таргет и вам в приват приходит информация о заточке одетых на персонаже вещей.
Выглядит это так:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Запуск скрипта /PVP START
Останов скрипта /PVP STOP
Вот сам скрипт:

// Скрипт 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',[$0A02,02,0,'[!]'+FStr(16),Length(msg) + 2,$203A,msg+#0]));
     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',[$1E03,CharSID,0]));
              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',[$0A02,02,0,'[!]'+FStr(16),19,$203A,Charname+#0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),10,$203A,'куртка +',(GInt(_gBuff,19,1)+48),0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),9,$203A,'штаны +',(GInt(_gBuff,22,1)+48),0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),12,$203A,'перчатки +',(GInt(_gBuff,25,1)+48),0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),11,$203A,'ботинки +',(GInt(_gBuff,28,1)+48),0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),9,$203A,'шапка +',(GInt(_gBuff,31,1)+48),0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),7,$203A,'щит +',(GInt(_gBuff,34,1)+48),0]));
                        gSys.EnSendC(FormatPck('%hcdachacc',[$0A02,02,0,'[!]'+FStr(16),10,$203A,'оружие +',(GInt(_gBuff,37,1)+48),0]));
                        MsgInfo('----------');
                   end;
              end;
      end;
END.

[WARLOK567]

Куда скрипт вставлять?

[PEIIA]

тестил, норм робит

[Dunя]

Откуда слито?

[Тигрь]

С рфчитс слито наглым образом.

[Mr[FEo]]

Стандартная функция RFWarrior

[zoOmers]

А куда и каким образом его нужно запускать?

[300MORPH]

Даже не слито, а тупо скопированно) на рфчитсе этот скрипт в свободном доступе без хайда..

[qw1qwe]

Ну слито и ладно, не все сидят на рф-читс, пусть и жуковцы порадуются)

P.S. На ник автора смотрите)))

[Тигрь]

Просто надо указывать ссылку на оригинал, и хотя бы описание свое привел, для чего этот скрипт, как им пользоваться, и т.д.

[vladizio123]

куда скрипт хоть вставлять - подскажите

[Psionix]

Цитата: Сообщение от vladizio123 куда скрипт хоть вставлять - подскажите

WPF туда скрипт вставляй.

[Shigo]

киньте ссыль скачку WPF
а скрипт на другую расу робит? например при чв посматреть заточку противника

[PEIIA]

Фу Фу поиск не юзаешь Фу ФУ
Круто до http://zhyk.ru/forum/showthread.php?t=108