Simba Code:
program EastVarrockMiner;
{$I SRL/SRL.Simba}
{$I P06Include/P06Include.Simba}
{$I Sps/P06sps.Simba}
// EAST VARROCK MINER v0.3
// BY SNEAKDELLA ~~ FIRST SCRIPT :)
// TO USE THIS SCRIPT YOU NEED SPS AND P06_INCLUDE
//
// -- INSTRUCTIONS --
// **START IN EAST VARROCK BANK FACING NORTH
//**STAND RIGHT IN FRONT OF THE LEFT BANK BOOTHS THAT ARE OPEN
// (See the pictue on the forums)
//
///
/// v0.3 UPDATE
/// ** Better walking method using SPS
/// Special Thanks to DannyRS, rrj95, Dormik for helping me with the scripts
const
ROCK_COLOR = 1910335; //change if needed to whatever rock you wish to mine this one is Iron.
BANK_ICONE = 5034473; //color of the bank $
RED_ROPE = 924553; // color of bank ropes
var
X, Y:Integer;
ClickedIcone1:Boolean;
tomine,tobank: tpointarray;
//Info on charactars below
Procedure P06_DeclarePlayer;
Begin
P06_PlayerName:='username';
P06_PlayerPass:='password';
End;
procedure pathways;
begin
tomine:=[Point(92, 106), Point(86, 76), Point(149, 75), Point(193, 94), Point(214, 136), Point(228, 171), Point(228, 215), Point(230, 257), Point(217, 299), Point(209, 310)]
tobank:=[Point(209, 310), Point(217, 299), Point(230, 257), Point(228, 215), Point(228, 171), Point(214, 136), Point(193, 94), Point(149, 75), Point(86, 76), Point(92, 106)]
end;
procedure ToggleRun;
begin
writeln('Toggling Run');
sleep(1500);
mouse(710,470,4,4,true);
wait(700 + random(200));
mouse(626,264,4,4,true);
mouse(647,170,4,4,true);
end;
Procedure WalkToMine;
begin
writeln('To the mine!');
SPS_WalkPath(tomine);
end;
procedure MineIron;
begin
if P06_InvEmpty then;
begin repeat
if findcolortolerance(X,Y,ROCK_COLOR,0,0,515,338,5) then
begin
MMouse(X,Y,5,5);
If (P06_IsUpTextMultiCustom(['Mine Rock','ine Rock', 'ne Rock'])) Then
ClickMouse2(mouse_left);
wait(7000 +random(200));
end;
until (P06_InvFull);
end;
end;
procedure ToDaBank;
begin
if P06_InvFull then
begin
SPS_WalkPath(tobank);
writeln('Walking to the bank');
if findcolortolerance(X,Y,BANK_ICONE,560,4,706,140,10) then
begin repeat
mouse(X,Y,4,4,true);
wait(6000+random(200));
ClickedIcone1:=true;
until(ClickedIcone1);
end;
mouse (179,277,1,1,true);
end;
end;
procedure FindBankk;
Begin
writeln('Finding the bank booth, based off the right side rope');
if findcolortolerance(X,Y,RED_ROPE,0,0,515,338,5) then
begin
Mouse(X,Y,5,5,true);
wait(3000 +random(200));
MMouse(225,162,5,5);
If (P06_IsUpTextMultiCustom(['Use Bank Booth','se Bank', 'Use Bank'])) Then
begin repeat
ClickMouse2(mouse_right);
wait(3000 +random(200));
mouse(226,200,5,5,true);
until (P06_BankScreen);
end else MMouse(256,189,5,5);
If (P06_IsUpTextMultiCustom(['Use Bank Booth','se Bank', 'Use Bank'])) Then
begin repeat
ClickMouse2(mouse_right);
wait(3000 +random(200));
mouse(266,214,5,5,true);
until (P06_BankScreen);
end else MMouse(3000,193,5,5);
If (P06_IsUpTextMultiCustom(['Use Bank Booth','se Bank', 'Use Bank'])) Then
begin repeat
ClickMouse2(mouse_right);
wait(7000 +random(200));
mouse(223,201,5,5,true);
until (P06_BankScreen);
end;
end;
end;
procedure IfNotInBank;
begin
if (Not P06_BankScreen) then
begin
writeln('Bot is not in the bank, finding the bank via symbol');
if findcolortolerance(X,Y,BANK_ICONE,560,4,706,140,10) then
begin repeat
mouse(X,Y,4,4,true);
wait(6000+random(200));
ClickedIcone1:=true;
until(ClickedIcone1);
if (ClickedIcone1) then
begin
FindBankk;
end;
end;
end;
end;
procedure PutItIn;
begin
writeln('Bot is sticking stuff into the bank');
If P06_BankScreen Then P06_Deposit(0, 27, True);
end;
begin
P06_DeclarePlayer;
SetupP06Include;
SPS_Setup(RUNESCAPE_OTHER, ['varrockbanktomine']);
ActivateClient;
If (Not P06_LoggedIn) Then
P06_LogInPlayer;
ToggleRun;
pathways;
WalkToMine;
MineIron;
ToDaBank;
FindBankk;
repeat
IfNotInBank;
until (P06_BankScreen);
PutItIn;
end.