[Скрипт] Авто баф для чара

[stels1111]

Решил выложить Скрипт для автоматического бафа для чародея
При активации скрипта и вводе команды /bstart
Чародей бафается тремя скилами
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
Это довольно таки удобно когда находишься в пати или бегаешь в одиночку можно не обращать внимания на эти скилы и они будут юзаться по окончанию и откату автоматически Главное не забывать о мане
Вот собственно сам скрипт

PHP код:

var 
    cnt:Integer; 
    i:Integer;    
    skill:Integer;
    b1:Boolean;
    b2:Boolean;
    b3:Boolean;
    b4:Boolean;  
    active:Boolean;

procedure Init; //Вызывается при включении скрипта
begin
     active:=FaLse;
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure castBuf(id:Integer);
begin
    buf:=hstr('CF 57 6C');
    writeh(id);
    buf:=buf+hstr('01 00 00 00 00 00 00 00 F9 2F 00 00 ');
    sendToServer;
end;

 procedure Log(msg:String); //Вызывается при включении скрипта
begin
    //sendMSG('Using conid:' + IntToStr(useforconnectid));
    buf:=HStr('17 50 D4 19 00 00 00 00 00 00 00');
    WriteS(msg);
    SendToClient;
end;
begin
       if(fromclient) and  (pck[1]=#$B9) then
       begin
     
            sendMsg(ReadS(5));
            if(CompareText(ReadS(5),'/bstart')=0) then    
            begin  
             active:=true;
             pck:=hstr('C9 57 66 18');
             Log('ChantAutoBuf: started');
            end;
            if(CompareText(ReadS(5),'/bstop')=0) then
            begin  
             active:=false;
             pck:=hstr('C9 57 66 18');  
              Log('ChantAutoBuf: stopped');
            end;
       end;
       if (active) and (fromserver) and (pck[1]=#$4E) then
       begin                                
          b1:=TRUE;  //1223
          b2:=TRUE; //1224
          b3:=TRUE; //1225
          b4:=TRUE;
          cnt:=ReadH(8);
           for i := 0 to (cnt-1) do
            begin
                skill:=ReadH(i*12+14);
                 if (skill=1223) then   b1:=FALSE;
                 if (skill=1224) then   b2:=FALSE; 
                 if (skill=1225) then   b3:=FALSE; 
            end;
            
            if(b1) then   castBuf(1223);   
            if(b2) then   castBuf(1224);   
            if(b3) then   castBuf(1225);
            
            
       end
end. 


Чтобы остановить работу скрипта ввести /bstop.
Проверенно на Aion-free. Подходит как Элийцам так и Асмам.Что бы создать скрипт заходим в l2phx вкладка Автоматизация -> Скрипты -> Новый скрипт -> Называем как вам удобно -> Копируем и заменяем весь текст скрипта -> Сохраняем -> Ставим галочку вводим команду и вперед.
Кому помог не стесняемся ставим спасибку или + (если нет ещё 10 сообщений). Спасибо за внимание.

[par-vova]

Нелегче тык

Там мой скрипт на баф.

Хотя нет сорри т.к. тут он автоматически бафается после окончяния бафов.

[Aoi Hana]

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