[Скрипт] Заточка вещей противника

[Aero93]

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

[Ссылки могут видеть только зарегистрированные пользователи. ]

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

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

PHP код:

// Скрипт на видимость заточки.
// Запуск              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('/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. 


[IversonI]

на pvpwar рботает?

[qw1qwe]

Цитата: Сообщение от IversonI на pvpwar рботает?

ну так проверь...........

[Тигрь]

Ну если ты трафик в состаянии расшифровать то работает.

[dexter06]

а куда этот скрипт сувать то)

[Никита5130]

Цитата: Сообщение от dexter06 а куда этот скрипт сувать то)

В wpf

[mikol123456]

а /PVP START куда писать ?

[vd96]

Цитата: Сообщение от mikol123456 а /PVP START куда писать ?

в самой игре. PVP - ник START - сообщение

[mikol123456]

напиши как это будет выгледить . если не сложно

[BиТaMuНkA]

сойдёт

[[zwiling]]

хоть тут скрипт не кривой)

[pomka11]

народ объясните плиз в скайп подробние vlad1234

[rimark]

только что проверял что-то не получилось(

[vnk]

Тема закрыта.

С Уважением, vnk