Results 1 to 20 of 20

Thread: Low Level Pickpocketer

  1. #1
    Join Date
    Oct 2011
    Posts
    422
    Mentioned
    15 Post(s)
    Quoted
    116 Post(s)

    Default Low Level Pickpocketer

    This script pickpockets guns at tower of life, south of ardougne. Due to the nature of him giving you sammiches, you can literally run this for hours without having to bank. This script should detect all random events except combat ones.

    Instructions:
    • Copy and paste script below
    • Download Charge.zip
    • Extract Charge.zip
    • Move Charge.wav into the same folder as Simba.exe
    • Turn sound up. If script detects you are dying it will play Charge.wav



    Simba Code:
    {$DEFINE SMART}
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name        := '';
        Pass        := '';
        Pin         := '';
        WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
        BoxRewards  := ['XP','xp','lamp'];
        LampSkill   := Skill_Slayer;
        Active      := True;
          Nick      := '';
      end;
    end;
    function getApproxHP() : Integer;
    begin
      with MFBox  do
          begin
          Result := 100 - CountColorTolerance(HP_BAR_COLOR2, X1, Y1, X2, Y2, 2);
          end;
    end;
     var tmpx,tmpy : Integer;
      blackList : array of Integer;
    begin
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 72;
          Smart_Members := True;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
         // SRL_SixHourFix := True;
          Smart_FixSpeed := True;
        {$ENDIF}
      {$ENDIF}

      DeclarePlayers;
      SetupSRL;
      SRL_COMBATRANDOMS := false;
      SetAngle(SRL_ANGLE_HIGH);
      repeat
      begin
        if not LoggedIn then LogInPlayer;
        if LoggedIn then
        begin
        FindNormalRandoms;
        if srl_InFight AND (getApproxHP < 60) then
         PlaySound('./Charge.wav');
        if (Pos('stun',GetBlackChatMessage) > 0) OR InvFull then
           begin
            for tmpx := 1 to 28 do
              begin
                if ExistsItem(tmpx) AND (not InIntArray(blackList,tmpx)) then
                begin
                   MMouseItem(tmpx);
                   sleep(200);
                    if IsUpTextMultiCustom(['eat','triangle','riangle','andwic']) then
                    begin
                      ClickMouse2(mouse_Left);
                      sleep(400);
                      break;
                    end else
                    CombineIntArrayWrap(blacklist,[tmpx],blacklist);

                end;

              end;
           end;
           tmpy := MSCX;
           tmpx := MSCY;
           if FindObjTPA(tmpx,tmpy,5863837,39,1,10,10,15,['talk-to','alk-to','k-t']) then
           begin
            Mouse(tmpx,tmpy,3,3,mouse_Right);
            sleep(400);
             if ChooseOptionMulti(['pickpocket','ickpocke','ckpock']) then
             sleep(1500 + Random(1000));
           end;
        end;
      end
      until(false);
    end.
    Attached Files Attached Files
    Last edited by slushpuppy; 03-30-2013 at 01:34 AM.

  2. #2
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice work! Will definitely give this one a try

  3. #3
    Join Date
    Nov 2011
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Any idea on xp / h? I need to get my thieving up to 53 somehow, and everything else seems to be failing! Ill give this a try.
    I wish I could have picture here

  4. #4
    Join Date
    Apr 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Every time I try and run the script I am receiving "The following DTMs were not freed: [SRL - Lamp bitmap, SRL - Book of Knowledge]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Minimap Mask bitmap]" In simba, and a new tab opens called "antirandoms" is there anyway to get around this problem?

  5. #5
    Join Date
    Jan 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default

    Quote Originally Posted by MartinMeh View Post
    Every time I try and run the script I am receiving "The following DTMs were not freed: [SRL - Lamp bitmap, SRL - Book of Knowledge]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Minimap Mask bitmap]" In simba, and a new tab opens called "antirandoms" is there anyway to get around this problem?
    did u put nickname?
    Last edited by LynxS; 04-19-2013 at 12:37 PM.

  6. #6
    Join Date
    Mar 2013
    Location
    The Netherlands
    Posts
    185
    Mentioned
    2 Post(s)
    Quoted
    70 Post(s)

    Default

    Fill in your nickname inside the script, this should be a small part of your name without uppercase letters.

  7. #7
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    its a good script, i left it for an hour and came back to it stuck, the inventory got full and it couldnt pickpocket anymore, you should consider maybe pickpocket 1 then eat one? (so the inventory will never be full

  8. #8
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    Quote Originally Posted by robottt View Post
    its a good script, i left it for an hour and came back to it stuck, the inventory got full and it couldnt pickpocket anymore, you should consider maybe pickpocket 1 then eat one? (so the inventory will never be full
    Add two lines to your script
    1. Check if invFull
    2. DropInv if true

  9. #9
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL-OSR/SRL.Simba' used from ''

  10. #10
    Join Date
    Aug 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Hey when I start the bot it does thieve but it also hovers over the gray stone next to the NPC for a long time.

    I'm not a programmer but I'm sure this is where it finds the npc;

    Code:
     if FindObjTPA(tmpx,tmpy,5863837,39,1,10,10,15,['talk-to','alk-to','k-t']) then
    I tried to change the color to a different color to have it thieve 'Guns' instead. It didn't work..want to school me real quick?

  11. #11
    Join Date
    Feb 2006
    Location
    Australia
    Posts
    628
    Mentioned
    15 Post(s)
    Quoted
    105 Post(s)

    Default

    Nice work slushpuppy
    Your script should end the loop when the player is not logged in and you need to move your login call up above the setangle() call and out of your loop (else randoms cause you to log in and time out repeatedly).
    I really liked the fact that you used item blacklisting to avoid mousing over non-food items.

  12. #12
    Join Date
    Apr 2013
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    I am getting this error when i try to run - Error] (41:7): Unknown identifier 'Smart_FixSpeed' at line 41
    Compiling failed.

    Anyone know how to fix? thanks!

  13. #13
    Join Date
    Apr 2013
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    ERRORS...something about smart speed

  14. #14
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Bearzs View Post
    ERRORS...something about smart speed
    Double posting is general against the rules here. You should read through the thread for your specific error as well as search around the forums. As you can see in the post above you the script works fine if you can setup your simba/srl correctly.

  15. #15
    Join Date
    Apr 2013
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    I have, i already have run many scripts but this one will not work.

  16. #16
    Join Date
    Feb 2014
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It won't log me in.

  17. #17
    Join Date
    Feb 2014
    Location
    UDFj-39546284
    Posts
    76
    Mentioned
    1 Post(s)
    Quoted
    43 Post(s)

    Default

    Hello. I have fixed your script to the best of my ability. I've been trying to implement an antiban but I can't get it to work. Works with this NPC unless you change the colors. http://speedcap.net/sharing/files/9e...517a73448b.png


    Simba Code:
    {$DEFINE SMART}
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name        := '';
        Pass        := '';
        Pin         := '';
        WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
        BoxRewards  := ['XP','xp','lamp'];
        LampSkill   := Skill_Slayer;
        Active      := True;
          Nick      := 'MUST INSERT YOUR IN-GAME NAME OR SCRIPT WILL FAIL!';
      end;
    end;
    function getApproxHP() : Integer;
    begin
      with MFBox  do
          begin
          Result := 100 - CountColorTolerance(HP_BAR_COLOR2, X1, Y1, X2, Y2, 2);
          end;
    end;
     var tmpx,tmpy : Integer;
      blackList : array of Integer;
    begin
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 72;
          Smart_Members := True;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
         // SRL_SixHourFix := True;
         // SmartFixSpeed := True;
        {$ENDIF}
      {$ENDIF}

      DeclarePlayers;
      SetupSRL;
      SRL_COMBATRANDOMS := false;
      SetAngle(SRL_ANGLE_HIGH);
      MouseSpeed := 10;
      repeat
      begin
        if not LoggedIn then LogInPlayer;
        if LoggedIn then
        begin
        FindNormalRandoms;
        if srl_InFight AND (getApproxHP < 60) then
         PlaySound('./Charge.wav');
        if (Pos('stun',GetBlackChatMessage) > 0) OR InvFull then
           begin
            for tmpx := 1 to 28 do
              begin
                if ExistsItem(tmpx) AND (not InIntArray(blackList,tmpx)) then
                begin
                   MMouseItem(tmpx);
                   sleep(200);
                    if IsUpTextMultiCustom(['eat','triangle','riangle','andwic']) then
                    begin
                      ClickMouse2(mouse_Left);
                      sleep(400);
                      break;
                    end else
                    CombineIntArrayWrap(blacklist,[tmpx],blacklist);

                end;

              end;
           end;
           tmpy := MSCX;
           tmpx := MSCY;
           if FindObjTPA(tmpx,tmpy,4146055,12,7,5,3,1,['attack','ttack','ack']) then

         begin
         MMouse(tmpx,tmpy,6,6);
            Clickmouse2 (mouse_right);
            sleep(400);
             if ChooseOptionMulti(['pickpocket','ickpocke','ckpock']) then
             sleep(1500 + Random(600));
     end;
        end;
      end
      until(false);
    end.

  18. #18
    Join Date
    Feb 2014
    Location
    UDFj-39546284
    Posts
    76
    Mentioned
    1 Post(s)
    Quoted
    43 Post(s)

    Default

    Will steal from the Tea steal and drop the tea. Couldn't get it to work with dropall for some reason (I suck at this.)


    Simba Code:
    {$DEFINE SMART}
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name        := '';
        Pass        := '';
        Pin         := '';
        WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
        BoxRewards  := ['XP','xp','lamp'];
        LampSkill   := Skill_Slayer;
        Active      := True;
          Nick      := 'ragon 3397';
      end;
    end;
    function getApproxHP() : Integer;
    begin
      with MFBox  do
          begin
          Result := 100 - CountColorTolerance(HP_BAR_COLOR2, X1, Y1, X2, Y2, 2);
          end;
    end;
     var tmpx,tmpy : Integer;
      blackList : array of Integer;
    begin
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 72;
          Smart_Members := True;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
         // SRL_SixHourFix := True;
         // SmartFixSpeed := True;
        {$ENDIF}
      {$ENDIF}

      DeclarePlayers;
      SetupSRL;
      SRL_COMBATRANDOMS := false;
      SetAngle(SRL_ANGLE_HIGH);
      MouseSpeed := RandomRange(8, 12);
      repeat

      begin
        if not LoggedIn then LogInPlayer;
        if LoggedIn then
        begin
        FindNormalRandoms;
        if srl_InFight AND (getApproxHP < 60) then
         PlaySound('./Charge.wav');
        if (Pos('stun',GetBlackChatMessage) > 0) OR InvFull then
           begin
            for tmpx := 1 to 28 do
              begin
                if ExistsItem(tmpx) AND (not InIntArray(blackList,tmpx)) then
                begin
                   MMouseItem(tmpx);
                   sleep(200);
                    if IsUpTextMultiCustom(['Drink Cup of tea','Cup','of','tea']) then
                      begin
                        Clickmouse2 (mouse_right);
                       sleep(200 + Random(100));
                        if ChooseOptionMulti(['Drop Cup','rop Cup','op Cup']) then
                        sleep(200 + Random(200));
                     end else
                    CombineIntArrayWrap(blacklist,[tmpx],blacklist);

                end;

              end;
           end;
           tmpy := MSCX;
           tmpx := MSCY;
           if FindObjTPA(tmpx,tmpy,8887723,16,33,35,27,60,['steal-from','eal','from']) then

         begin
         MMouse(tmpx,tmpy,12,12);
            Clickmouse2 (mouse_left);
            sleep(200 + Random(300));
            if IsUpTextMultiCustom(['Steal-from','Steal','from']) then
             sleep(6800 + Random(400));
     end;
        end;
      end
      until(false);
    end.

  19. #19
    Join Date
    Apr 2014
    Posts
    323
    Mentioned
    0 Post(s)
    Quoted
    131 Post(s)

    Default

    Quote Originally Posted by Bulbasaur View Post
    Will steal from the Tea steal and drop the tea. Couldn't get it to work with dropall for some reason (I suck at this.)


    Simba Code:
    {$DEFINE SMART}
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name        := '';
        Pass        := '';
        Pin         := '';
        WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
        BoxRewards  := ['XP','xp','lamp'];
        LampSkill   := Skill_Slayer;
        Active      := True;
          Nick      := 'ragon 3397';
      end;
    end;
    function getApproxHP() : Integer;
    begin
      with MFBox  do
          begin
          Result := 100 - CountColorTolerance(HP_BAR_COLOR2, X1, Y1, X2, Y2, 2);
          end;
    end;
     var tmpx,tmpy : Integer;
      blackList : array of Integer;
    begin
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 72;
          Smart_Members := True;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
         // SRL_SixHourFix := True;
         // SmartFixSpeed := True;
        {$ENDIF}
      {$ENDIF}

      DeclarePlayers;
      SetupSRL;
      SRL_COMBATRANDOMS := false;
      SetAngle(SRL_ANGLE_HIGH);
      MouseSpeed := RandomRange(8, 12);
      repeat

      begin
        if not LoggedIn then LogInPlayer;
        if LoggedIn then
        begin
        FindNormalRandoms;
        if srl_InFight AND (getApproxHP < 60) then
         PlaySound('./Charge.wav');
        if (Pos('stun',GetBlackChatMessage) > 0) OR InvFull then
           begin
            for tmpx := 1 to 28 do
              begin
                if ExistsItem(tmpx) AND (not InIntArray(blackList,tmpx)) then
                begin
                   MMouseItem(tmpx);
                   sleep(200);
                    if IsUpTextMultiCustom(['Drink Cup of tea','Cup','of','tea']) then
                      begin
                        Clickmouse2 (mouse_right);
                       sleep(200 + Random(100));
                        if ChooseOptionMulti(['Drop Cup','rop Cup','op Cup']) then
                        sleep(200 + Random(200));
                     end else
                    CombineIntArrayWrap(blacklist,[tmpx],blacklist);

                end;

              end;
           end;
           tmpy := MSCX;
           tmpx := MSCY;
           if FindObjTPA(tmpx,tmpy,8887723,16,33,35,27,60,['steal-from','eal','from']) then

         begin
         MMouse(tmpx,tmpy,12,12);
            Clickmouse2 (mouse_left);
            sleep(200 + Random(300));
            if IsUpTextMultiCustom(['Steal-from','Steal','from']) then
             sleep(6800 + Random(400));
     end;
        end;
      end
      until(false);
    end.
    I am excited to see what you do with this
    so what/where does it work with atm?

  20. #20
    Join Date
    Feb 2014
    Location
    UDFj-39546284
    Posts
    76
    Mentioned
    1 Post(s)
    Quoted
    43 Post(s)

    Default

    Quote Originally Posted by hakishakataki View Post
    I am excited to see what you do with this
    so what/where does it work with atm?


    You have to use the separate scripts for the locations. The first one steals from the purple shirted woman to the north of the Lumbridge Castle entrance. The second one steals from the tea stall in varrock. Neither of them contain any antiban other than slightly randomized mouse movements.

    Right now I'm working on a silk stall thiever (from scratch) as my first script, then I'll work on making an AIO thieving script, including Bearded Pollnivnian Bandit, which is second most exp/hr next to Pyramid Plunder, at 130k exp AND 130k gp per hour.

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
  •