The script logs in locates and chops trees. However the anti ban doesn't work, the cursor doesn't move over the high scores and the compass doesn't move either.
program new;
{$DEFINE SMART}
{$i srl/srl.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;
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', 1848131, 35) then
Mouse (x, y, 0, 0, false);
ChooseOption('hop');
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('ree') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.
Help please![]()


Reply With Quote