Code:
Program EWillowChopper;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Member := False;
Players[0].Active := True;
Players[0].Pin := '';
end;
Procedure BankItems;
begin;
Writeln('Banking Items...');
Depositall;
Mouse(488, 42, 0, 0, true);
wait(250+random(250));
end;
Procedure Welcome;
begin;
Writeln('Welcome to EWillows v1.1 by Ekarma!');
Writeln('If you have any issues please report them here:');
Writeln('http://villavu.com/forum/showthread.php?t=97292&p=1181017&posted=1#post1181017');
Writeln('________________________________________________');
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(100) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2400+Random(572));
end;
1: BoredHuman;
2:
begin
MakeCompass('E');
wait(100+random(125));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
wait(50+random(123));
MakeCompass('W');
end;
end;
end;
Procedure Woodcut;
var x, y: integer;
begin;
MakeCompass('E');
Writeln('Chopping willows!');
Repeat
wait(2500+random(500));
FindNormalRandoms;
if FindObj (x, y, 'illow', 3359298, 10) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('hop down');
end;
Repeat
Antiban;
wait(500+random(1000));
Until not IsUpText('illow') or (InvFull);
Until(InvFull);
end;
Procedure WalkToTrees;
Var
myPath:TPointArray;
begin
Writeln('Walking to willows!');
SPS_Setup(RUNESCAPE_SURFACE,['10_9','10_8']);
myPath := [Point(4164, 3625), Point(4164, 3613),
Point(4153, 3611), Point(4141, 3611), Point(4140, 3622),
Point(4140, 3629), Point(4140, 3637), Point(4137, 3643),
Point(4136, 3649), Point(4135, 3659), Point(4139, 3666)];
SPS_WalkPath(myPath);
end;
Procedure WalkToBank;
Var
myPath:TPointArray;
begin
Writeln('Inventory full! Walking to bank!');
SPS_Setup(RUNESCAPE_SURFACE,['10_9','10_8']);
myPath := [Point(4144, 3665), Point(4144, 3658),
Point(4142, 3651), Point(4141, 3645), Point(4141, 3638),
Point(4141, 3627), Point(4141, 3615), Point(4148, 3609),
Point(4158, 3610), Point(4167, 3613), Point(4164, 3621),
Point(4162, 3630)];
SPS_WalkPath(myPath);
end;
Procedure ClickBanker;
var x, y: integer;
begin;
MakeCompass('W');
if FindObj (x, y, 'ank', 4873312, 5) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('ank');
wait(3000+random(1500));
end;
end;
Procedure Mainloop;
begin;
Repeat
WoodCut;
WalkToBank;
ClickBanker;
BankItems;
WalkToTrees;
Until(false);
end;
begin //Don't Touch this...
SetupSRL;
DeclarePlayers;
LoginPlayer;
ClearDebug;
Welcome;
Mainloop;
end.
***Please keep in mind this is my first script***