Well...I think I've located the problem, but I'm not too sure what to do about it :P
Anyways it's in this part:
SCAR Code:
Function FindAll:boolean;
var i:integer;
Begin
if (not(Loggedin)) then exit;
while (barscreen) do
wait(100);
XDebug('Waiting...');
While ((OreCount) > 0) do
begin
case i+1 of
1: begin
If Findlevel then
begin
Result:=True;
break;
end;
end;
2: Begin
If FindNormalRandoms then
begin
Result:= True;
break;
end;
end;
3: Begin
If random(100) > 80 then
IdleTime(400, 400, 0.5);
wait(10);
end;
4: Begin
If Random(100) >89 then
If HoverSmithing then
begin
result:=true;
break;
end;
End;
end;
wait(300);
i:=i+1;
if i>4 then i:=0;
if rock2 <> 0 then
if (OreCount2 <= 0) then break;
If (OreCount2 < Ore2Amount) then break;
end;
end;
Hmm...I think I've found a little solution here:
SCAR Code:
Function FindAll:boolean;
var i:integer;
Begin
if (not(Loggedin)) then exit;
while (barscreen) do
wait(100);
Replace the "Wait(100)" with "wait(5000)", worked well at least for me :P