Stealth Client Forum

Code: Select all

Program New;
var
i,k: Integer;
plist:array [1..12] of Integer;
flaginparty: Boolean;

begin
  plist[1]:=1477405;     
  plist[2]:=845656;     
  plist[3]:=472288;      
  plist[4]:=424031;      
  plist[5]:=1437837;    
  plist[6]:=1743999;   
  plist[7]:=2701064;    
  plist[8]:=1157204;    
  plist[9]:=2047781;    
  plist[10]:=1324970;    
  plist[11]:=731296;     
  plist[12]:=5755626;    
  while true do
  begin
    for i:=1 to 12 do
    begin

      if (IsObjectExists(plist[i])) and (GetDistance(plist[i])<7) then
      begin
        if InParty() then
        begin
          flaginparty:=false;
          for k:=0 to PartyMembersList.Count-1 do
          begin
            if IntToStr(plist[i])=PartyMembersList[k] then 
            begin
                flaginparty:=true;
            end;
          end;
          if flaginparty=false then
          begin
            InviteToParty(plist[i]); 
            AddToSystemJournal('Inviting: ' + GetName(plist[i]));
            wait(1000)
          end;
        end
        else
        begin
          InviteToParty(plist[i]); 
          AddToSystemJournal('Inviting: ' + GetName(plist[i]));
          wait(1000)
        end;
      end;
      wait(10);
    end;

     if(not Hidden) then
  begin
    UseSkill('Hiding');
  end;
  end; 
end.