SCAR Code:
program Varrock_East_Miner_Banker;
{.include SRL/SRL.scar}
{.include SRL\SRL\extended\xMapWalk.scar}
{.include SRL\SRL\extended\xBank.scar}
var
Tin,Copper,Iron,colorofroad,road: Integer;
const
typeofore='Tin';//Will except Iron,Tin, and Copper
banksymbol=0;//0 to autocolor
pin=false;//If you have no pin then leave at false
timetowait=7000;//Amout of time to wait before clicking rock again
procedure bitmaps;
begin
Tin := BitmapFromString(3, 3, '8D83838D83830000009287878081810' +
'00000000000000000000000');
Iron := BitmapFromString(3, 2, '4F2F234F2F230000000000000000000' +
'00000');
Copper := BitmapFromString(3, 3, 'z78DAB33031333076B6009306606081' +
'218209002F090AC1');
Road := BitmapFromString(4, 4, 'z78DA3333317536753143220DC0C08C' +
'44715C0000EBBC1414');
end;
procedure TinColor;
begin
if (typeofore='Tin') then
begin
Tin := AutoColorThis(Tin,40,0,0,517,333);
Writeln('Your tin color is '+inttostr(Tin));
end;
end;
procedure RColor;
begin
if (colorofroad=0) then
colorofroad :=AutoColorThis(Road,40,579,30,701,124);
Writeln('Your road color is ' +inttostr(colorofroad));
end;
procedure GettingColors;
begin
RColor;
TinColor;
end;
procedure domine;
begin
repeat
if (typeofore='Tin') then
Findcolorspiral(x,y,Tin,0,0,517,313);
Mouse(x,y,4,4,true);
Wait(timetowait+random(300));
until(InvFull=True)
end;
procedure walktobank;
begin
RadialWalk(colorofroad,90,0,70,2,2);
RadialWalk(colorofroad,360,270,70,2,2);
RadialWalk(colorofroad,360,270,70,2,2);
RadialWalk(colorofroad,360,270,70,2,2);
RadialWalk(colorofroad,360,270,70,2,2);
end;
begin
SetupSRL;
Bitmaps;
findrs;
activateclient;
wait(1000);
GettingColors;
DoMine;
WalkToBank;
end.