Results 1 to 8 of 8

Thread: Thieve, Hunter or Agility

  1. #1
    Join Date
    Dec 2011
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Thieve, Hunter or Agility

    Hi,

    I'm wondering if any one can make one of these types of scripts. I need something like:

    -Gnome agility advanced/Ape atoll
    -Anything for hunter that can train it from 70-99, Doesn't have to make money.
    -Monkey knife fighters/Thieve guild luring.


    If you can possibly give me a code for it I would appreciate it. Also If it's Legal here or anything I'm willing to buy the code for RSGP. Pm me If your interested or post.


    PS: If It's not allowed to be bought, then NVM me saying that. Sorry.

  2. #2
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Buying scripts is against the rules, even with RSGP.
    Selling: No Script Selling at SRL. No Script Buying at SRL. No buying/selling of any RL goods outside of the (members only) black market. Please apply to our Friendly Neighbours for anything related to $ or RS-gp.
    The rules: http://villavu.com/forum/showthread.php?t=6964

  3. #3
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Well you can always attempt to code it yourself, as many Members and scripters already have projects.

    The agility runner wouldn't be that hard to make, hunting is difficult, and thieving isn't too bad.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  4. #4
    Join Date
    Dec 2011
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    K sorry about that then. Also I can't code for my life. I just don't understand it at all :l

  5. #5
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    I'm currently making a AIO Agility bot.
    Advanced Gnome is onn my todo list.
    Wait for like two to three days and i'll release it.

  6. #6
    Join Date
    Dec 2011
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by omgmike1 View Post
    Hi,

    I'm wondering if any one can make one of these types of scripts. I need something like:

    -Gnome agility advanced/Ape atoll
    -Anything for hunter that can train it from 70-99, Doesn't have to make money.
    -Monkey knife fighters/Thieve guild luring.
    If you can possibly give me a code for it I would appreciate it. Also If it's Legal here or anything I'm willing to buy the code for RSGP. Pm me If your interested or post.
    PS: If It's not allowed to be bought, then NVM me saying that. Sorry.
    There is a ape atoll but needs a update :P read the tuts and try and figure it out ^^,
    You could probably make a butterfly script for hunt.
    Goodluck ;D

  7. #7
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    This small piece of code below will always find ruby harvest butterflies flawlessly.. Thing is.. when there is none on the screen, the character will stand there because I do not know how to make it walk around RANDOMLY to find butterflies..

    The colours are so sensitive that you CANNOT wear anything the same colour as the larupia gear even at 2 Tolerance! Any lower, it does not find them.. any higher, it will click anything! Any brown gear will definitely throw the script off.. Without larupia and larupia coloured gear on, my character finds the butterflies, hunts them and continues.. but it DOES NOT WALK around..

    My character's normal clothes is grey.. the skin colour doesn't matter because there is no RS skin colour the same as larupia.. I tested this.

    Something you guys can play with I guess..

    Simba Code:
    program FindObject;
      {$define SMART}
      {$i srl/srl.scar}
      {$i srl/srl/skill/fighting.scar}
      {$i sps/sps.simba}
      {$i SRL/SRL/misc/paintsmart.scar}

    Function FindObjectFX(Colors: TIntegerArray; Uptext: TStringArray; X1, Y1, X2, Y2, Width, Height, tol: integer): Boolean;
      var
          X, Y, I: integer;
          TPA: TPointArray;
          ATPA: T2DPointArray;

      begin
        SetLength(TPA, Length(Colors));

        For I:= 0 To High(Colors) do
          FindColorsSpiralTolerance(MSCX, MSCY, TPA, Colors[i], X1, Y1, X2, Y2, tol); //Find colours starting from the middle outwards..

        ATPA:= TPAToATPAEx(TPA, Width, Height);                  //Group TPA into cirles by Distance..
        SortATPAFrom(ATPA, Point(MSCX, MSCY));            //Sort the colours from the closest to the center..
        if(Length(ATPA) = 0) then
          Exit;

        MiddleTPAEx(ATPA[0], X, Y);                       //In that 2D Array, Pick out the closest to the middle a.k.a. the first one..
        MMouse(x, y, 5, 5);                               //Move the mouse to the colours found..

        Wait(randomrange(200, 500));                      //Wait for the uptext to show..
        If(IsUpTextMultiCustom(UpText)) then
        begin
          ClickMouse2(False);                              //If it finds it, click the object/item..
          wait(500);
          if ChooseOptionMulti(UpText) then
          begin
            Result := True;                               //If it clicks the object, return true..
            Exit;
          end;
        end else
          Result := False;                                //Cannot find the uptext then its the wrong object, return false..
      end;

    Function FindObjAdv(Colors: TIntegerArray; Uptext: TStringArray; X1, Y1, X2, Y2, Width, Height, tol: integer): Boolean;
      var
          X, Y, I: integer;
          TPA: TPointArray;
          ATPA: T2DPointArray;

      begin
        SetLength(TPA, Length(Colors));

        For I:= 0 To High(Colors) do
          FindColorsSpiralTolerance(MSCX, MSCY, TPA, Colors[i], X1, Y1, X2, Y2, tol); //Find colours starting from the middle outwards..

        ATPA:= TPAToATPAEx(TPA, Width, Height);                  //Group TPA into cirles by Distance..
        SortATPAFrom(ATPA, Point(MSCX, MSCY));            //Sort the colours from the closest to the center..
        if(Length(ATPA) = 0) then
          Exit;

        MiddleTPAEx(ATPA[0], X, Y);                       //In that 2D Array, Pick out the closest to the middle a.k.a. the first one..
        MMouse(x, y, 5, 5);                               //Move the mouse to the colours found..

        Wait(randomrange(200, 500));                      //Wait for the uptext to show..
        If(IsUpTextMultiCustom(UpText)) then
        begin
            Result := True;                               //If it clicks the object, return true..
            Exit;
        end else
          Result := False;                                //Cannot find the uptext then its the wrong object, return false..
      end;

    Procedure ClickButterflies;
    var
      TmpCTS: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(2.21, 1.60);
      FindObjectFX([2705528], ['atch', 'Ruby', 'harvest'], MSX1, MSY1, MSX2, MSY2, 2, 2, 2);
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;

    Function FindButterflies: Boolean;
    var
      TmpCTS: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(2.21, 1.60);
      FindObjAdv([2705528], ['atch', 'Ruby', 'harvest'], MSX1, MSY1, MSX2, MSY2, 2, 2, 2);
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;



    var
      Tries: Integer;
      MS: TBox;

    begin
      Smart_Server := 45;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      SPS_Areas := ['2_6','3_6','3_5'];
      SPS_Setup(RUNESCAPE_SURFACE, SPS_AREAS);
      Repeat
        ClickButterflies;
        while IsMoving do
          wait(500);
      Until(False);
    end.
    I am Ggzz..
    Hackintosher

  8. #8
    Join Date
    Dec 2011
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    THe bot sounds great, but I need something that is 70 hunt or below. Ruby is 80+ i belive + it req a high agility :l

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
  •