[Скрипт] Автоматическое снятие дебафов 2,7

[Nikci]

//############################
//by Alatair_Alentus
//AntiDebaf_v1.02
var 
s,t:tstringlist;
capture:byte;
c_name:string;
Timer: array[1..10] of TTimer;
param: array[1..10] of integer;


procedure init ;
begin
s:=tstringlist.create;
t:=tstringlist.create;
s.loadfromfile('debaf.txt');
capture:=1;
end;

procedure Free ;
begin


end;


procedure check;
var
b,i:integer;
    begin  
        b:=0; 
        t.clear;
        for i:= 1 to readc(12) do
            begin
                t.add(inttostr(readh(18+b)));
                b:=b+12;
            end;
        for i:=0 to s.count-1 do if t.indexof(s.names[i])>=0 then deldebaf(s.names[i]);        
          
    end;        
    
procedure deldebaf(idn:string);
var
tm:string;
pause,i:integer;
    begin 
       for i:=pos(' ',s.values[idn])-1 downto 1 do
        tm:=s.values[idn][i]+tm;
        pause:=StrToInt(tm);
        tm:='';       
        if pause=0 then 
            begin      
                buf:=HStr('D1 57 6E');
                writeh(StrToInt(idn));  
                buf:=buf+HStr('00'); 
                capture:=0;  
                SendToServer;
                capture:=1;
                buf:='';   
                idn:=''; 
            end 
            else 
                begin
                    c_name:=ConnectName; 
                    for i:=1 to 10 do  
                        begin
                            if Timer[i]=nil then
                                begin  
                                    Timer[i]:=TTimer.Create(nil);
                                    param[i]:=StrToInt(idn); 
                                    Timer[i].OnTimer:=@TimerOn;  
                                    Timer[i].interval:=pause;
                                    Timer[i].tag:=i;
                                    Timer[i].enabled:=true; 
                                    Break;
                                end;
                        
                        end;
                end;  
    end;             
           
procedure TimerOn(Sender:TTimer);
    begin 
         buf:=HStr('D1 57 6E');
         writeh(param[sender.tag]);  
         buf:=buf+HStr('00'); 
         SendToServerEx(c_name); 
         buf:='';   
         sender.enabled:=false;
         sender.Free;    
    end;  
    
    
procedure cap(c:byte);
    begin       
        capture:=c;
        pck:='';  
    end; 
          
begin
    if FromClient and (pck[1]=HStr('b9')) then       
         case reads(5) of
            '.antidebaf_on': cap(1);
            '.antidebaf_off': cap(0); 
         end;  
           
    if FromServer and (capture=1) and(pck[1]=HStr('51')) then check;      
          
end.

Сделала под 2.5 но почему то скрипт не работает , может ошиблась где . Посмотрите пожалуйста .

[altairalentus]

Ошибка в том что скрипт проверяет пакет от сервера 51 с бафами перса а в 2,5 это пакет 4E

//############################
//by Alatair_Alentus
//AntiDebaf_v1.02
var 
s,t:tstringlist;
capture:byte;
c_name:string;
Timer: array[1..10] of TTimer;
param: array[1..10] of integer;


procedure init ;
begin
s:=tstringlist.create;
t:=tstringlist.create;
s.loadfromfile('debaf.txt');
capture:=1;
end;

procedure Free ;
begin


end;


procedure check;
var
b,i:integer;
    begin  
        b:=0; 
        t.clear;
        for i:= 1 to readc(12) do
            begin
                t.add(inttostr(readh(18+b)));
                b:=b+12;
            end;
        for i:=0 to s.count-1 do if t.indexof(s.names[i])>=0 then deldebaf(s.names[i]);        
          
    end;        
    
procedure deldebaf(idn:string);
var
tm:string;
pause,i:integer;
    begin 
       for i:=pos(' ',s.values[idn])-1 downto 1 do
        tm:=s.values[idn][i]+tm;
        pause:=StrToInt(tm);
        tm:='';       
        if pause=0 then 
            begin      
                buf:=HStr('D1 57 6E');
                writeh(StrToInt(idn));  
                buf:=buf+HStr('00'); 
                capture:=0;  
                SendToServer;
                capture:=1;
                buf:='';   
                idn:=''; 
            end 
            else 
                begin
                    c_name:=ConnectName; 
                    for i:=1 to 10 do  
                        begin
                            if Timer[i]=nil then
                                begin  
                                    Timer[i]:=TTimer.Create(nil);
                                    param[i]:=StrToInt(idn); 
                                    Timer[i].OnTimer:=@TimerOn;  
                                    Timer[i].interval:=pause;
                                    Timer[i].tag:=i;
                                    Timer[i].enabled:=true; 
                                    Break;
                                end;
                        
                        end;
                end;  
    end;             
           
