can sum1 solve this error for me???
the error is :
SCAR Code:
[Runtime Error] : Out Of Range in line 954 in script
Line 954 is:
SCAR Code:
If FindObjCustom(x,y,['ocks'],[Rockcolor[i]],6) then
Line 954 is in this part of the script is:
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
Rockcolor[0]:=3030370;
Rockcolor[1]:=3161957;
Rockcolor[2]:=2832993;
begin
if (not (Loggedin)) then Exit;
for i:= 0 to 2 do
writeln('7');
If FindObjCustom(x,y,['ocks'],[Rockcolor[i]],6) then
begin
writeln('8');
ClickRock;
writeln('9');
end;
end;
end;
procedure MinedaRock;
var MiningTime : integer;
begin
MakeCompass('N');
writeln('10');
SetAngle(True);
writeln('11');
repeat
writeln('12');
if Not(LoggedIn) then exit;
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;