
Originally Posted by
AnonymousUser
There we go, i have added my script. I know it probably needs A LOT of work... that's why i wasn't going to add it here.
I fixed it and it now walks to the trees....
You had a few things in the wrong spot..
The variable for the SPS_PATH is set at the top of the script, above declare players.
Also you should use 'if not logged in then log in player' ( that will help it stop typing ur password / user in the game )
I changed a couple other things around too..
Yeah.. Ask any questions / paste anything if you need more help..
Maybe i didn't even help. :P
Code:
program AnonymousNormals;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
mypath:TPointArray;
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;
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;
SPS_Setup(RUNESCAPE_SURFACE, ['11_7','10_7','11_6','10_6']);
myPath := [Point(4529, 2832), Point(4505, 2802),
Point(4479, 2791), Point(4455, 2786), Point(4441, 2789)];
if not LoggedIn then
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH); // Set camera angle high
SPS_WalkPath(MyPath); // walks your path.
Fflag(0); // will wait for the flag to go from minimap before continuing.
ChopTree;
end.