uses SysUtils, Classes;

var Fight_flag:boolean;
    IdBuff: integer;
    obj: tl2buff;
    charName:string;
    song:integer;
    s:string;

procedure inviteSWS;
begin
  charName := 'Perfect';
  song := 123123; //ID Song
  while 1<>2 do begin
  delay(150);
  if not User.Buffs.Byid(song, Obj) or (Obj.EndTime<1000)
  then begin
  Engine.MSG('MPSBuff','Приглашаю в пати СВС`а', 255);
  Engine.InviteParty(charName);
  Delay(12000);
  Engine.MSG('MPSBuff','Кикаю из пати СВС`а', 255);
  Engine.DismissParty(charName);
  end;
  end;
  farm;
end;


procedure farm;
	begin
		delay(100);
		print ('Жду пропажи Сонга');
		end;
		begin
		repeat
		inviteSWS;
		until engine.status = lsoffline;
		delay(1000);
end.