Simba Code:
program new;
{$I Srl/Srl.Simba}
{$I P06Include/P06Include.Simba}
{$I Sps/P06sps.Simba}
//Falador Glory Hole Coal Miner
//BY SNEAKDELLA
//SPS and P06_Include Help Credited to 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 'faladorytrytwo' without quotes and place it into your RUNESCAPE_OTHERS folder in the SPS folder
//**START IN THE BANK RIGHT NEXT TO THE PARK IN FALADOR
//**LOG OUT AND IN SO IT RESETS COMPAS AND CAMERA DO NOT TOUCH THEM
//HAVE FUN!!!!
//
//
// Version 1.0
// **SPS**
// ** Banking **
// ** SUPPORTS WIELDED AND UN-WIELDED PICKAXES **
/// ************** SETUP ******************
const
ROCK_COLOR = 2768960; //Rock Color
BANK_ICONE = 5034473; //color of the bank $
STAIR_COLOR = 5855584; //The grey part of the stairs
var
X, Y:Integer; //DO NOT TAMPER
ClickedIcone1,Bankisopennow:Boolean; //DO NOT TAMPER
togloryhole,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
togloryhole:=[Point(84, 158), Point(83, 143), Point(85, 137), Point(93, 131), Point(105, 129), Point(112, 128), Point(125, 122), Point(139, 116), Point(149, 114), Point(157, 110), Point(171, 107), Point(183, 105), Point(196, 103), Point(204, 102), Point(213, 102), Point(229, 103), Point(238, 102), Point(245, 100), Point(254, 96), Point(263, 93), Point(269, 89), Point(274, 86), Point(277, 78)]
tobank:=[Point(277, 78), Point(274, 86), Point(269, 89), Point(263, 93), Point(254, 96), Point(245, 100), Point(238, 102), Point(229, 103), Point(213, 102), Point(204, 102), Point(196, 103), Point(183, 105), Point(171, 107), Point(157, 110), Point(149, 114), Point(139, 116), Point(125, 122), Point(112, 128), Point(105, 129), Point(93, 131), Point(85, 137), Point(83, 143), Point(84, 158)]
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(togloryhole);
wait(12000 +random(200));
if findcolortolerance(X,Y,STAIR_COLOR,0,0,515,338,5) then
begin
Mouse(181,151,5,5,true);
If (P06_IsUpTextMultiCustom(['Climb-Down Staircase','Staircase', 'Down Staircase'])) Then
begin
ClickMouse2(mouse_left);
wait(3000 +random(200));
end;
end;
end;
procedure MineCoal;
begin
if P06_InvEmpty then;
write ln('Im mining shit in the glory hole');
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
writeln('On my way to the bank!');
mouse(674, 81, 4, 4, true);
wait (3000 +random(200));
mouse(430,133,4,4,true);
If (P06_IsUpTextMultiCustom(['Climb-Up Staircase','Staircase', 'Up Staircase'])) Then
begin
ClickMouse2(mouse_left);
wait(3000 +random(200));
end;
SPS_WalkPath(tobank);
end;
procedure BankingTime;
begin
writeln('Time to use the bank!');
if P06_InvFull then
begin
mmouse (267, 264,4,4);
if (P06_IsUpTextMultiCustom(['Use Bank Booth','se Bank', 'Use Bank'])) Then
begin
ClickMouse2(mouse_right);
wait(3000 +random(200));
mouse(270, 282,5,5,true);
wait(3000 +random(200));
end;
if (P06_BankScreen) then
begin
Bankisopennow:=true;
end;
end;
end;
procedure TheMostGloriousDeposit;
begin
writeln('Bot is sticking stuff into the bank');
P06_Deposit(1, 27, True);
end;
begin
P06_DeclarePlayer;
SetupP06Include;
SPS_Setup(RUNESCAPE_OTHER, ['faladorytrytwo']);
ActivateClient;
begin repeat
If (Not P06_LoggedIn) Then
P06_LogInPlayer;
pathways;
Togglerun;
WalkToMine;
MineCoal;
ToDaBank;
BankingTime;
TheMostGloriousDeposit;
until false;
end;
end.