Sneakdella
02-08-2013, 05:11 PM
POST LAST UPDATED ON FEB. 13th, 2013 AT 1AM EST:
IF YOU ARE HAVING ISSUES WITH THIS SCRIPT, TRY RUNNING SIMBA IN COMPATIBILITY MODE FOR WINDOWS XP SP3 OR ATTEMPT VIRTUAL MACHINES. YOU CAN FIND OUT HOW TO DO SO HERE. I WILL BE LOOKING FOR A BETTER SOLUTION OTHERWISE IF YOU STILL HAVE ISSUES. I'M AWARE THE SCRIPT IS NOT FLAWLESS BUT I APPRECIATE YOU ALL GIVING IT A TRY :)
Run a program in compatibility mode here: http://www.sevenforums.com/tutorials/316-compatibility-mode.html
More on virtual machine botting here: http://villavu.com/forum/showthread.php?t=86753
Tl;dr I ran someone elses script and my script in Windows Xp compatibility mode and both scripts worked flawlessly, give it a try.
Currently developing this script which walks from the east varrock bank, mines iron at the mine that's south, walks back and banks the iron and repeats the process.
IN ORDER TO USE THIS SCRIPT YOU MUST HAVE THESE INCLUDES AND SPS IT CAN BE FOUND HERE: http://villavu.com/forum/showthread.php?t=95916
V0.3 UPDATE!
By Sneakdella
Those who helped make it happen: DannyRS, rjj95 and Dormik
Banking Completly Re-written
Now walks with SPS instead of static cords!
THIS BOT CURRENTLY SUPPORTS THE FOLLOWING:
-Banking
-Failsafe to Banking
-Mining Iron(you can change the rock color if you want to min tin or copper down in the mine)
-Amazing walking strategy!
-Supports Wielded and non-wielded pickaxes
INSTRUCTIONS
-- 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 COMPASS AND CAMERA DO NOT TOUCH THEM**
** Begin the script after all the instructions are completed correctly **
--PNG DOWNLOAD--
19086
THINGS THAT STILL NEED TO BE DONE~
AUTO-LOGIN (In case if server disconnected the script would attempt to log you back in and if it does the script would continue from its last known action.)
EX. Bot was mining, server dc'd. 10 minutes later it auto login and continues mining like nothing happened and continues botting on!
ANTI-RANDOM (Genie, Mr.Hyde, Rock Gollem.... Possibly Axe Head flying off?)
SCRIPT LAST UPDATED AT 12:28 AM EST Feb. 11th, 2013
Reason - Forgot to add in the main repeat so the script repeats itself.
Script:
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.
IF YOU ARE HAVING ISSUES WITH THIS SCRIPT, TRY RUNNING SIMBA IN COMPATIBILITY MODE FOR WINDOWS XP SP3 OR ATTEMPT VIRTUAL MACHINES. YOU CAN FIND OUT HOW TO DO SO HERE. I WILL BE LOOKING FOR A BETTER SOLUTION OTHERWISE IF YOU STILL HAVE ISSUES. I'M AWARE THE SCRIPT IS NOT FLAWLESS BUT I APPRECIATE YOU ALL GIVING IT A TRY :)
Run a program in compatibility mode here: http://www.sevenforums.com/tutorials/316-compatibility-mode.html
More on virtual machine botting here: http://villavu.com/forum/showthread.php?t=86753
Tl;dr I ran someone elses script and my script in Windows Xp compatibility mode and both scripts worked flawlessly, give it a try.
Currently developing this script which walks from the east varrock bank, mines iron at the mine that's south, walks back and banks the iron and repeats the process.
IN ORDER TO USE THIS SCRIPT YOU MUST HAVE THESE INCLUDES AND SPS IT CAN BE FOUND HERE: http://villavu.com/forum/showthread.php?t=95916
V0.3 UPDATE!
By Sneakdella
Those who helped make it happen: DannyRS, rjj95 and Dormik
Banking Completly Re-written
Now walks with SPS instead of static cords!
THIS BOT CURRENTLY SUPPORTS THE FOLLOWING:
-Banking
-Failsafe to Banking
-Mining Iron(you can change the rock color if you want to min tin or copper down in the mine)
-Amazing walking strategy!
-Supports Wielded and non-wielded pickaxes
INSTRUCTIONS
-- 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 COMPASS AND CAMERA DO NOT TOUCH THEM**
** Begin the script after all the instructions are completed correctly **
--PNG DOWNLOAD--
19086
THINGS THAT STILL NEED TO BE DONE~
AUTO-LOGIN (In case if server disconnected the script would attempt to log you back in and if it does the script would continue from its last known action.)
EX. Bot was mining, server dc'd. 10 minutes later it auto login and continues mining like nothing happened and continues botting on!
ANTI-RANDOM (Genie, Mr.Hyde, Rock Gollem.... Possibly Axe Head flying off?)
SCRIPT LAST UPDATED AT 12:28 AM EST Feb. 11th, 2013
Reason - Forgot to add in the main repeat so the script repeats itself.
Script:
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.