1
Stealth Client / script causes stealth to crash after 3+ hours.
« on: May 29, 2018, 01:01:26 PM »
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.