Thanks for this tutorial I followed the whole thing! I retyped it all and everything, learned a lot for my first guide! Sadly it didn't work as it doesn't open the Runescape Window. Here is what I got.
Code:
program new;
{$i srl/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='chin';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(loggedIn))then
Exit;
case Random(12) 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(177));
MakeCompass('N')
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;
LoginPlayer;
ChopTree;
FindNormalRandoms;
end.