okay, this is my script. it mines and will have antirandoms
[H]Line 88: [Error] (17749:5): Assignment expected in script [/H]
SCAR Code:
program Miner;
{.include SRL/SRL.scar}
const
RockColour= 2503250;
var
Time: Integer;
Rocks: Integer;
Procedure Players1;
Begin
HowManyPlayers:= 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;
Players[0].name := ('');
Players[0].pass := ('');
Players[0].nick := ('');
End;
procedure Proggy;
begin
ClearDebug
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Time) + ' seconds of hard labour' + ' ');
Writeln('[]========================================[]');
Writeln(' did ' + IntToStr(Rocks) + ' rocks' + ' ');
Writeln('[]========================================[]');
end;
Function FindRock: Boolean;
begin
if(FindColorTolerance(x, y, RockColour, 0, 0, 600, 600, 2))then
begin
Result := True;
begin
Repeat
if (FindRock) then
begin
Result := True;
Mouse(x, y, 2, 2, true);
Wait(500+random(1000));
Exit;
end;
until (False)
end;
end else
Writeln('Didnt find rock');
wait(5000+random(1000));
end;
Procedure Time1;
begin
wait(1000)
Time:=Time+1;
wait(1000)
end;
Procedure Dropores;
begin
if(InvFull)then
DropTo(2,28);
Rocks:=Rocks+27;
end;
begin
SetupSRL;
Players1;
repeat
Cleardebug;
Proggy;
Time;
Dropores;
until(false)
end.