hey, how do i get this to work?
SCAR Code:
// Made by 05hartor
// De-Bugged by Jad and Starblaster100
// Mines ore and then drops
// No Anti-Randoms
// Will run forever
program Mine;
{.include SRL/SRL.scar}
const
RockColour= 2503250; //iron
begin
Writeln('[]========================================[]');
Writeln('---------------->Proggy<----------------');
Writeln(' did ' + {........what goes in this bit for it to work} + ' Loads');
Writeln('[]========================================[]');
end;
Function FindRock: Boolean;
begin
if(FindColorTolerance(x, y, RockColour, 0, 0, 600, 600, 2))then
begin
Result := True;
Writeln('Found Rock');
end else
Writeln('Didnt find rock');
end;
Function MoveMouseToRock: Boolean;
begin
Repeat
if (FindRock) then
begin
Result := True;
MMouse(x, y, 2, 2);
Wait(10+random(100));
Exit;
end;
until (False)
end;
procedure ClickRock;
begin
if (MoveMouseToRock = true) then
begin
Mouse(x, y, 2, 2, True)
Wait(10+random(20));
end;
end;
Procedure Dropores;
begin
if(InvFull)then
DropTo(2,28);
Loads:=Loads+1;
end;
begin
SetupSRL;
repeat
FindRock;
MoveMouseToRock;
ClickRock;
Dropores;
ProgressReport;
until(false)
end.