Results 1 to 22 of 22

Thread: [ProjectRS06] Universal Pickpocketer

  1. #1
    Join Date
    Nov 2011
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default [ProjectRS06] Universal Pickpocketer

    Code:
    program PRS06_PickPocketer;
    var
      pickpocket,
      X, Y: Integer;
    
    procedure ClickColor;
    begin
    if (FindColor(X, Y, COLOR_OF_NPC_HERE, 0, 0, 760, 500)) then
       begin
          Status('Looking for color...');
          MoveMouse(X, Y);
          GetMousePos(X, Y);
          Wait(300 + Random(50));
          ClickMouse(X, Y, mouse_right);
          end;
      end;
    
    procedure Steal;
    begin
      pickpocket := BitmapFromString(71, 14, 'meJzdk0EOwCAIBP2dH+i1/3+GvR' + 'nCugWlJFrDAYmuDEK97vpHa2ItXMxLKa5QSpmV6heToJzKw7SlwhT' + 'XVlDqMEI5AY+A6k4/IH0cPda3bEj98SllM4gU6pW+2EW5ZQp5yip5' + 'FXxpS6zGUG3BjyubDex/usG/fwWFysibAcWaIQ7ladQI1Ps4ywFk9' + 'TSH11RGcfxEmb+aJhbHKqHP6skU/Mp4cpgbUsSN/fvRtgPUA8ABJPo=');
      if (FindBitmap(pickpocket, X, Y)) then
      begin
        Status('Stealing..');
        MoveMouse(X, Y);
        GetMousePos(X, Y);
        ClickMouse(X, Y, mouse_left);
      end;
     FreeBitmap(pickpocket);
    end;
    
    begin
      ActivateClient;
      ClearDebug;
      repeat
          ClickColor;
          Wait(300);
          Steal;
      until(isKeyDown(113));
    end.
    Change
    COLOR_OF_NPC_HERE

    to the color of the npc you want to steal from.
    The script will look for color and right click, and look for the word "pickpocket"

    it will work with any NPC that has the "pickpocket" option, farmers, master farmers, heros, paladins, guards, knights, men etc.
    Last edited by Toby1; 01-31-2013 at 04:21 PM.

  2. #2
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Good job

  3. #3
    Join Date
    Jan 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Need help with changing the color, I tried black and brown on level 2 mans and nothing works.

  4. #4
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    use a unique color

  5. #5
    Join Date
    Jan 2013
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Is it possible to use a bitmap? But I dont think its better to detect, is it?
    *to find the NPC btw

  6. #6
    Join Date
    Nov 2011
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Joebots View Post
    Need help with changing the color, I tried black and brown on level 2 mans and nothing works.
    Did you put replace it with COLOR_OF_NPC_HERE ? and did you then run the script? did the debug say anything? does it right click anything?

    @Dormik not sure what you mean, sorry

  7. #7
    Join Date
    Jan 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    I think joebots just wrote black,brown there he doesnt know that u must a color picker

  8. #8
    Join Date
    Dec 2012
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Nice Script man.

    You planning to add an eating function?
    [My ProjectRs06 Scripts]

    Barbarian Powerfisher - Air RuneCrafter

  9. #9
    Join Date
    Jan 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can someone give a quick run through of how to use findcolor?

  10. #10
    Join Date
    Nov 2011
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Pew View Post
    Nice Script man.

    You planning to add an eating function?
    I have added a script that eats shrimps, but its not at all reliable, but I may release it.

    @ffsok
    Code:
    function FindColor(var x, y: Integer; col, x1, y1, x2, y2: Integer): Boolean;
    here are some more procedures/functions to find colors :
    http://docs.villavu.com/simba/script...urfinding.html

  11. #11
    Join Date
    Jan 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I use "pick color" and then try starting it but nothing happens.

  12. #12
    Join Date
    Jan 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Good script. Just 3 things that I think are a must.

    Slow down a bit, spams way too fast.
    Add an option to steal from stalls.
    After running for about 10 minutes, it logs out. Possibly a function that rotates your camera every so often?

    Other than that, it's flawless.

  13. #13
    Join Date
    Jan 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    To slow down the mouse change 300 to 800 (its on the two lines wait)
    Last edited by Lemonade; 01-28-2013 at 05:14 AM.

  14. #14
    Join Date
    Oct 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I added to it a bit, it rotates the camera if it can't find the color (makes it continue for longer), it has an auto login that repeats until it can login (for if the server crashes overnight or you dc), and it randomizes the clicking a little more

  15. #15
    Join Date
    Nov 2011
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Synyster View Post
    Good script. Just 3 things that I think are a must.

    Slow down a bit, spams way too fast.
    Add an option to steal from stalls.
    After running for about 10 minutes, it logs out. Possibly a function that rotates your camera every so often?

    Other than that, it's flawless.
    Thanks! yea I have a login/logout procedure but it is part of my ProjectRS06 include and I didn't think I should take it out and place it just in the script. I might post my include so far here at SRL-forums though . it has some functions and procedures for PRS06 .

    @apalapa goodjob!

  16. #16
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Can you explain how to put the color in? i have the color of the npc but idk if it is suppose to be Hex? or RGB or what please explain.

  17. #17
    Join Date
    Feb 2013
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by Corbyz View Post
    Can you explain how to put the color in? i have the color of the npc but idk if it is suppose to be Hex? or RGB or what please explain.
    Simply click the little eye dropper icon on Simba (left of the target), then click/get the colour that you want and then little window should then come up. The window that comes up should have a highlighted number.

    That is the number you should use.


    __________________________________________________ __________________________________________________ ____________________________
    Awesome script! I hope one day Ill be able to make one like that!

    I edited your code a lil with my extremely limited knowlage to make it look a little more human like:

    Code:
    program PRS06_PickPocketer;
    {$i srl/srl.simba} // added this for mmouse
    var
      pickpocket,
      X, Y: Integer;
    
    procedure ClickColor;
    begin
    if (FindColor(X, Y, COLOUR GOES HERE, 0, 0, 760, 500)) then
       begin
           MouseSpeed:= 15
           Status('Looking for color...');
           mmouse(X, Y, 1, 1);       // replaced from below
        //  MoveMouse(X, Y);
          GetMousePos(X, Y);
          Wait(749 + Random(1025));
          ClickMouse(X, Y, mouse_right);
          end;
      end;
    
    procedure Steal;
    begin
      pickpocket := BitmapFromString(71, 14, 'meJzdk0EOwCAIBP2dH+i1/3+GvR' + 'nCugWlJFrDAYmuDEK97vpHa2ItXMxLKa5QSpmV6heToJzKw7SlwhT' + 'XVlDqMEI5AY+A6k4/IH0cPda3bEj98SllM4gU6pW+2EW5ZQp5yip5' + 'FXxpS6zGUG3BjyubDex/usG/fwWFysibAcWaIQ7ladQI1Ps4ywFk9' + 'TSH11RGcfxEmb+aJhbHKqHP6skU/Mp4cpgbUsSN/fvRtgPUA8ABJPo=');
      if (FindBitmap(pickpocket, X, Y)) then
      begin
        Status('Stealing..');
        mmouse(X, Y, 1, 1);       //replaced the below
      //  MoveMouse(X, Y);
        GetMousePos(X, Y);
        ClickMouse(X, Y, mouse_left);
    
      end;
     FreeBitmap(pickpocket);
    end;
    
    begin
      ActivateClient;
      ClearDebug;
      repeat
          ClickColor;
          Wait(489);
          Steal;
      until(isKeyDown(113));
    end.
    Last edited by Gh0stt; 02-10-2013 at 04:25 AM.

  18. #18
    Join Date
    Feb 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good working script, thanks for sharing.

  19. #19
    Join Date
    Feb 2013
    Posts
    74
    Mentioned
    1 Post(s)
    Quoted
    30 Post(s)

    Default

    No eating function? Can't run it that long then

  20. #20
    Join Date
    Feb 2013
    Posts
    74
    Mentioned
    1 Post(s)
    Quoted
    30 Post(s)

    Default

    Also it gets caught on lagg about ever 5-10 minutes. (where it only has the option to walk here, so it just sits there)

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

    Default

    Woudnt be just easer to tell us the colours of the farmers men and master farmer?

  22. #22
    Join Date
    Feb 2013
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by deividuskis View Post
    Woudnt be just easer to tell us the colours of the farmers men and master farmer?
    Lol.. Use the eye dropper icon on Simba and it takes you about 5 seconds to get the colour and paste it into the right place...

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
  •