I need some help.

[Evva]

Hi guys! So I'm new to the wonderful world of scripting and was having a problem with my script. It is a maple tree chopper and rs wont come up(I must have missed a step or something). Here is the 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 :='';
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', 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;

begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.
Thank you
P.S.: If anyone could please tell me how to drop the logs/and use a teleport and bank.;)

[x[Warrior]x3500]

if you want to use SMART, make sure u define it:

program new;
{$DEFINE SMART} ////this!!
{$I SRL/SRL.simba}

EDIT: if you dont want to use SMART, feel free to select rs with the client selection button.

Also, to drop items: DropItem(); or DropAll();
Teleport: Cast();
Bank: OpenBankFast(); Deposit(); Withdraw();

[Evva]

x3500;913618']if you want to use SMART, make sure u define it:

program new;
{$DEFINE SMART} ////this!!
{$I SRL/SRL.simba}

EDIT: if you dont want to use SMART, feel free to select rs with the client selection button.

Also, to drop items: DropItem(); or DropAll();
Teleport: Cast();
Bank: OpenBankFast(); Deposit(); Withdraw();

Thanks man for replying I just have a few more noob questions.
1.It's going to be using the ring of kinship tele(also where do I put it in the code)
2.I started it up Smart opened but nothing happened. It wont type the username and pass or cut the tree :(

[x[Warrior]x3500]

did u fill out the declare players procedure?

here is my ring of kinship teleport method (using Ref2)


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;

[Evva]

x3500;913635']did u fill out the declare players procedure?

I don't think so:duh: can you refresh me please :)
btw SOOOOO including you as a special thanks in the script.

[x[Warrior]x3500]

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;




fill that out. for instance:




Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='bob@gmail.com';
Players[0].Pass :='howdypartna1234';
Players[0].Nick :='big';
Players[0].Active:=True;
end;




also, i edited my post above this one . look at that

[Evva]

So here is what I got so far.

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.

[x[Warrior]x3500]

:| take out lines 17-20...

and u can add my teleporting method in, but remember it is for ref2 (which means u will need to update it for SRL5, it wont compile)

[Evva]

x3500;913680']:| take out lines 17-20...

and u can add my teleporting method in, but remember it is for ref2 (which means u will need to update it for SRL5, it wont compile)

Thanks I'll add that when I get a walking started down :)
when I deleted lines 17-20 this comes up [Error] (63:23): Unknown identifier 'R_Animating' at line 62
Compiling failed.

[x[Warrior]x3500]

[Error] (63:23): Unknown identifier 'R_Animating' at line 62
Compiling failed.

yess..... look at the line in which the error occurs. look at the procedure in it. its my procedure. like i already said, my procedure will not compile because it is not updated for SRL5 (remove the reflection methods and put in SRL5 methods).

[Evva]

x3500;913698']yess..... look at the line in which the error occurs. look at the procedure in it. its my procedure. like i already said, my procedure will not compile because it is not updated for SRL5 (remove the reflection methods and put in SRL5 methods).

:duh::duh::duh::duh::duh::duh::duh::duh::duh::duh: :duh::duh::duh::duh::duh::duh::duh::duh::duh::duh: :duh::duh::duh::duh::duh: lol starting to make some progress!
edit: okay so now it's working but it spam clicks the tree and doesn't stay on one tree. Any idea how to fix?

[x[Warrior]x3500]

edit: okay so now it's working but it spam clicks the tree and doesn't stay on one tree. Any idea how to fix?

Animating(); (found in animation.simba)

ALL of these procedures i am suggesting can be found within the SRL library.
Example: cast(); is in magic.simba

so if you ever wonder where i am getting these things, or want to look at similar procedures, just try and get familiar with the library. :)