Results 1 to 3 of 3

Thread: not my first! willow powa chopper

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

    Default not my first! willow 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
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Um...you posted this 3 times? And it's ok for a first althogh your standards are messed up.


  3. #3
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah its pretty good for a first but maybe make it bank? not that hard and dont need ANY radial walking

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. U L T R A Willow Chopper!
    By Ultra in forum First Scripts
    Replies: 149
    Last Post: 05-17-2008, 04:10 PM
  2. 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
  3. not my first! willow powa chopper
    By apg1992 in forum First Scripts
    Replies: 4
    Last Post: 11-08-2007, 02:16 AM
  4. Lolislol Powa Choppa A Power Chopper
    By lolislol in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 09-19-2007, 02:39 PM
  5. my powa chopper
    By apg1992 in forum First Scripts
    Replies: 1
    Last Post: 06-14-2007, 09:23 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
  •