uses SysUtils, Classes;

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

procedure inviteSWS;
begin
  charName := 'SWS';
  Engine.MSG('MPSBuff','Приглашаю в пати СВС`а', 255);
  Engine.InviteParty(charName);
  Delay(10000);
  Engine.MSG('MPSBuff','Кикаю из пати СВС`а', 255);
  Engine.DismissParty(charName);
  delay(119000);
  farm;
end;


procedure farm;
	begin
		delay(100);
		print ('Качь пошел!!!');
		end;
		begin
		repeat
		inviteSWS;
		until engine.status = lsoffline;
		delay(1000);
end.