Code:
program New;
{$i SRL/SRL.scar}
var x,y:Integer;
const
LoginScreen = 1810659;
HomeBank = 1556970;
HomeBank1 = 212833;
HomeBank2 = 11973051;
AdamantineRock = 5268559;
AdamantineRock1 = 5992793;
AddyOre = 4939339;
BankBooth = 9214628;
BankBooth1 = 6323598;
BankBooth2 = 9478314;
UseBank = 16776960;
function Login : boolean; //Boolean because it results true or false;
begin
result := false;
If FindColor(x, y, LoginScreen, 677, 464, 677, 464)
then result := true
end;
function HomeBanking : boolean; //Boolean because it results true or false;
begin
result := false;
If FindColorTolerance(x, y, HomeBank, 626, 75, 674, 101, 2) or
FindColorTolerance(x, y, HomeBank1, 626, 75, 674, 101, 2) or
FindColorTolerance(x, y, HomeBank2, 626, 75, 674, 101, 2)
then result := true
end;
function AddyRock : boolean; //Boolean because it results true or false;
begin
result := false;
If FindColorTolerance(x, y, AdamantineRock, 161, 231, 275, 331, 2) or
FindColorTolerance(x, y, AdamantineRock, 230, 223, 281, 272, 2)
then result := true
end;
function FullInventory : boolean; //Boolean because it results true or false;
begin
result := false;
If FindColor(x, y, AddyOre, 714, 476, 714, 476)
then result := true
end;
function Banking : boolean; //Boolean because it results true or false;
begin
result := false;
If FindColorTolerance(x, y, BankBooth, 157, 100, 257, 168, 2) or
FindColorTolerance(x, y, BankBooth1, 157, 100, 257, 168, 2) or
FindColorTolerance(x, y, BankBooth2, 157, 100, 257, 168, 2)
then result := true
end;
begin
SetupSRL;
Repeat
If (Login = True) then
begin
Writeln('We logged out some, we are going to log back in!')
KeyDown(13);
Wait(1);
KeyUp(13);
Wait(10000);
end;
/////////////////////////////////////////////////////////////////////////////
//Teleporting to Skilling Area
Begin
Keydown(115);
Wait(100);
KeyUp(115);
MMouse(576, 387, 2, 2);
Wait(100);
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
MMouse(270, 461, 10, 2);
Wait(2000);
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Wait(5000);
KeyDown(112);
Wait(100);
KeyUp(112);
end;
If(AddyRock = True) then
Begin
MMouse(x, y, 0, -30);
Wait(100);
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Wait(5000);
end;
If FindColorTolerance(x, y, AdamantineRock, 155, 188, 272, 311, 2) or
FindColorTolerance(x, y, AdamantineRock1, 155, 188, 272, 311, 2)then
Begin
Repeat
MMouse(x, y, 0, 0);
Wait(100);
Mouse(x, y, 0, 0, True);
Wait(5000);
Until FindColorTolerance(x, y, 4939339, 714, 476, 714, 476, 2);
end;
If(FullInventory = True) then
Begin
Keydown(115);
Wait(100);
KeyUp(115);
MMouse(577, 268, 0, 0);
Wait(100);
Mouse(577, 268, 0, 0, True);
Wait(5000);
end;
If (HomeBanking = True) then
Begin
KeyDown(112);
Wait(100);
KeyUp(112);
MMouse(x, y, 0, 0);
Wait(100);
Mouse(x, y, 0, 0, True);
Wait(5000);
end;
If(Banking = True) then
Begin
MMouse(x, y, 0, 0);
Wait(100);
Mouse(x, y, 0, 0, False);
Wait(300);
If FindColorTolerance(x, y, 16776960, 105, 79, 369, 281, 2) then
Wait(300);
MMouse(x, y, 0, 0);
Wait(300);
Mouse(x, y, 0, 0, True);
Wait(3000);
MMouse(712, 473, 0, 0);
Wait(100);
Mouse(712, 473, 0, 0, False);
Wait(100);
MMouse(649, 444, 0, 0);
Wait(100);
Mouse(649, 444, 0, 0, True);
Wait(400);
MMouse(464, 70, 0, 0);
Wait(100);
Mouse(464, 70, 0, 0, True);
Wait(500);
end;
Until False;
end.