oreokilla
2012-02-01 18:58:16
1.First Things First You Need To Start In The Middle Of The 2 Trees At The Ge.. Dont Start any were else…
2.make sure you have a hatchet it wont do anything if you dont lol…
3.Make sure your inv is empty bc if its not it might run to the bank…
4. its ready to go start it up and sit back and relaxe…=)
_________________________________________________________________
Right now this script is flawless for me i have been working on it for awhile but i love it i couldnt belive how good it worked for me when i got done with it well anyways i hope you enjoy this script please comment and ask for requests they mite happend =) also credits to tehq for helping me with this script hes been a great help with the banking process etc. so thanks everyone enjoy… edit….ok for Tehq and Barrack I have fixed the banking process to bank to at GE =)))))and
i have it were it will not jump when clicking yews thanks to tehq i might still need to work on the banking process alittle more so there will be another update
2.make sure you have a hatchet it wont do anything if you dont lol…
3.Make sure your inv is empty bc if its not it might run to the bank…
4. its ready to go start it up and sit back and relaxe…=)
_________________________________________________________________
Right now this script is flawless for me i have been working on it for awhile but i love it i couldnt belive how good it worked for me when i got done with it well anyways i hope you enjoy this script please comment and ask for requests they mite happend =) also credits to tehq for helping me with this script hes been a great help with the banking process etc. so thanks everyone enjoy… edit….ok for Tehq and Barrack I have fixed the banking process to bank to at GE =)))))and
i have it were it will not jump when clicking yews thanks to tehq i might still need to work on the banking process alittle more so there will be another update
program GeYewCuttingScript;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
const
{SMART Setup Constants}
WORLD = 0; // Set a world, if you'd like. Leave 0 to choose a random world.
MEMBERS = False; // Are you Members or Free-To-Play? False for F2P, True for P2P.
SIGNED = True;
loadcount = 50;
var
count: integer;
{---------------------------}
{--------Script Info--------}
//Author = 'Oreokilla';
//Name = 'OreosyewKilla';
//Version = '1.0';
{---------------------------}
procedure DeclarePlayers; //This declares the players to be used in the script.
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Your Runescape username
Players[0].Pass := ''; //Your Runescape password
Players[0].Nick := ''; //3 or 4 lowercase letters from your Runescape username. Used as a Nickname.
Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
end;
procedure SetupScript;
begin;
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('Hope you enjoy this Yew cutting script.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('I made this My self.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure AntiBan;
begin
case random(50) of
0: RandomRClick;
1: PickUpMouse;
2: RandomRClick;
3: HoverSkill('woodcutting', False);
4: SetAngle(SRL_ANGLE_HIGH);
end;
end;
Procedure WalkToBank;
Var
ToBank:TPointArray;
Begin
SetupSRL;
SPS_Areas := ['11_6','11_7'];
ToBank:= [Point(4651, 2624), Point(4616, 2628), Point(4603, 2647), Point(4603, 2662), Point(4576, 2667), Point(4558, 2645), Point(4546, 2625)];
SPS_WalkPath(ToBank);
end;
procedure ChopTree; //This chops your trees.
var x, y: integer;
begin
repeat
FindNormalRandoms;
ToggleXPBar(true);
WriteLn('ChopTree procedure activated! Finding tree.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
if FindObjCustom(x,y, ['ew','hop','own'], [4937570, 4344918],5) then//This finds the object, records the X and Y values, and tells the script to find the option "Tree".
begin
WriteLn('Tree found! Clicking option.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Mouse(x, y, 0, 0, true);
ChooseOption('ew'); //This tells the script to left-click on the object and select "Yew".
end;
repeat
Wait(RandomRange(2000, 3000))
AntiBan;
Until not IsUpText('ew') or (InvFull);
Until (InvFull);
writeLn('Banking');
end;
Procedure Bank;
begin
if not LoggedIn then
Exit;
repeat
SetAngle(srl_angle_high);
OpenBanknpc;
Wait(Random(700));
until BankScreen or PinScreen;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
end;
begin
if Players[CurrentPlayer].Booleans[0] then
DepositAll else
Deposit(2 ,28 ,true);
CloseBank;
stats_IncVariable('Times Banked',1);
end
Writeln('Bout to bank these logs');
End;
Procedure WalkToYews;
Var
ToYews:TPointArray;
Begin
SetupSRL;
SPS_Areas := ['11_6','11_7'];
ToYews := [Point(4546, 2625), Point(4570, 2663), Point(4594, 2664), Point(4613, 2635), Point(4631, 2627), Point(4646, 2627)];
SPS_WalkPath(ToYews);
end;
Begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL;
SetupScript;
declarePlayers;
LoginPlayer;
begin
WalkToBank;
Bank;
WalkToYews;
repeat
Antiban;
ChopTree;
WalkToBank;
Bank;
walkToYews;
Inc(count);
until (count=loadcount)
end;
end.
//Notice that AntiRandoms isn't in here. It would be useless to include because Reflection is currently broken.
//This stops the script completely once your player has failed. e.g. Gotten into a random event, died (almost impossible) or failed to find a tree.