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 :=...