Results 1 to 6 of 6

Thread: Bom's IvyChopper Pro

  1. #1
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bom's IvyChopper Pro

    Bom's IvyChopper Pro

    It works
    Features
    -Uses Auto Color Aid to detect Ivy for efficiency and accuracy.
    -No Mass Clicking
    -Flawless Ivy detection
    -Advanced Antiban & MiniBreaker
    -Bird Nest Support
    Instructions
    -Clear EXP Bar prior to starting this script for an accurate progress report.
    -Start in Castle Wars (May not work in other locations, I haven't tested at other places yet)
    -Enjoy

    Version Changelog
    6/17/2012: BETA Version Released
    I need Proggies guys!!!!! Please post them and report all bugs for updates.
    Here is the code for those who don't want to download:
    Simba Code:
    program Boms_IvyChopperPRO;
    {$DEFINE SMART}
    {$i srl\srl.simba}

    var
        XpGained, XpPerH, LVL,Nest, Nests, x, y, x1, y1 : Integer;
      Const
      FindNest = True; // Set to true for looking for bird's nest.
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;
    procedure AntiRandoms;
    begin
      FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
      if(not LoggedIn)then  //It will log you out if you fail a random, so this will end the script
        TerminateScript;
      LampSkill := 'woodcutting'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the woddcutting skill

      LevelUp; // This is an Antiban procedure, but I find it more useful when called here because AntiRandoms is usually called more often than Antiban
    end;
    Procedure Antiban;
    Begin

      Case Random(250) Of
        10: HoverSkill('Woodcutting', False); //Acts like a real human.. wtf >_<
        20: HoverSkill('random', False); //Totally random hover
        30: PickUpMouse;
        40: Wait(2500 + random(1000)); //Small break
        50: HoverSkill('Firemaking', False);
        60: BoredHuman;  //Acts like a IRL bored human! Very neat
        70: RandomMovement; //Does what it says it does
        80: RandomRClick;
      end;
    end;
    Procedure MiniBreaker;
    Begin

      Case Random (500) Of
        1: Wait(40000 + random(7400));
        2: Wait(25500 + random(8550));
        3: Wait(60040 + random(6759));
        4: Wait(20400 + random(2549));
      end;
    end;
    function AutoColorIvy: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      R, G, B: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.06);

      If not (FindColorsTolerance(arP, 4091990, MSX1, MSY1, MSX2, MSY2, 9)) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToRGB(arC[i], R, G, B);

        if (R >= 63) and (R <= 110) and (G >= 83) and (G <= 142) and (B >= 45) and (B <= 79) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 5.76) and (X <= 17.23) and (Y >= 7.61) and (Y <= 22.87) and (Z >= 3.73) and (Z <= 10.73) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
    function ChopIvy:Boolean;
    var
     t, y:Integer;

    begin;
     t:=MSCX;
     y:=MSCY;
     FindNormalRandoms;
     SetAngle(SRL_ANGLE_HIGH);
     MakeCompass('N');
      begin
      Result:=True;
      Wait(300 + random(500));
         begin
         If FindObjTPA(t, Y, AutoColorIvy, 5, 1, 35, 60, 5, ['Ivy']) then
         If (IsUpText('Chop')) and (IsUpText('Ivy')) Then
         ClickMouse2(true);
         Result:=WaitUpText('Walk', 18000+Random(15000));
        end
      end;
     ClearDebug;
    end;

    procedure TakeNest;
    var
      i: Integer;
    begin
        if IsChatBoxTextAnyLine('A bird', 255) and FindNest then
          if (FindObjEx(x1, y1, ['ake B', 'Bird', 'nest'], [2767422, 2961972, 3818051], 3, 50, 191, 149, 354, 252)) then
          begin
            if WaitUptext('Take', 600) then
            begin
              ClickMouse2(true);
              Inc(Nests);
              wait(500+random(1000));
              for i := 0 to 7 do
              begin
                wait(200+random(100));
                ExamineInv;
              end;
              wait(500+random(1000));
            end;
          end;
    end;
    procedure Progress_Report;
    begin
      ClearDebug;
      XpGained := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
      XpPerH := Round(((XpGained) / (GetTimeRunning / 1000.0)) * 3600);
      LVL := Players[CurrentPlayer].Level[SKILL_WOODCUTTING];
      Writeln('This Script has Ran For: ' + TimeRunning);
      Writeln('XP Gained So far: ' + IntToStr(XpGained));
      Writeln('XP Per Hour: ' + IntToStr(XpPerH));
      Writeln('Current LVL: ' + IntToStr(LVL));
    end;
    procedure MainLoop;
    begin
      repeat
        ChopIvy;
      begin
      Progress_Report;
      TakeNest;
      Antiban;
      Minibreaker;
      end;
      AntiRandoms;
      Until not(LoggedIn);
    end;
    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      MainLoop();
    end.

    Go **** Jagex young botters
    Last edited by Bom; 06-18-2012 at 04:03 PM.

  2. #2
    Join Date
    Mar 2012
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    After testing it briefly I found something to fix, in your ChopIvy function the MakeCompass bit needs to be changed manually depending at the spot you're at because since it defaults north the camera will be behind the wall sometimes.

    Aside from that, I removed and added some thing's and it's running good.
    Last edited by xYumz; 06-17-2012 at 08:22 PM.
    Currently working on max cape, and learning to script along the way!

  3. #3
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by xYumz View Post
    After testing it briefly I've found a few thing's to fix, the proggy need's a fix so as an example here it is currently -

    Code:
    This Script has Ran For: 5 Minutes and 30 Seconds
    XP Gained So far: 36320391
    XP Per Hour: 395843397
    Current LVL: 0
    as well as in your ChopIvy function the MakeCompass bit needs to be changed manually depending at the spot you're at because since it defaults north the camera will be behind the wall sometimes.

    Aside from that, I removed and added some thing's and it's running good.
    The progress report leeches off your total experience bar do you may want to clear it if you want an accurate progress report. The camera angle issue will be fixed next release, in the meantime try chopping at castle wars.
    Last edited by Bom; 06-17-2012 at 08:16 PM.

  4. #4
    Join Date
    Mar 2012
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Bom View Post
    The progress report leeches off your total experience bar do you may want to clear it if you want an accurate progress report. The camera angle issue will be fixed next release, in the meantime try chopping at castle wars.
    Yea, I figured out the proggy bit thats why I edited my post. But awesome, thanks for addressing the camera issue
    Currently working on max cape, and learning to script along the way!

  5. #5
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by xYumz View Post
    Yea, I figured out the proggy bit thats why I edited my post. But awesome, thanks for addressing the camera issue
    No problem this is a beta version so I expect for this to have bugs. Thank you for posting so I can fix.

  6. #6
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Version 1.0 coming soon. Just need to iron some issues out.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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