Author Topic: script causes stealth to crash after 3+ hours.  (Read 2953 times)

0 Members and 1 Guest are viewing this topic.

Offline themaskedwolfTopic starter

  • Newbie
  • *
  • Posts: 5
  • Activity:
    0%
  • Reputation Power: 1
  • themaskedwolf has no influence.
  • Gender: Male
  • Respect: 0
  • Referrals: 0
    • View Profile
script causes stealth to crash after 3+ hours.
« on: May 29, 2018, 01:01:26 PM »
0
ok i run this script 24/7 on freeshard and works fine except when i go to bed and wake up  stealth has crashed.  tried it on latest version and  older version of the stealth client.   someone maybe able to tell me if i screwed the code up somewhere. purpose of script is to  auto invite people to party if they are not in party.
Code: [Select]
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.
Thanks,
TheMaskedWolf

Tags: