Can someone please find a solution to this?! I have tried soo hard but failed to figure this out.
My script keeps logging out, and I put writen('blah') after each line of part of the script where it messes up so I can find my mistake.
It keeps logging out and not mining.
this is the script:
SCAR Code:procedure ClickRock;
begin
Mouse(x, y, 1, 1, True);
writeln('1');
Replylaugh;
writeln('2');
Makesurepick;
writeln('3');
FindGas;
writeln('4');
Leveled;
writeln('5');
Myrandom;
writeln('6');
end;
procedure FindRock;
var
RockColor : Array [0..2] of Integer;
i : Integer;
begin
if not LoggedIn then Exit;
Rockcolor[0]:=3030370;
Rockcolor[1]:=3161957;
Rockcolor[2]:=2832993;
for i := 0 to GetArrayLength(RockColor) do Begin
if FindObjCustom(x,y,['ocks'],[Rockcolor[i]],6) then
begin
ClickRock;
end;
end;
end;
procedure MinedaRock;
var MiningTime : integer;
begin
MakeCompass('N');
writeln('10');
SetAngle(True);
writeln('11');
repeat
if Not(LoggedIn) then exit;
writeln('12');
FindRock;
writeln('13');
MarkTime(MiningTime);
writeln('14');
repeat
writeln('15');
Wait(250+Random(300));
writeln('16');
until FindBlackChatMessage('anage') or FindBlackChatMessage('vailable') or (timefrommark(MiningTime) > (WaitperRock +random(250)));
until (InvFull);
if (InvFull) then
begin
writeln( 'Inventory Full walking to bank.' );
end;
end;
Apparently it messed up in my FindRock procedure Please HELPP! someone! All would be repped!!






Reply With Quote









.
