SCAR Code:
program Min0r;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{
Start Logged In!
Check DebugBox after clicking start,
it will then automacitly select the RS screen!
}
var x, y, RocksMined, O : Integer;
RockColor: Array [0..2] of Integer;
const
RunDir = 'S'; //Direction to run when in fight
procedure LoadArrays;
begin
RockColor[0] := 1581113;
RockColor[1] := 1583170;
RockColor[2] := 1581105;
end;
procedure RunOn;
begin
Mouse(674, 482, 2, 2, true);
if (FindColor(x, y, 4869450, 625, 414, 658, 447)) then
begin
Mouse(x, y, 5, 5, true);
end else
Exit;
end;
procedure MineThaOre;
begin
if (not(LoggedIn)) then
Exit;
if (FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5)) or
(FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5)) or
(FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5)) then
MMouse(x, y, 0, 0);
wait(100+random(100));
if IsUpText('ine') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
FindPick;
GasFound(x, y);
wait(3000+random(1000));
RocksMined := RocksMined + 1;
end;
end;
function FindFastRandoms: Boolean; // the srl team
var
i: Integer;
begin
for i := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
Wait(1);
end;
end;
procedure Randoms;
begin
if not LoggedIn then Exit;
FindTalk;
FindATradeByRick;
FindNormalRandoms;
FindFastRandoms;
FindLamp('mining');
SolvePinball;
if FindFight then
begin
RunTo('S', True);
Wait(15000 + random(5000));
RunBack;
end;
end;
procedure Proggy;
begin
ClearDebug;
Writeln('|+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|');
Writeln('Made by Floor66');
Writeln('/////////////////////////////////////////////////////////////');
Writeln('Copy? : Yes, but, CREDIT!');
Writeln('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\');
Writeln('Ores did so far: '+IntToStr(RocksMined)+'');
Writeln('|+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|');
end;
procedure Credits;
begin
ClearDebug;
Writeln('+++++++++++++++++++++++++++CREDITS:+++++++++++++++++++++++++++');
Wait(500);
Writeln(' _____ __ ______ ______ _____ ____ ____ ');
Wait(100);
Writeln('/\ __\ /\ \ /\ ___\/\ ___\/\ __\ / ___\ / ___\ ');
Wait(100);
Writeln('\ \ \_\ \ \ \ \ \ \/\ \ \ \/\ \ \ \_\ \ /\ \__/ /\ \__/ ');
Wait(100);
Writeln(' \ \ _\ \ \ \ __\ \ \ \ \ \ \ \ \ \ , / \ \ _``\ \ _``\ ');
Wait(100);
Writeln(' \ \ \/ \ \ \_\ \\ \ \_\ \ \ \_\ \ \ \\ \ \ \ \_\ \ \ \_\ \');
Wait(100);
Writeln(' \ \_\ \ \____/ \ \_____\ \_____\ \_\ \_ \ \____/\ \____/');
Wait(100);
Writeln(' \/_/ \/___/ \/_____/\/_____/\/_/\/_/ \/___/ \/___/ ');
Wait(100);
Writeln('++++++++++++++++++++++++++++CREDITS:++++++++++++++++++++++++++');
end;
procedure AntiBan;
begin
if (not(LoggedIn)) then
Exit;
SleepAndMoveMouse(1000+random(1337));
end;
begin
SetupSRL;
MouseSpeed := 20;
LoadArrays;
Credits;
wait(1000);
ActivateClient;
if (not(LoggedIn)) then
begin
Exit;
end;
repeat
repeat
O := O + 1
if (not(LoggedIn)) then
begin
Exit;
end;
MineThaOre;
AntiBan;
FindfastRandoms;
Randoms;
Proggy;
until(O = 28);
DropToPosition(1, 28);
SrlRandomsReport;
until(false);
end.