procedure cleanse;
const
range=600;
var
skill: TL2Skill;
j: Integer;
i:integer;
bp,n1,n2,n3:string;
Buffs: TL2Buff;
targ:TL2Live;
BuffList: array of integer;
begin
bufflist:= []; // вставить ID дебафов.
while Engine.Status = lsOnline do
begin
for j:=0 to Party.Chars.Count -1 do
begin
targ := Party.Chars.Items(j);
bp:='nick1'; //ники пати мемберов, которых нужно клинсить
n1:='nick2';
n2:='nick3';
n3:='nick4';
for i:=0 to high(Bufflist) do
If (targ.Buffs.ById(BuffList, buffs)) and
((targ.name=bp) or (targ.name=n1) or (targ.name=n2) or (targ.name=n3)) and
((Engine.GetSkillList.byid(1409, skill)) and (Skill.EndTime < 950)) and
(not user.buffs.byid(1248,buffs))
then
if (User.DistTo(targ)<range) and not (targ.Dead) then
begin
Engine.SetTarget(targ);
delay(10);
Engine.Usekey(); // код клавиши, на которой стоит клинс
end;
end;
end;
end;
begin
script.newthread(@cleanse);
delay(100);
end.
клинс "из макроса"(проверка на откат клинса) определенных дебафов(проверка по айди дебафа) с определенных патимемберов(проверка по нику).
const
range=600;
var
skill: TL2Skill;
j: Integer;
i:integer;
bp,n1,n2,n3:string;
Buffs: TL2Buff;
targ:TL2Live;
BuffList: array of integer;
begin
bufflist:= []; // вставить ID дебафов.
while Engine.Status = lsOnline do
begin
for j:=0 to Party.Chars.Count -1 do
begin
targ := Party.Chars.Items(j);
bp:='nick1'; //ники пати мемберов, которых нужно клинсить
n1:='nick2';
n2:='nick3';
n3:='nick4';
for i:=0 to high(Bufflist) do
If (targ.Buffs.ById(BuffList, buffs)) and
((targ.name=bp) or (targ.name=n1) or (targ.name=n2) or (targ.name=n3)) and
((Engine.GetSkillList.byid(1409, skill)) and (Skill.EndTime < 950)) and
(not user.buffs.byid(1248,buffs))
then
if (User.DistTo(targ)<range) and not (targ.Dead) then
begin
Engine.SetTarget(targ);
delay(10);
Engine.Usekey(); // код клавиши, на которой стоит клинс
end;
end;
end;
end;
begin
script.newthread(@cleanse);
delay(100);
end.
клинс "из макроса"(проверка на откат клинса) определенных дебафов(проверка по айди дебафа) с определенных патимемберов(проверка по нику).
