Sneakdella
02-11-2013, 07:28 AM
FEB 14th UPDATE :: IF YOU WERE PREVIOUSLY HAVING PROBLEMS WITH THIS SCRIPT, IT WAS BECAUSE I WAS BEING AN IDIOT AND DIDNT ADD IN MY INCLUDES AND THE "program new;" AT THE BEGINNING. GIVE IT A TRY NOW :)
I AM ALSO EXTENDING THIS SCRIPT SO THAT IT WILL MINE IN OTHER PARTS OF THE FALADOR MINING CAVE. STAY TUNED, COAL ISNT THE ONLY THING YOU ARE GOING TO BE ABLE TO MAKE THE BOT MINE SOON :) <3 - SNEAK
Ladies and Gentlemen, I present to you the Falador GloryHole Coal Miner.
~Objective of this script~
To make people laugh at the rediculis name and to mine coal out of the falador mining dungeon and return the loaded coal into the bank.
PLEASE POST YOUR BUGS AND PROBLEMS TO THIS THREAD
Falador Glory Hole Coal Miner v1.0
By Sneakdella
SPS and P06 Includes credits goes towards DannyRS and Rjj95
YOU NEED SPS and P06_INCLUDE TO RUN THIS SCRIPT - http://villavu.com/forum/showthread.php?t=95916
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 THE ARROW KEYS
-- DOWNLOAD THIS PNG --
19092
SCRIPT WAS LAST UPDATED Feb. 11th, 2013 at 2:27 AM
SCRIPT:
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.
I AM ALSO EXTENDING THIS SCRIPT SO THAT IT WILL MINE IN OTHER PARTS OF THE FALADOR MINING CAVE. STAY TUNED, COAL ISNT THE ONLY THING YOU ARE GOING TO BE ABLE TO MAKE THE BOT MINE SOON :) <3 - SNEAK
Ladies and Gentlemen, I present to you the Falador GloryHole Coal Miner.
~Objective of this script~
To make people laugh at the rediculis name and to mine coal out of the falador mining dungeon and return the loaded coal into the bank.
PLEASE POST YOUR BUGS AND PROBLEMS TO THIS THREAD
Falador Glory Hole Coal Miner v1.0
By Sneakdella
SPS and P06 Includes credits goes towards DannyRS and Rjj95
YOU NEED SPS and P06_INCLUDE TO RUN THIS SCRIPT - http://villavu.com/forum/showthread.php?t=95916
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 THE ARROW KEYS
-- DOWNLOAD THIS PNG --
19092
SCRIPT WAS LAST UPDATED Feb. 11th, 2013 at 2:27 AM
SCRIPT:
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.