Results 1 to 6 of 6

Thread: Tips For My Chopper

  1. #1
    Join Date
    Jan 2008
    Posts
    168
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Tips For My Chopper

    Any Tips are Welcome I Would Appreciate A Tip So It Does better chopping

    Here is the script so u can look at it And tell what i should change

    [ If You see any Errors tell me cause i got some errors too if you see things who maybe does one of of that error Tell me]

    Here is the script

    SCAR Code:
    program FagetChopperHopperDropper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}

    // FagetHax0r//
    //Present you//
    //FagetChopperDropperhopper//

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

      Procedure DeclarePlayers;
    begin
      SRLID := ''; // enter or your computer will shut down :). joke.
      SRLPassword := ''; // enter your password
      HowManyPlayers := 4;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    End;
      Begin
      Players[0].Name := '';  // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := '';   // 3-4 letters of your Username
      Players[0].Strings[0] := '0000'; // bank pin
      Players[0].Strings[1] := 'woodcutting'; //Lamp Skill
      Players[0].Integers[0] := 15; // how many Loads before changing other player
      Players[0].Active := True;   // are u going to use this player ?

      Players[1].Name := '';  // Username
      Players[1].Pass := ''; // Password
      Players[1].Nick := '';   // 3 Non Capital Letters of you name
      Players[1].Strings[0] := '0000'; // Put You Bank pin here if you dont have one keep it like this
      Players[1].Strings[1] := 'woodcutting'; //Lamp Skill
      Players[1].Integers[0] := 5; //how many Loads before changing other player
      Players[1].Active := True // If Youdont use this accound put False there

      Players[2].Name := '';  // Username
      Players[2].Pass := ''; // Password
      Players[2].Nick := '';   // 3 Non Capital letters of you name
      Players[2].Strings[0] := '0000'; // You Bank pin here if you dont have one keep it like this
      Players[2].Strings[1] := 'woodcutting'; //Lamp Skill
      Players[2].Integers[0] := 5; //how many Loads before changing other player
      Players[2].Active := True;

      Players[3].Name := '';  // Username
      Players[3].Pass := ''; // Password
      Players[3].Nick := '';   // 3-4 letters of your Username
      Players[3].Strings[0] :='0000'; // bank pin
      Players[3].Strings[1] := 'woodcutting'; //Lamp Skill
      Players[3].Integers[0] := 5;
      Players[3].Active := True;
    End


    procedure Tree;
    Begin
    If Not LoggedIn Then Exit;
    ClickMouse(x,y,true);
    End.

    Begin
    Mouse(x,y,0,0,False);
    Wait(500+(Random(150);
    ChooseOption ('Hop')
    Antiban
    Writeln('Found Tree!');

    End Else
    Writeln('TreeNotFound!');
    Antiban;
    Antiban;
    Antiban;
    Until (Invfull)
    End

    Begin
    Chopping
    End.

    Procedure Antiban;
    Begin
    If not Loggedin then Exit;
    Case Random(30) OF
    1: RandomClick;
    2: Hoverskill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90);
    End


    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        if FindObj(x, y, 'hop', TreeColor, 30) then
        begin
          Mouse(x, y, 0, 0, False);
          if ChooseOption('hop') then
          begin
            //increase 1 to the total tree chop - if we had one
            Wait(WaitPerTree);
            Exit; //We clicked chop, now we can exit this procedure.
          end;
        end;
        if TimeFromMark(MyMark) > (2 * 60 * 100) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;

    Procedure FindRandoms;
    Begin
    FindNormalRandoms;
    If Findfight then Runaway('N',True,1,15000);
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      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.


    Procedure Proggy;
    begin
      if not LoggedIn then Exit;
      Writeln('---------------------------------');
      Writeln('---------------------------------');
      Writeln('The script worked for: '+ TimeRunning);
      Writeln('The script chopped: '+ IntToStr(LogsChopped)+' logs');
    end;
    Btw I Just added Antiban And FindFastRandoms
    Jagex Failed



























    FagetHax0r

  2. #2
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    I will read through and comment when you put it in SCAR tags


  3. #3
    Join Date
    Jan 2008
    Posts
    168
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i Added Scar Tags i dont see any Difference but i added scar tags
    Jagex Failed



























    FagetHax0r

  4. #4
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    You tags phailed there. You need to put

    [.SCAR]
    Script hereeeeee....
    [./SCAR]

    Without the dots though. Added them so the tags wouldn't disappear

    And I have a feeling in my butt that this belongs to scripting help section.

  5. #5
    Join Date
    Jan 2008
    Posts
    168
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Done
    Jagex Failed



























    FagetHax0r

  6. #6
    Join Date
    Oct 2007
    Posts
    678
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    change wait per player to seconds instead of miliseconds...also put players 2-4 in {} and set defualt for 1 player to run in script...its better for noobies and the more advanced can change when we like

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Any tips for the new guy
    By megatron74 in forum News and General
    Replies: 3
    Last Post: 09-05-2007, 12:54 PM
  2. Like to try C++ need tips!
    By drowningtrout in forum C/C++ Help and Tutorials
    Replies: 8
    Last Post: 08-24-2007, 09:31 PM
  3. tips on not getting banned
    By takeout in forum Bot Information and Spottings
    Replies: 4
    Last Post: 08-22-2007, 02:21 AM
  4. Tips, Help, and more....... needed!
    By TravisV10 in forum Bot Information and Spottings
    Replies: 24
    Last Post: 06-29-2007, 06:51 PM

Posting Permissions

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