Auto-Dispell

[Tio]

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

 

[SARCAZM]

@Tio, http://rawr.su/topic/343-sbornik-skriptov-ot-irev/скрипт auto dispel

 

[Tio]

@SARCAZM, это да я видел, но в скрипте я не понял где вписывать ID или название скиллов которые надо диспелить,
вот хотел узнать можно ли как-то настроить автодиспел через адрик, там же есть галочка диспелл и как она работает чет не могу допереть.

 

[SoundShocking]

вот хотел узнать можно ли как-то настроить автодиспел через адрик, там же есть галочка диспелл и как она работает чет не могу допереть.

через интерфейс можно только баффы/скиллы поставить которые есть у тебя/на тебе.

Procedure dispel;
var i: integer;
begin
while true do begin
For i := 0 to user.buffs.Count-1 do begin
Case user.buffs.Items(i).ID of
271,274,275,1519,1518,2876,2875,2877,2887,2888,2886,269,982,1256,1537,1416
: begin engine.dispel(user.buffs.Items(i).name); end;
end;
end;
end;
end;
Procedure dispell;
var i: integer;
buff:tl2buff;
begin
while true do begin
delay(10);
For i := 0 to user.buffs.Count-1 do begin
if user.buffs.byid(1169,buff) then begin
Case user.buffs.Items(i).ID of
268,1504,1062
: begin engine.dispel(user.buffs.Items(i).name); end;
end;
end;
end;
end;
end;
вот диспел попроще есть

 

[Tio]

@SoundShocking, ругается на твой скрипт, красным выделяет end;

 

[W1de]

Procedure dispel; var i: integer; begin while true do begin For i := 0 to user.buffs.Count-1 do begin Case user.buffs.Items(i).ID of 271,274,275,1519,1518,2876,2875,2877,2887,2888,2886,269,982,1256,1537,1416 : begin engine.dispel(user.buffs.Items(i).name); end; end; end; end; end; Procedure dispell; var i: integer; buff:tl2buff; begin while true do begin delay(10); For i := 0 to user.buffs.Count-1 do begin if user.buffs.byid(1169,buff) then begin Case user.buffs.Items(i).ID of 268,1504,1062 : begin engine.dispel(user.buffs.Items(i).name); end; end; end; end; end; end;

Procedure  dispel;
var i: integer;
begin
while true do begin
For i := 0 to user.buffs.Count-1 do begin
    Case user.buffs.Items(i).ID of
         271,274,275,1519,1518,2876,2875,2877,2887,2888,2886,269,982,1256,1537,1416
         : begin engine.dispel(user.buffs.Items(i).name);  end;
    end;    
end;
end;
end;
Procedure dispell;
var i: integer;
buff:tl2buff;
begin
while true do begin
delay(10);
For i := 0 to user.buffs.Count-1 do begin
if user.buffs.byid(1169,buff) then begin
    Case user.buffs.Items(i).ID of
         268,1504,1062
         : begin engine.dispel(user.buffs.Items(i).name);  end;
    end;    
end;
end;
end;
end;


begin
  Script.NewThread(@dispel);
end.

 

[Tio]

@W1de, пасибо заработало, а как его объеденить с холд таргетом?

 

[SoundShocking]

W1de, пасибо заработало, а как его объеденить с холд таргетом?

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