[Zergatul]

В каждом топике еще напиши, может быстрее помогут

Добавлено через 2 минуты
А вообще-то здесь не любят людей, которые абсолютно ничего не понимают в программировании. Но сегодня тебе повезло:

PHP код:

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

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);
                     Sleep(TimeOut);
                     SendToServerEx(nik);  
                   end; 
        #$A1:   //не точнулся 
             begin 
                     CurrEnch:=1; 
                     Buf:=#$D0; 
                     WriteH(SubID); 
                     WriteD(SkillID); 
                     WriteD(SkillLvl+CurrEnch);
                     Sleep(TimeOut);
                     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. 


Добавлено через 1 минуту
Если скажет что ошибка на строчке Sleep(TimeOut), изменишь на Delay(TimeOut). Не помню как там должно быть