procedure TimerOn(Sender:TTimer);
    begin 
         buf:=HStr('D1 57 6E');
         writeh(param[sender.tag]);  
         buf:=buf+HStr('00'); 
         SendToServerEx(c_name); 
         buf:='';   
         sender.enabled:=false;
         sender.Free;    
    end;  
    
    
procedure cap(c:byte);
    begin       
        capture:=c;
        pck:='';  
    end; 
          
begin
    if FromClient and (pck[1]=HStr('b9')) then       
         case reads(5) of
            '.antidebaf_on': cap(1);
            '.antidebaf_off': cap(0); 
         end;  
           
    if FromServer and (capture=1) and(pck[1]=HStr('4E')) then check;  //Вот здесь    
          
end.

[Ra1van1]

Сделал готовый набор дебафов под все классы

2225=0 Облако проклятия II /////закл\\\\\
2238=0 Сжечь чары IV
2230=0 Невыносимые муки II
1389=0 Коррозия V
1795=0 Обширная коррозия III
1685=3000 Вопль ужаса I
1636=3000 Вопль духов I
1782=3000 Проклятие: Элементаль воды I
1781=3000 Проклятие: Элементаль огня I
1663=0 Замедляющие кандалы I
1769=0 Блокирование магии I
1770=0 Замедление I
1789=0 Сковать крылья I
2006=0 Узы сна I
8689=0 Сжечь чары IV
2087=0 Стрела молчания VI //////лук\\\\\\
1443=3000 Шторм сна I ///////Волш\\\\\
1454=3000 Проклятие: Дерево I
1495=3000 Сон I
2188=0 Ураган иллюзий III
1520=0 Оковы холода IV
2213=0 Лезвие ветра V
18954=0 Ледяной столп IV
8224=0 Воздушные оковы
1386=0 Взрыв V
1388=0 Ледяные узы V
8217=0 Отталкивание
1527=0 Ожог IV
1373=0 Оковы I
1428=0 Падение молнии I
2202=0 Замораживание II
1524=0 Замораживание души II
1593=0 Расплавление II 
802=0 Туманная завеса I ////Асасин\\\\\
873=0 Подлый удар II
1990=0 Клинок обморока I
2124=0 Рассекающая молния IV
2126=0 Засада VI
8303=0 Нанесение клейма I
8304=0 Нанесение клейма II
8305=0 Нанесение клейма III
8307=0 Нанесение клейма V
8383=0 Эффект оглушения
8404=0 Отравленный клинок IV
8483=0 Применение смертельных ядов I
8523=0 Вспышка иссушающего клейма II Дополнительный эффект
8527=0 Вспышка клейма света I Дополнительный эффект
8574=0 Немота
1999=0 Шоковый удар I      ///Чародей\\\
2174=0 ударный захват II
2173=0 Проникающий захват II
1238=0 Захват резоонанса III
2142=0 Исполнение приговораа V
1028=0 Ослабляющее клеймо II
2152=1500 цепь страданий IV
2259=4000 Глас сокрушения II
2284=0 Молния правосудия IV
2140=0 Натиск земли V
982=0 Возмездие небес IV
2040=0 Изоляция V
2039=0 Истощающий удар VI
228=1500 Порез ног II
2033=0 Бросок меча II
399=0 Бойня I
321=0 Волна боевого безумия I
389=0 Волна землятресения II
400=0 Резня I
320=0 Ударная мощь меча I
396=0 Ударная мощь меча I
2100=0 Замедляющая ловушка IV
2089=1000 Оглушающая стрела II
716=1000 Песчаная ловушка II
619=2000 Усыпляющая ловушка I
727=2000 Липкая ловушка IV
722=0 Аркан IV
1429=0 Падение молний II
1430=1000 Прокляти сухое дерево I
1524=1000 Замораживание души II
2196=1000 Проклятие слабости III
1388=0 Ледяные узлы V
1527=0 Ожог IV
1520=1000 Оковы холода IV
2205=1000 ураган иллюзий
1443=3000 Шторм сна I
2210=0 Покров холода III
2012=0 Загробное проклятие I
1665=0 Сокрушающая атака I
2219=1500 Ураган гнева II
1716=1000 Земляные оковы IV
1781=2000 Элементаль огня
2225=4000 Облако проклятия II
1974=1500 Волна оков II
2064=0 Разрушение сознания IV
540=1000 Крик ужаса I
1099=1500 Оковы I
1373=1500 Оковы I

[V0pr0S]

почему не снимает скилы которые за DP ?
Клеймо молчания, Глас сокрушения....