So here is what I got so far.
Code:
program New;
{$DEFINE SMART}
{.include SRL\SRL.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='Dadadaddaaa';
Players[0].Pass :='babybabybabyoh!';
Players[0].Nick :='big';
Players[0].Active:=True;
end;
Begin
Smart_Server := 35;
SetupSRL;
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', 2633301, 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;
procedure TeleportToD();
var
i:integer;
begin
if((InvFull)and(not(R_Animating)))then
begin
if(not(getcurrenttab=tab_Equip))then
begin
gametab(tab_Equip);
end;
MouseEquippedItem('ring',2);
R_WaitOption('eleport',800);
while(not(atD))do
begin
R_findrandoms();
wait(500+random(500));
inc(i);
if(i=30)then
begin
break;
end;
end;
wait(500+random(500));
end;
if(not(getcurrenttab=tab_Inv))then
begin
gametab(tab_Inv);
end;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.
Don't know why but it still doesn't seem to work :/
I still need to do walking to wc island and banking. (but I wanna get it working first lol)
Thanks again man.