var
se: TL2Live;
nick: String;


begin
nick := 'xxxxx';
while true do begin
delay(1000);
if (charlist.byname('xxxxx', se) and (se.sitting)) and (user.sitting) then begin
Engine.InviteParty(nick, ldRandom);
delay(15000); // wyjscie z combata
  while true do begin
  delay(1000);
  if (((not se.sitting) and (se.mp > 95)) and ((not user.sitting) and(user.mp > 95))) or (user.incombat) then begin
   Engine.DismissParty(nick);
   end;
  end;
end;
end;
end.