Показать сообщение отдельно
Старый 30.08.2012, 19:19   #6
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

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

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

PHP код:
const 
   
nik='Ник'
   
Enchant=15;
   
TimeOut 1000;

var 
   
SubIDSkillIDSkillLvlCurrEnchType1integer

//основная часть скрипта 
//вызывается при приходе каждого пакета если скрипт включен 
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). Не помню как там должно быть

Последний раз редактировалось Zergatul, 30.08.2012 в 19:19. Причина: Добавлено сообщение
Zergatul вне форума   Ответить с цитированием
За это сообщение Zergatul нажился 2 спасибками от: