Results 1 to 11 of 11

Thread: [C]Mutated Roots chopper

  1. #1
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default [C]Mutated Roots chopper

    Made this a joke, but it turned out to work pretty well. This script was made less than 1 hour after the update was released, so it's the first script for this area. Has no special or notable features, it will just find and chop mutated roots which will farm mutated vines for you. Each vine is worth 140 WC exp.

    I didn't make this for endurance, like I said it was just a joke so don't expect much. No breaks, no stats, but it does have a little bit of anti-ban. No reflection required.

    Simba Code:
    program VineChopper;
      {$define SMART}
      {$i srl/srl.scar}

    Var
      Tries,Time: Integer;

      Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name := '';
          Pass := '';
          Nick := '';
          Pin  := '';
          Active := True;
        end;
      end;

      Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
      Var
        h, s, t: Extended;
        I,II : integer;
        HSLColor : Array[1..3] of Extended;
        HSL : Array[0..1] of Array[1..3] of Extended;
      begin;
        For I:= 1 to 3 do
        begin;
          HSL[0][i] := 255;
        end;

        For I:= 0 to High(Colors) do
        begin;
          ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
          For II:= 1 to 3 do
          begin;
            HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
            HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
          end;
        end;

        H := (HSL[1][1] - HSL[0][1]);
        S := (HSL[1][2] - HSL[0][2]);
        T := (HSL[1][3] - HSL[0][3]);

        try
          HueMods := (H/T);
          SatMods := (S/T);
          Tolerance := Round(t);
        except
          HueMods := 0;
          SatMods := 0;
          Tolerance := Round(0.0);
        end;

        Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
      end;

      Function TPAFinder(Colors: TIntegerArray; TheUpText: TStringArray; var x, y: Integer; midx, midy: integer): Boolean;
      Var
        CTS, I, color, tolerance: Integer;
        TPA: TPointArray;
        ATPA: Array of TPointArray;
        Hmod, Smod: Extended;
      Begin
        ReturnValues(colors, Hmod, Smod, color, tolerance);
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(Hmod, SMod);
        FindColorsSpiralTolerance(midx, midy, TPA, color, MSX1, MSY1, MSX2, MSY2, Tolerance);
        ColorToleranceSpeed(CTS);
        ATPA := TPAToATPAEx(TPA, 15, 15);

        For I := 0 to High(ATPA) do
        begin
          Inc(Tries);
          MiddleTPAEx(ATPA[i], x, y);
          MMouse(x, y, 2, 2);
          Wait(randomrange(150,300));
          If(IsUpTextMultiCustom(TheUpText)) then
          begin
            Result := True;
            GetMousePos(x, y);
            Tries := 0;
            Break;
          end;
        end;
      end;

      Function Chopping: Boolean;
      begin

        if FindBlackChatMessage('at you') then
        begin
          Time := 0;
          Result := False;
        end else if (FindBlackChatMessage('swing') Or FindBlackChatMessage('get')) then
          Result := True;

        Inc(Time);
        if (Time > RandomRange(25,35)) then
        begin
          Result := False;
          Time := 0;
        end;
      end;

      Procedure Chop;
      Var
        X,Y: Integer;
      begin
        if (Tries >= 10) then
        begin
          MakeCompass('random');
          Tries := 0;
        end else
        begin
          if TPAFinder([6969147,7495231,8612937],['mut','tat','ed','mutated'],X,Y,MSCX,MSCY) then
          begin
            Mouse(X,Y,0,0,True);
            if DidRedClick then
              Wait(RandomRange(2750,3500));  //Enough time to update out chatbox
            Tries := 0;
          end;
        end;
      end;

      procedure Antiban;
      var
        i: Integer;
      begin
        if not LoggedIn then Exit;
        FindNormalRandoms;
        i := Random(50);

        case i of
          1: RandomRClick;
          2: RandomMovement;
        end;

        Wait(RandomRange(100,250));
      end;

    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;

      Repeat

        While Chopping do
          AntiBan;
        if Not Chopping then
          Chop;

      Until(False)

    end.

    Credits to PoW for the TPA finding. Works very accurately here.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  2. #2
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    #1 post! I would test this out but I don't have a member's account ^_^" thanks for the credits

  3. #3
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    does this burn them after it chops or does it drop?
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  4. #4
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Mutated Roots are stackable.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  5. #5
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    Quote Originally Posted by Flight View Post
    Mutated Roots are stackable.
    oh are these what are obtained?

    http://runescape.wikia.com/wiki/Mutated_vine

    I was looking at all the roots and they were saying not stackable, are these not burnable though?

    these for fletching
    http://runescape.wikia.com/wiki/Straight_root


    but these are the ones I thought this script was for:
    http://runescape.wikia.com/wiki/Curly_root

    since you can put them on fires
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  6. #6
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Yep Mutated Vines, that's what you get from chopping the Mutated Jade Roots there.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  7. #7
    Join Date
    Feb 2012
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    can anyone make this work i need seeds for juju pots

  8. #8
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by sit blackboy View Post
    can anyone make this work i need seeds for juju pots
    Don't grave dig. You can fix it yourself of course unless Flight wants to
    Current Project: Retired

  9. #9
    Join Date
    Feb 2012
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    well it was either i make a request or ask to just make sure nobody wants to update this, grave dig sorta overrated i found it on page one and didn't look in outdated

  10. #10
    Join Date
    Feb 2012
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sit blackboy View Post
    well it was either i make a request or ask to just make sure nobody wants to update this, grave dig sorta overrated i found it on page one and didn't look in outdated
    how can it be on page 1 when the post before you is from "07-22-2011 "

  11. #11
    Join Date
    Mar 2012
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    xp/h you think?

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
  •