SRL Archive - Help

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.;)

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();

From: 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();

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 :(

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;

From: x[Warrior]x3500
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.

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

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.

:| 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)

From: 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)

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.

From: Evva
[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).

From: x[Warrior]x3500
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?

From: Evva

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. :)