My first SRL script yay!

[crapkiller]

A powerminer! (thats what EVERYONE makes duh)

It has a few of the basic SRL anti-randoms. Im not even sure if they work lolz. No anti-ban yet but it doesn't use movemouse etc.

THIS ONLY MINES COPPER. I was too lazy to quickly edit it for everything. If you know how you can change the colors. again THIS ONLY MINES COPPER. i DON'T suggest using this for more than 2 loads.

program New;
{.include SRL\SRL.Scar}

Const
Weild = false; // True if pick is weilded,  False if it is not.

var CurrentOres,Loads,Ores:integer;

Procedure FindRandomz;
begin
  FindNormalRandoms;
  FindLamp('mining');
   if FindFight then
    begin
     RunAwayDirection('n');
     Wait(10000+random(2000));
     RunBack;
    end;
end;


Procedure FindRock;
begin
if(FindColorTolerance(x,y,4815555,209, 123,306, 235,10) = true) then
begin
Mouse(x,y,1,1,true);
end

if(FindColorTolerance(x,y,4815555,209, 123,306, 235,10) = false) then

if(FindColorTolerance(x,y,4815555,142, 35,404, 321,10) = true) then
begin
Mouse(x,y,1,1,true);
end

if(FindColorTolerance(x,y,4815555,142, 35,404, 321,10) = false) then

if(FindColorTolerance(x,y,4815555,6, 6,514, 335,10) = true) then
begin
Mouse(x,y,1,1,true);
end

if(FindColorTolerance(x,y,4815555,6, 6,514, 335,10) = false) then FindRock;
FindRandomz;
end;


Procedure Checkifdone;
begin
CurrentOres := CountItemColor(3635923)
while (CountItemColor(3635923) = CurrentOres)do
begin
wait(500);
end;
FindRandomz;
end;

Procedure ProggyReport;
begin
if (Weild = false) then x := 27
if (Weild = true) then x := 28
Ores := Loads * x
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + ScriptTime2(2))
Writeln('|Mined and Dropped '+IntToStr(Loads)+' Loads');
Writeln('|Mined and Dropped '+ IntToStr(Ores)+' Ores');
Writeln('|---------------------------------------------|');
end;


begin
ActivateClient;
SetUpSRL;
Makecompass('N');
HighestAngle;
repeat
while(InvFull = False) do
begin
FindRock;
CheckIfDone;
end;
if (Weild = false or False) then DropTo(2,28);
if (Weild = true or True) then DropTo(1,28);
Loads := Loads + 1
ProggyReport;
until(false);
end.

 

[JAD]

You don't need = true and = false in the FindColor/FindColorSpiral command. I'd suggest you learn standards other then that, good first script. Keep it up.