great looking script, you must apply members, now!!
but error in line 330:
SCAR Code:
repeat
MarkTime(Time);
Wait(250+Random(250));
if FindRandoms then
if not LoggedIn then
begin
NextPlayer(False);
Exit;
end;
until FindObjRock(x, y, Index) or (GetSystemTime > (Time+RandomRange(15000, 20000)));
should be like this:
SCAR Code:
MarkTime(Time); // <-- so that Time wouldn't be reset in the loop causing possible endless loop
repeat
Wait(250+Random(250));
if FindRandoms then
if not LoggedIn then
begin
NextPlayer(False);
Exit;
end;
until FindObjRock(x, y, Index) or (GetSystemTime > (Time+RandomRange(15000, 20000)));
and i think you should make a boolean variable "SuccesfullyMined", and use it like this:
SCAR Code:
SuccesfullyMined := FindObjRock(x, y, Index);
MarkTime(Time);
If not SuccesfullyMined then
repeat
Wait(250+Random(250));
if FindRandoms then
if not LoggedIn then
begin
NextPlayer(False);
Exit;
end;
SuccessfullyMined := FindObjRock(x, y, Index);
until SuccesfullyMined or (GetSystemTime > (Time+RandomRange(15000, 20000)));
If not SuccesfullyMined then
begin
Writeln('Did not find any rocks');
LogOut;
Exit;
end;
because everytime you call "FindObjRock" it tries to find the rock, so your procedure tried to look for the rock 2 times. now its less likely to fail
