Показать сообщение отдельно
Старый 24.02.2011, 23:16   #3
Новичок
 
Регистрация: 17.01.2011
Сообщений: 18
Сказал Спасибо: 1
Имеет 2 спасибок в 2 сообщенях
червь пока неопределено
По умолчанию

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

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);
                     
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
Помоему под фрею какраз переделывал, попробуй
червь вне форума   Ответить с цитированием