Results 1 to 2 of 2

Thread: my powa chopper

  1. #1
    Join Date
    Apr 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my powa chopper

    SCAR Code:
    {_________           ___________      ___________
     |        \          |   _____  \    /  ______   \
     |         \         |   |    \  \  /  /      |   \
     |          \        |   |    |  | |  |       |   |
     |     |\    \       |   |    |  | |  |       |   |
     |     | \    \      |   |___/   / \  \_______|   |
     |     |  \    \     |      ____/   \_________    |
     |     _____    \    |      |                |    |
     |     ______    \   |      |                |    |
     |     |     \    \  |      |                /    |
    _|_____|______\____\_|______|_______________/     /
    |                                                /  1992's tree
    |_______________________________________________/   power chopper
    --------------------------------------------------------------------------------------------
     _______
    |_______|
       | |    __  _______   ___
       | |    | \ | | ___| /   \
       | |    |  \| | |_  |  |  |
       | |    |  |  | _|  |  |  |
     __|_|___ |  |\ | |   |  |  |
    |________||__| \|_|    \___/

    SET UP ANY WHERE THERE IS WILLOWS AND START MACRO THIS IS MY
    FIRST SCRIPT AND I AM VERY SATASFIED WITH IT I HOPE U WILL BE TO

    SET UP USERNAME INFO IN LINES 65-83
    ____________________________________________________________________________________________}



    {.Script Info:
    # ScriptName  = apgs tree master
    # Author      = apg1992
    # Description = simple woodcutter
    # Version     = 1.0
    # Date        = 4/20/2007
    # Comments    = my first script
    /Script Info}


    {program apg1992 willow master;
    {.Include SRL/SRL.Scar}

    {.Include SRL/SRL/Skill/woodcutting.Scar}
    var
    loads: integer;
    i: integer;
    logschopped: integer;

    //////////////SetUp-SetUp-SetUp/////////////////////////////////
    const                                                         //
    TreeColor = 396042;//the tree color                             //
    HowManyLoads = 2500000000000000; //how many loads you wnat to do//
    Cutlevl = 5000;   //the time in millisec for you to cut tree  //
    Axes = 0; //how many axes you have make sure there unequiped  //
    NOban = 12; //how much anti ban you want the less is better 10-17 //
    ////////////////////////////////////////////////////////////////


    Procedure DeclarePlayers;
    begin

     HowManyPlayers  := 4;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := 0;

     Players[0].Name      := '';
     Players[0].Pass      := '';
     Players[0].Nick      := '';
     Players[0].Active    := True;

     Players[1].Name      := '';
     Players[1].Pass      := '';
     Players[1].Nick      := '';
     Players[1].Active    := true;

     Players[2].Name      := '';
     Players[2].Pass      := '';
     Players[2].Nick      := '';
     Players[2].Active    := true;

     Players[3].Name      := '';
     Players[3].Pass      := '';
     Players[3].Nick      := '';
     Players[3].Active    := true;
    end;

    procedure antirandoms;
     begin
       if(NoGameTab= true)then
        Exit;
          FindNormalRandoms;
          if(FindCerter = True)then
        StupidSolveCerter;
       Solvepinball;
    end;

    procedure FindTreeAndCut;
     begin
      if(FindColortolerance(x,y,treecolor,msx1,msy1,msx2,msy2,5))then
        MMouse(x,y,0,0);
        if(FindEnt(treecolor))then
        Wait(10000);
        Wait(10);
       if (IsUpText('hop'))or
          (IsUpText('h op')) or
          (IsUpText('ho p')) then
         Mouse(x,y,0,0,true);
        FindNormalRandoms;

      Wait(cutlevl+(300));
    end;

    procedure Report;
    begin
      Writeln('[]I love runescape[]');
       Writeln('Worked For : ' + ScriptTime2(2))
       Writeln('choped '+ IntToStr(logschopped) + ' Logs');
       Writeln('droped '+ IntToStr(loads)+'loads');
      Writeln('[]baker 4 life[]');
    end;

    begin
      SetupSRL;
      DeclarePlayers;
       repeat
        if(not(loggedin))then
         begin
           Loginplayer;
             Fixchat;
              SetRun(true);
               end;
                case Random(Noban) of
                  1: PickUpMouse;
                  2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
                  4: HoverSkill('woodcutting', False);
                  6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
                  9: BoredHuman;
                  8:Almostlogout;
                 end;
                HighestAngle;
               MakeCompass('N');
              AntiRandoms
            FindTreeAndCut;
          LogsChopped:= LogsChopped + 1;
        Antirandoms;
       Cleardebug;
     if(Invfull)then
    begin
      i:=i+1;
       loads:=loads+1;
       report;
       FindNormalRandoms;
      Dropto(axes,28)
     end;
      if(i>=howmanyloads)then
       Nextplayer(true);
      I:=0;
     until(false);
    end.
    plz dont copy my script thx

  2. #2
    Join Date
    Oct 2006
    Location
    Texas,united states
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Some of the waits in your script dont have random wait times added to them so this can almost be an automatic ban.
    You need to change this
    SCAR Code:
    procedure FindTreeAndCut;
     begin
      if(FindColortolerance(x,y,treecolor,msx1,msy1,msx2,msy2,5))then
        MMouse(x,y,0,0);
        if(FindEnt(treecolor))then
        Wait(10000);
        Wait(10);
       if (IsUpText('hop'))or
          (IsUpText('h op')) or
          (IsUpText('ho p')) then
         Mouse(x,y,0,0,true);
        FindNormalRandoms;
     
      Wait(cutlevl+(300));
    end;
    to this
    SCAR Code:
    procedure FindTreeAndCut;
     begin
      if(FindColortolerance(x,y,treecolor,msx1,msy1,msx2,msy2,5))then
        MMouse(x,y,2,2);
        if(FindEnt(treecolor))then
        Wait(10000+random(3000));
        Wait(10+random(5);
       if (IsUpText('hop'))or
          (IsUpText('h op')) or
          (IsUpText('ho p')) then
         Mouse(x,y,2,2,true);
        FindNormalRandoms;
      Wait(cutlevl+random(300));
    end;
    Its a great fist script though alot like mine except mine was a power miner.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First Script [Lolislol Powa Choppa] A Power Chopper
    By lolislol in forum First Scripts
    Replies: 71
    Last Post: 01-26-2008, 06:02 PM
  2. not my first! willow powa chopper
    By apg1992 in forum First Scripts
    Replies: 4
    Last Post: 11-08-2007, 02:16 AM
  3. Lolislol Powa Choppa A Power Chopper
    By lolislol in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 09-19-2007, 02:39 PM
  4. my powa choper/.......
    By kelly slater pro surfer in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-31-2007, 09:06 PM
  5. not my first! willow powa chopper
    By apg1992 in forum First Scripts
    Replies: 2
    Last Post: 06-14-2007, 03:38 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
  •