Results 1 to 5 of 5

Thread: auto woodcutter

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default auto woodcutter

    I got most of information from tuts..is there anything i need to add plz tell me...this my first script..

    program New;
    {.include SRL/SRL.scar}

    const
    LoadsPerPlayer = 10; //Amounts of loads per player before switching.
    TreeColor = 411969; //Fill in the treecolor here.
    WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.

    function FindFastRandoms: Boolean; // WT-Fakawi
    var
    i: Integer;
    begin
    for i:=1 to 10 do
    begin
    case I of
    1: If FindDead then
    Result := True;
    2: If FindMod then
    Result := True;
    3: If FindMime then
    Result := True;
    4: If FindMaze then
    Result := True;
    5: If FindQuiz then
    Result := True;
    6: If FindDemon then
    Result := True;
    7: begin
    if NoGameTab then
    begin
    Result := True;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
    end;
    end;
    8: if FindTalk then result:= true;
    end;
    wait(1);
    end;
    end;
    Procedure AntiBanActions;
    var
    Ban: Integer;
    begin
    Ban:= Random(10);
    case Ban of
    0: Almostlogout;
    1: SayCurrentLevels('woodcutting');
    2: PickUpMouse;
    3: RandomMovement;
    4: BoredHuman;

    end;
    end;

    procedure ChopTree;
    var
    x, y, MyMark : integer;
    begin
    if not Loggedin then Exit;
    MarkTime(MyMark);
    repeat
    if FindObj(x, y, 'hop', TreeColor, 50) then
    begin
    Mouse(x, y, 0, 0, False);
    if ChooseOption('hop') then
    begin

    Wait(WaitPerTree);
    Exit;
    end;
    end;
    if TimeFromMark(MyMark) > (1 * 60 * 100) then
    begin
    Logout;
    Exit;
    end;
    until false
    end;

    begin
    SetupSRL;
    SRLPlayerForm(True, [], [], [], []);
    if LoggedIn then Logout;
    LoginPlayer;
    repeat
    ChopTree;
    if InvFull then
    begin
    DropToPosition(2, 28);
    Inc(Players[CurrentPlayer].Banked);
    if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
    begin
    NextPlayer(True);
    end;
    end;
    if not Loggedin then NextPlayer(False);
    until false

    end.

  2. #2
    Join Date
    Sep 2007
    Location
    Behind You
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should make your waits randomized. Ex: Wait(WaitPerTree + Random(1000));.

    Also, I dont see anywhere where you call your antirandom and antiban procedures. You should probably do the antiban after every couple of trees cut, after every level gained, ect. Also, you should call the antirandom procedure if you cannot cut the tree or if you cannot see any game tabs.

    Also, when posting your script, you should encase your script with the [SCAR] tags. It just makes it easier to read. (In the advanced menu you highlight the script and press the SCAR logo).

    ~JNCR
    The[Cheese] really puts it perfectly:

    Reflection is win

  3. #3
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    thanks a lot! ill make it beter...

  4. #4
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Put [scar][/scar] around your script; it makes it look all pretty

    You have a lot to learn, but you are quite talented.
    Interested in C# and Electrical Engineering? This might interest you.

  5. #5
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    yes like smartz said put scar tags around...makes alot easier for us to read and be able to help

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Auto WoodCutter.
    By Fourscape in forum RS3 Outdated / Broken Scripts
    Replies: 126
    Last Post: 01-11-2008, 03:48 AM
  2. auto woodcutter
    By faster789 in forum OSR Help
    Replies: 1
    Last Post: 10-01-2007, 01:38 AM
  3. AUTO Woodcutter
    By martinpwns in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-09-2007, 02:35 PM
  4. auto woodcutter yew !
    By ConneX in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 05-17-2007, 01:06 AM

Posting Permissions

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