[червь]

PHP код:

const
   nik='Ник';
   Enchant=15;

var
   SubID, SkillID, SkillLvl, CurrEnch, Type1: integer;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if FromServer and ((pck[1]=#$62) and (pck[3]=#$05)) then case pck[2] of
        #$A0:   //точнулся
                if CurrEnch<Enchant then
                   begin              
                     CurrEnch:=CurrEnch+1;
                     Buf:=#$D0;
                     WriteH(SubID);
                     WriteD(SkillID);
                     WriteD(SkillLvl+CurrEnch);
                     SendToServerEx(nik); 
                   end;
        #$A1:   //не точнулся
             begin
                     CurrEnch:=1;
                     Buf:=#$D0;
                     WriteH(SubID);
                     WriteD(SkillID);
                     WriteD(SkillLvl+CurrEnch);
                     SendToServerEx(nik);
             end;
    end;

    if FromClient and ((pck[1]=#$D0) and (pck[2]=#$0F)) then
        begin
           SubID:=ReadH(2);
           SkillID:=ReadD(4);
           SkillLvl:=ReadD(8)-1; 
           CurrEnch:=1;
        end;
end. 


Помоему под фрею какраз переделывал, попробуй