Needing Some Help With My First Script Please
Hey, i am working on my first ever script " AnonymousNormals ". Where I can start the script at the Varrock West bank, walk to trees, until inv. Full, Go bank, Repeat. I have the path with sps and everything..
coming from Griff's tutorial on script down your first rs tree!:
(http://villavu.com/forum/showthread.php?t=44942)
I have started trying to use SPS, creating my path from Wolygon's path creator:
(http://villavu.com/forum/showthread.php?t=44942)
Here is what i have so far.
PHP Code:
program AnonymousNormals;
{$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].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
Var
mypath:TPointArray;
begin
SPS_Areas := ['11_7','11_6','];
myPath := [Point(4529, 2832), Point(4505, 2802),
Point(4479, 2791), Point(4455, 2786), Point(4441, 2789)];
procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'hop', 1785912, 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.
~AnonymousUser