Results 1 to 12 of 12

Thread: I need some help.

  1. #1
    Join Date
    Jan 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need some 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
    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.

  2. #2
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    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();
    Last edited by x[Warrior]x3500; 02-01-2012 at 11:18 PM.

  3. #3
    Join Date
    Jan 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by x[Warrior]x3500 View Post
    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

  4. #4
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    did u fill out the declare players procedure?

    here is my ring of kinship teleport method (using Ref2)
    Code:
    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;
    Last edited by x[Warrior]x3500; 02-01-2012 at 11:33 PM.

  5. #5
    Join Date
    Jan 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by x[Warrior]x3500 View Post
    did u fill out the declare players procedure?
    I don't think so can you refresh me please
    btw SOOOOO including you as a special thanks in the script.
    Last edited by Evva; 02-01-2012 at 11:37 PM.

  6. #6
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

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

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

  7. #7
    Join Date
    Jan 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  8. #8
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

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

  9. #9
    Join Date
    Jan 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by x[Warrior]x3500 View Post
    :| 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.

  10. #10
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    Quote Originally Posted by Evva View Post
    [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).

  11. #11
    Join Date
    Jan 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by x[Warrior]x3500 View Post
    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).
    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?
    Last edited by Evva; 02-02-2012 at 12:43 AM.

  12. #12
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    Quote Originally Posted by Evva View Post
    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •