SCRIPT LAST UPDATED AT 12:28 AM EST Feb. 11th, 2013
Reason - Forgot to add in the main repeat so the script repeats itself.
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 :)
// SPS HELP: DannyRS
// TO USE THIS SCRIPT YOU NEED SPS AND P06_INCLUDE
//
// -- INSTRUCTIONS --
// **INSTALL SPS AND P06_INCLUDE
// **DOWNLOAD THE PNG OFF THE POST.. NAME IT 'varrockbanktomine.png' without quotes and place it into your RUNESCAPE_OTHERS folder in the SPS folder
// **START IN EAST VARROCK BANK FACING NORTH
// **LOG OUT AND IN SO IT RESETS COMPAS AND CAMERA DO NOT TOUCH THEM
// HAVE FUN!!!!
//
//
// v0.3 UPDATE
// ** Better walking method using SPS **
// ** COMPLETLEY RE-WROTE HOW THE BOT BANKS **
// ** SUPPORTS WIELDED AND UN-WIELDED PICKAXES **
// Special Thanks to DannyRS, rrj95, Dormik for helping me with the scripts
/// ************** SETUP ******************
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 $
var
X, Y:Integer; //DO NOT TAMPER
ClickedIcone1,Bankisopennow:Boolean; //DO NOT TAMPER
tomine,tobank: tpointarray; //DO NOT TAMPER
//Info on charactars below
Procedure P06_DeclarePlayer;
Begin
P06_PlayerName:='';
P06_PlayerPass:='';
End;
// ******************* SETUP DONE ******************
// ************* DO NOT TOUCH ANYTHING BELOW THIS LINE*********
procedure pathways;
begin
tomine:=[Point(80, 114), Point(80, 108), Point(81, 103), Point(81, 97), Point(81, 90), Point(81, 83), Point(81, 78), Point(83, 73), Point(92, 73), Point(98, 73), Point(101, 73), Point(106, 73), Point(110, 74), Point(115, 75), Point(122, 74), Point(129, 74), Point(135, 74), Point(143, 74), Point(150, 75), Point(156, 76), Point(163, 77), Point(168, 81), Point(174, 86), Point(178, 91), Point(182, 96), Point(185, 100), Point(187, 103), Point(189, 109), Point(191, 114), Point(194, 119), Point(196, 124), Point(199, 128), Point(203, 132), Point(206, 136), Point(208, 138), Point(212, 142), Point(216, 146), Point(223, 151), Point(225, 156), Point(226, 161), Point(226, 167), Point(225, 175), Point(225, 182), Point(227, 188), Point(230, 193), Point(231, 199), Point(232, 206), Point(231, 210), Point(231, 217), Point(232, 223), Point(231, 229), Point(234, 235), Point(234, 242), Point(236, 248), Point(239, 253), Point(241, 259), Point(241, 266), Point(239, 274), Point(234, 281), Point(229, 287), Point(225, 293), Point(222, 298), Point(217, 302), Point(217, 311)]
tobank:=[Point(217, 311), Point(217, 302), Point(222, 298), Point(225, 293), Point(229, 287), Point(234, 281), Point(239, 274), Point(241, 266), Point(241, 259), Point(239, 253), Point(236, 248), Point(234, 242), Point(234, 235), Point(231, 229), Point(232, 223), Point(231, 217), Point(231, 210), Point(232, 206), Point(231, 199), Point(230, 193), Point(227, 188), Point(225, 182), Point(225, 175), Point(226, 167), Point(226, 161), Point(225, 156), Point(223, 151), Point(216, 146), Point(212, 142), Point(208, 138), Point(206, 136), Point(203, 132), Point(199, 128), Point(196, 124), Point(194, 119), Point(191, 114), Point(189, 109), Point(187, 103), Point(185, 100), Point(182, 96), Point(178, 91), Point(174, 86), Point(168, 81), Point(163, 77), Point(156, 76), Point(150, 75), Point(143, 74), Point(135, 74), Point(129, 74), Point(122, 74), Point(115, 75), Point(110, 74), Point(106, 73), Point(101, 73), Point(98, 73), Point(92, 73), Point(83, 73), Point(81, 78), Point(81, 83), Point(81, 90), Point(81, 97), Point(81, 103), Point(80, 108), Point(80, 114)]
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;
end;
end;
procedure FindBankk;
Begin
writeln('Finding the bank booth based off static cord.');
mmouse (237, 250,4,4);
if (P06_IsUpTextMultiCustom(['Use Bank Booth','se Bank', 'Use Bank'])) Then
begin
ClickMouse2(mouse_right);
wait(3000 +random(200));
mouse(245, 275,5,5,true);
wait(3000 +random(200));
end;
if (P06_BankScreen) then
begin
Bankisopennow:=true;
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');
P06_Deposit(1, 27, True);
end;
begin
P06_DeclarePlayer;
SetupP06Include;
SPS_Setup(RUNESCAPE_OTHER, ['varrockbanktomine']);
ActivateClient;
begin repeat
If (Not P06_LoggedIn) Then
P06_LogInPlayer;
ToggleRun;
pathways;
WalkToMine;
MineIron;
ToDaBank;
FindBankk;
wait(4000 +random(200));
repeat
IfNotInBank;
until (Bankisopennow=true);
PutItIn;
until false;
end;
end.