Results 1 to 2 of 2

Thread: auto woodcutter

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

    Default auto woodcutter

    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.



    howz it? got help from tuts..here does the anti random and antiban have any use? if not how can i put them in?

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

    Default

    umm can someone tell me how to put antirandoms in antiban as well? 8 views no comments?

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 First Scripts
    Replies: 4
    Last Post: 10-01-2007, 05:50 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
  •