Deleted.
Deleted.
Last edited by lollerohrs; 05-09-2012 at 05:01 PM.
not that it matters for this script as its only 2 or so points, but for longer walking paths you could use
Simba Code:InvertTPA(WalkToWillows);
to walk back to the bank from where ever you walked to i believe.
This script is an exact copy of Blake 1012's Draynor Powercutter
Here's "yours":
Simba Code:program DraynorPowerCutter;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{*====================================================================
Draynor Willower BETA
Version Release Date: 09/03/2012
Author: lollerohrs
Support: PM ME!
Changelog:
09/03/2012 - Released
====================================================================*}
-------------------------------------------------------------------------
const
TREE_TO_CUT = 'Willow'; // You don't need to change this.
SIGNED_APPLET = True;
{ The options below are the most important }
PLAYER_BANK_PIN = ''; // Your RuneScape Bankpin
IS_MEMBER = true; // True for P2P, False for F2P
S_WORLD = 38; // Choose your world (38 is not memb.)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Var
Logs_Chopped: Integer;
EXP_Gained: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
{ ====================== PLAYER INFO! ====================== }
Players[0].Name := ''; // Enter your username or email here
Players[0].Pass := ''; // Enter your password.
Players[0].Nick := ''; // Any 3-4 letter from your username. (op)
{ ====================== PLAYER INFO! ====================== }
Players[0].Active := True;
Players[0].BoxRewards := ['Xp',];
end;
Procedure AntiBan;
begin
if(not(LoggedIn)) then Exit;
Case Random(250) of
0:
begin
WriteLn('AntiBan Enabled');
RandomRClick;
end;
10:
begin
WriteLn('AntiBan Enabled');
HoverSkill('Woodcutting', false);
wait(1634+Random(2169));
end;
30:
begin
WriteLn('AntiBan Enabled');
PickUpMouse;
end;
40:
begin
WriteLn('AntiBan Enabled');
MakeCompass('N');
wait(100+random(433));
MakeCompass('S');
wait(50+random(124));
MakeCompass('N');
FindNormalRandoms;
end;
50:
begin
WriteLn('AntiBan Enabled');
ExamineInv;
end;
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'woodcutting';
LevelUp;
end;
Procedure WalkToWillows;
Var
walkTree:TPointArray;
begin
SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
walkTree := [Point(4186, 3668), Point(4184, 3645), Point(4151, 3721)];
SPS_WalkPath(walkTree);
end;
Procedure WalkToBank;
Var
walkBank:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
walkBank := [Point(4152, 3698), Point(4202, 3685)];
SPS_WalkPath(walkBank);
end;
Procedure bankLogs;
begin
if(InvFull) then
begin
WriteLn('Inventory full, Banking');
OpenBankFast('db');
WriteLn('Depositing ' + TREE_TO_CUT + ' logs.');
if(PinScreen) then
WriteLn('Entering Bank PIN: ' + PLAYER_BANK_PIN + '.');
InPin(PLAYER_BANK_PIN);
if(BankScreen) then
DepositAll;
Logs_Chopped := Logs_Chopped + 28;
EXP_Gained := EXP_Gained + 1890;
WriteLn('Deposited ' + TREE_TO_CUT + ' logs.');
WriteLn('Closing Bank');
WriteLn('Chopped: ' + IntToStr(Logs_Chopped));
WriteLn('EXP: ' + IntToStr(EXP_Gained));
CloseBank;
WriteLn('Getting Walk Path');
Wait(2000 + Random(1500));
WriteLn('Found Walk Path');
Wait(1000 + Random(300));
WriteLn('Walking To Willows');
end;
end;
Procedure checkFullInv;
begin
if(InvFull) then
begin
WriteLn('Inventory Full, lets bank :)');
WalkToBank;
Wait(1000 + Random(1500));
WriteLn('Found Bank');
bankLogs;
WalkToWillows;
end;
end;
Procedure treeChop;
var x, y: integer;
begin
if not LoggedIn then Exit;
if(InvFull) then exit;
repeat
if FindObj(x, y, 'hop', 3491141, 10) then
Mouse(x, y, 1, 1, false);
ChooseOption('hop');
repeat
wait(1200+random(450));
AntiBan;
AntiRandoms;
checkFullInv;
Until not(IsUpText('Willow')or(InvFull))
until(InvFull);
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBER;
Smart_SuperDetail := False;
Smart_Signed := SIGNED_APPLET;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Logs_Chopped := 0;
EXP_Gained := 0;
ClearDebug;
welcomeMsg;
repeat
WalkToWillows;
treeChop;
WalkToBank;
bankLogs;
until (Logs_Chopped >= 99999999999999999999999999999);
end.
Here's Blake's:
Simba Code:program DraynorPowerCutter;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{*====================================================================
Draynor PowerCutter v1.2 BETA
Version Release Date: 11/02/2012
Author: Blake2012
Support: [url]http://villavu.com/forum/showthread.php?t=74584[/url]
This is a work in progress and may/may not function correctly.
Please keep checking the thread for more updates.
Let a guy learn.
Changelog:
09/02/2012 - Basics done. i.e, Chopping, AntiBan and AntiRandoms
09/02/2012 - Cleaned up script.
09/02/2012 - Added more AntiRandom support.
10/02/2012 - Added banking support.
10/02/2012 - Added dropping support.
10/02/2012 - Took out dropping support.
11/02/2012 - Banking Fixed, bug stopped it from banking after so long.
====================================================================*}
{ ====================== IMPORTANT! ====================== }
const
TREE_TO_CUT = 'Willow'; // You don't need to change this.
SIGNED_APPLET = True;
{ The options below are the most important }
PLAYER_BANK_PIN = ''; // If you have a bank pin, enter it here
IS_MEMBER = false; // True for P2P, False for F2P
S_WORLD = 108; // Choose preffered world (38 is F2P)
{ ====================== IMPORTANT! ====================== }
Var
Logs_Chopped: Integer;
EXP_Gained: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
{ ====================== PLAYER INFO! ====================== }
Players[0].Name := 'the asasin34'; // Enter your login here
Players[0].Pass := 'maarten'; // Enter your password here.
Players[0].Nick := ''; // Any 3-4 letter from your username.
{ ====================== PLAYER INFO! ====================== }
Players[0].Active := True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
{*====================================================================
====================================================================
STOP WHERE YOU ARE! DO NOT GO ANY FURTHER.
Well, you can go further. Just don't edit anything,
otherwise you may cause the script to malfunction and
not work.
Only edit below if you are 100% sure you anow what
you're doing.
====================================================================
====================================================================*}
{ Seriously, stop. }
Procedure welcomeMsg;
begin
WriteLn('*********************************************************');
WriteLn('* *');
WriteLn('* Draynor Powercutter v1.2 BETA *');
WriteLn('* By Blake2012 *');
WriteLn('* [url]http://villavu.com/forum/showthread.php?p=922517[/url] *');
WriteLn('* *');
WriteLn('* *');
WriteLn('*[*] Cuts Willows from Drayor *');
WriteLn('*[*] Banks Willows, with PIN Support *');
WriteLn('*[*] AntiBan - Ban Protection *');
WriteLn('*[*] AntiRandoms - Random Event Protection *');
WriteLn('*[*] Easy to set-up and use *');
WriteLn('* *');
WriteLn('* This is my first ever script, so please dont *');
WriteLn('* be too harsh on me, Let a guy learn. *');
WriteLn('* *');
WriteLn('* *');
WriteLn('*********************************************************');
end;
Procedure AntiBan;
begin
if(not(LoggedIn)) then Exit;
Case Random(250) of
0:
begin
WriteLn('AntiBan Enabled - Randomized Human Action');
RandomRClick;
end;
10:
begin
WriteLn('AntiBan Enabled - Randomized Human Action');
HoverSkill('Woodcutting', false);
wait(1634+Random(2169));
end;
30:
begin
WriteLn('AntiBan Enabled - Randomized Human Action');
PickUpMouse;
end;
40:
begin
WriteLn('AntiBan Enabled - Randomized Human Action');
MakeCompass('N');
wait(100+random(433));
MakeCompass('S');
wait(50+random(124));
MakeCompass('N');
FindNormalRandoms;
end;
50:
begin
WriteLn('AntiBan Enabled - Randomized Human Action');
ExamineInv;
end;
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'woodcutting';
LevelUp;
end;
Procedure WalkToWillows;
Var
walkTree:TPointArray;
begin
SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
walkTree := [Point(4186, 3668), Point(4184, 3645), Point(4151, 3721)];
SPS_WalkPath(walkTree);
end;
Procedure WalkToBank;
Var
walkBank:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
walkBank := [Point(4152, 3698), Point(4202, 3685)];
SPS_WalkPath(walkBank);
end;
Procedure bankLogs;
begin
if(InvFull) then
begin
WriteLn('Inventory full, Banking');
OpenBankFast('db');
WriteLn('Depositing ' + TREE_TO_CUT + ' logs.');
if(PinScreen) then
WriteLn('Entering Bank PIN: ' + PLAYER_BANK_PIN + '.');
InPin(PLAYER_BANK_PIN);
if(BankScreen) then
DepositAll;
Logs_Chopped := Logs_Chopped + 28;
EXP_Gained := EXP_Gained + 1890;
WriteLn('Deposited ' + TREE_TO_CUT + ' logs.');
WriteLn('Closing Bank');
WriteLn('Logs Chopped: ' + IntToStr(Logs_Chopped));
WriteLn('Gained EXP: ' + IntToStr(EXP_Gained));
CloseBank;
WriteLn('Getting Walk Path');
Wait(2000 + Random(1500));
WriteLn('Found Walk Path');
Wait(1000 + Random(300));
WriteLn('Walking to Willows');
end;
end;
Procedure checkFullInv;
begin
if(InvFull) then
begin
WriteLn('Inventory Full, finding bank path...');
WalkToBank;
Wait(1000 + Random(1500));
WriteLn('Found Bank, Walking to bank...');
bankLogs;
WalkToWillows;
end;
end;
Procedure treeChop;
var x, y: integer;
begin
if not LoggedIn then Exit;
if(InvFull) then exit;
repeat
if FindObj(x, y, 'hop', 3491141, 10) then
Mouse(x, y, 1, 1, false);
ChooseOption('hop');
repeat
wait(1200+random(450));
AntiBan;
AntiRandoms;
checkFullInv;
Until not(IsUpText('illow')or(InvFull))
until(InvFull);
end;
begin
Smart_Server := S_WORLD;
Smart_Members := IS_MEMBER;
Smart_SuperDetail := False;
Smart_Signed := SIGNED_APPLET;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Logs_Chopped := 0;
EXP_Gained := 0;
ClearDebug;
welcomeMsg;
repeat
WalkToWillows;
treeChop;
WalkToBank;
bankLogs;
until (Logs_Chopped >= 5000);
end.
Would a Mod or Dev please see to this?
noob this isn't your script
...
any admin close this thread and ban him?
Last edited by Markus; 04-16-2012 at 11:15 AM.
I've done some good for this community.. I mean
BanMaster![]()
i completely agree with you joe.
lmao even as someone with no scripting knowledge, i can see you've just copy&pasted Blake's script and changed a few things like 'illow' to 'Willow'
not even subtle mate
There are currently 1 users browsing this thread. (0 members and 1 guests)