Автоматическое снятие дебафов 2,7

**altairalentus** · 26.02.2012, 02:00

Дорого времени суток. Это очередной мой скрипт снимает негативные или любые другие эффекты с персонажа. Список храниться в файле debaf.txt который необходимо создать и вписать ид скилов (каждый ид начинается с новой строки) файл должен быть в папке пакехака.
Не советую вписывать скилы типа коляска, дерево, сон, шок потому что склил снимается сразу после наложения и ваш противник через 5 минут будет на форуме писать "ЧТО ЗА". Для даных скилов есть скрипт с активацией через чат http://zhyk.ru/forum/showthread.php?t=367252

Обновил скрипт(13,04,12). Теперь в списке можно указать паузу в миллисекундах для каждого скила :

Код:

1389=2000 Коррозия V
1795=2000 Обширная коррозия III
1685=4000 Вопль ужаса I
1636=4000 Вопль духов I

Также есть команды:
.antidebaf_on - включения скрипта (при старте скрипт автоматически активируется не нужно писать .antidebaf_on )
.antidebaf_off - выключения скрипта

В файле после задержки снятия можно написать комментарий
"99999=0 //йцукен". Отступ и символы не имеют значения скрипт берет только число после равно.

Код:

//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(14) do
            begin
                t.add(inttostr(readh(20+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('CA 00 57 69 FF');
                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('CA 00 57 69 FF');
         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('b2')) then       
         case reads(7) of
            '.antidebaf_on': cap(1);
            '.antidebaf_off': cap(0); 
         end;  
           
    if FromServer and (capture=1) and(pck[1]=HStr('51')) then check;      
          
end.

пример записи ххххх=0 //ххххххх ето значит ххххх - ид скила, 0 - задержка в миллисекундах, //ххххххх - комментарий.
Для правильной работы скрипта поле последней строки жмем ентер
Мой скромный список "против" заклинателей

Если понравилось нажми спасибо.

xaos963 · 26.02.2012, 10:53

список ведь в папке с ПХ должен хранится? или в папке со скриптами?
и можно ли переделать его так чтоб он работал от команды в чат??

**altairalentus** · 26.02.2012, 12:09

Цитата:

Сообщение от xaos963


	список ведь в папке с ПХ должен хранится? или в папке со скриптами? и можно ли переделать его так чтоб он работал от команды в чат??

Файл должен был в папке с ПХ. Планирую написать скрипт с 2 списками авто снятия и через чат, есть идея использовать снятия сна, колясок с 5 сек задержкой в авто режиме.

par-vova3 · 26.02.2012, 12:15

Цитата:

Сообщение от altairalentus


	Файл должен был в папке с ПХ. Планирую написать скрипт с 2 списками авто снятия и через чат, есть идея использовать снятия сна, колясок с 5 сек задержкой в авто режиме.

Например ты вписываешь скил [Ссылки могут видеть только зарегистрированные пользователи. ] в список, то когда син на тебя молчанку ложит дебафа нету сразу или он через секунду снимается?

**altairalentus** · 26.02.2012, 12:37

Цитата:

Сообщение от par-vova3


	Например ты вписываешь скил [Ссылки могут видеть только зарегистрированные пользователи. ] в список, то когда син на тебя молчнку ложит дебафа нету сразу или он через секунду снимается?

снимается сразу после прихода пакета с списком эффектов персонажа. Вовремя тестов все происходило не более 1 секунды

par-vova3 · 26.02.2012, 13:12

На aionUA почему то непашет.

Вот мой список который я сделал, он в общем то палевный.

Код:

~~manyunya~~ · 26.02.2012, 14:34

а можно так вызывать?
s.loadfromfile('d:\test\debaf.txt');

**altairalentus** · 26.02.2012, 15:07

Цитата:

Сообщение от manyunya


	а можно так вызывать? s.loadfromfile('d:\test\debaf.txt');

Да можно указать полный путь

ildar3180 · 26.02.2012, 17:26

этот скрипт работает только на противоположной рассе? т.к у меня он в пвп не робит .

**altairalentus** · 26.02.2012, 17:38

Цитата:

Сообщение от ildar3180


	этот скрипт работает только на противоположной рассе? т.к у меня он в пвп не робит .

Должен работать и в любом режиме. Проверь файл debaf.txt все ли там эффекты записаны. Проверь работает на твоем сервере баг http://zhyk.ru/forum/showthread.php?t=321528

**altairalentus** · 28.02.2012, 00:36

Как обещал обновил скрипт, изменение в шапке.

x-miskalin-x · 28.02.2012, 16:23

Я так понимаю, что этим скриптом можно снимать и станы и небесный плен?

celsi · 05.03.2012, 15:12

баф.тхт чота у меня не сохраняется, вин 7/64... написал туда все скиллы но после релога нету там ничего !

**altairalentus** · 05.03.2012, 19:53

Цитата:

Сообщение от celsi


	баф.тхт чота у меня не сохраняется, вин 7/64... написал туда все скиллы но после релога нету там ничего !

когда заполняешь файл скрипт должен быть отключен.
Отредактировал скрипт там команда сохранения в файл была не нужна,так как файл нужен только для чтения.

Nikci · 12.03.2012, 08:37

Подскажите плиз на 2.5 будет работать если заменить эти данные CA 00 57 69 FF , если да то откуда их брать ?

Автоматическое снятие дебафов 2,7

Боты, скрипты и прочий софт для Aion