Script sharpening enemy

[I am a Russian]

Run the script / PVP START
Stop Script / PVP STOP

Here's the script:

PHP Code:

/ / Script for the appearance of sharpening.
/ / Run SendPMessage ("PVP", "START")
/ / Stop 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 to run the script');
                   MsgInfo ('/ PVP STOP to stop the script');
                   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, 'jacket +', (GInt (_gBuff, 19,1) + 48), 0]));
                        gSys.EnSendC (FormatPck ('% hcdachacc', [$ 0A02, 02,0 ,'[!]'+ FStr (16), 9, $ 203A, 'pants +', (GInt (_gBuff, 22,1) + 48), 0]));
                        gSys.EnSendC (FormatPck ('% hcdachacc', [$ 0A02, 02,0 ,'[!]'+ FStr (16), 12, $ 203A, 'gloves +', (GInt (_gBuff, 25,1) + 48), 0]));
                        gSys.EnSendC (FormatPck ('% hcdachacc', [$ 0A02, 02,0 ,'[!]'+ FStr (16), 11, $ 203A, 'boots +', (GInt (_gBuff, 28,1) + 48), 0]));
                        gSys.EnSendC (FormatPck ('% hcdachacc', [$ 0A02, 02,0 ,'[!]'+ FStr (16), 9, $ 203A, 'header +', (GInt (_gBuff, 31,1) + 48), 0]));
                        gSys.EnSendC (FormatPck ('% hcdachacc', [$ 0A02, 02,0 ,'[!]'+ FStr (16), 7, $ 203A, 'shield +', (GInt (_gBuff, 34,1) + 48), 0]));
                        gSys.EnSendC (FormatPck ('% hcdachacc', [$ 0A02, 02,0 ,'[!]'+ FStr (16), 10, $ 203A, 'weapon +', (GInt (_gBuff, 37,1) + 48), 0]));
                        MsgInfo ('----------');
                   end;
              end;
      end;
END. 


[spaknotboys]

so this code will show the information about that targeted char??
more info plox.

[I am a Russian]

The script will show all the sharpening of the enemy