Results 1 to 6 of 6

Thread: leeds tree destroyer -OSR

  1. #1
    Join Date
    Jun 2013
    Posts
    79
    Mentioned
    1 Post(s)
    Quoted
    62 Post(s)

    Default leeds tree destroyer -OSR

    just a basic script i made while i was learning. decided to make public since all the low level scripts are broken/outdated.This script has very little anti ban and prob a high chance of a ban so babysit it!
    this is my first script,i will update when i get better at scripting.

    program mikeswc;
    {$DEFINE SMART8}
    {$i SRL-OSR/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');
    end;
    end;
    end;

    procedure ChopTree;
    var x, y: integer;
    begin
    repeat
    if FindObj(x, y, 'hop',2583407, 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.

    enjoy

  2. #2
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    hey nice first release

    u can use simba tags btw to make your script easier to read. Put: [SIMBA] (your script here) [/SlMBA] around the script.

    Scripting wise:

    1)
    u should pick your colors with AutocolorAid => tutorial by yohojo (click me)
    This'll give you way more accurate results. Thus improving the script's stability!

    2)
    The following code is a potential infinite loop: meaning it could get stuck inside this loop.
    To get rid of that u could use a timer (look below)
    Simba Code:
    repeat
    wait(400+random(250));
    AntiBan;
    Until not IsUpText('ew') or (InvFull);


    Simba Code:
    markTime(t);
    repeat
    wait(400+random(250));
    AntiBan;
    Until (not IsUpText('ew')) or (InvFull) or (TimeFromMark(t) > 10000);
    This will exit the loop after 10 seconds (calculated in ms), preventing it to get stuck in the loop!

    don't forget to declare t in your variables as an integer, or you'll get the 'unknown identifier' error.
    Simba Code:
    var
     t: Integer;

    There is another potential infinite loop inside the same procedure, can u spot it?

    3)
    Next step is getting your script to drop all the logs and repeat the chopping process
    Last edited by Sjoe; 11-03-2013 at 12:13 AM.

    Creds to DannyRS for this wonderful sig!

  3. #3
    Join Date
    Jun 2013
    Posts
    79
    Mentioned
    1 Post(s)
    Quoted
    62 Post(s)

    Default

    tried addin ur code if fail's to compile

  4. #4
    Join Date
    Jun 2013
    Posts
    79
    Mentioned
    1 Post(s)
    Quoted
    62 Post(s)

    Default

    i made this script using guides im just getting used to this

  5. #5
    Join Date
    Jun 2013
    Posts
    79
    Mentioned
    1 Post(s)
    Quoted
    62 Post(s)

    Default

    anyone know why this wont drop?{$DEFINE SMART8}
    {$i SRL-OSR/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');
    end;
    end;
    end;

    procedure ChopTree;
    var x, y: integer;
    begin
    repeat
    if FindObj(x, y, 'hop',2583407, 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 Droplogs;
    begin
    If InvFull then
    DropAllExcept([1]);
    Wait(200+Random(100))
    end;
    begin
    SetUpSRL;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    ChopTree;
    end.

  6. #6
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    use simba tags please,

    droplogs isn't in your mainloop.

    Creds to DannyRS for this wonderful sig!

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
  •