SCAR Code:
program Powerminer;
{.Include SRL\SRL.SCAR}
Var
x,y :integer;
Const
rock1= 456467;//this IS a random number use the colour picker for real colours
rock2= 564564;//same as above
waittime= 5789;//time to wait
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'myuseris';
Players[0].Pass := 'mypasswordis';
Players[0].Nick := 'eris'; //3-4 LETTERS from name like i did myusERIS
Players[0].Active:= True;
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
end;
Procedure Randoms;
Begin
FindNormalRandoms;
End;
procedure AntiBan;
begin
if not LoggedIn then Exit;
begin;
case (Random(30)) of
1: HoverSkill('mining', False);
2: RandomMovement;
3: PickUpMouse;
4: begin
Gametab(1 + Random(5));
Gametab(4);
end;
30: SleepAndMoveMouse(300);
end;
end;
program minerock;
Begin;
if(not(LoggedIn)) then LoginPlayer;
Procedure oredropping;
Var
i: Integer;
Begin
If Not (LoggedIn) Then Exit;
GameTab(4);
For i := 2 To 28 Do
Begin
If ExistsItem(i) Then
DropItem(i);
writeln('ores are dropped');
End;
End;
but in the procedure mine rock how to i make it to click rock1 or rock2?