SRL Archive - OSR Outdated / Broken Scripts

Low Level Pickpocketer

slushpuppy

2013-03-29 08:03:04

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

{$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.

boomboomtucki

2013-03-29 09:11:59

Nice work! Will definitely give this one a try ;)

Rsbotter12

2013-03-29 19:49:48

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.

MartinMeh

2013-04-19 04:34:27

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?

LynxS

2013-04-19 08:34:30

From: MartinMeh
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?

jelknab

2013-04-19 08:36:14

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

robottt

2013-04-19 23:31:49

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

Deni_mulic

2013-04-20 01:07:55

From: robottt
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

yurirn

2013-04-20 18:14:46

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

purp

2013-04-27 17:46:22

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;

 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?

Krazy_Meerkat

2013-12-12 00:02:06

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.

Bearzs

2014-01-22 16:22:59

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! :)

Bearzs

2014-01-23 00:07:58

ERRORS…something about smart speed

Ashaman88

2014-01-23 00:18:29

From: Bearzs
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.

Bearzs

2014-01-23 10:45:54

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

knurd

2014-02-10 12:57:13

It won't log me in.

Bulbasaur

2014-05-08 15:30:13

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/a5/9ea500c8faaac8a56c900a517a73448b.png

{$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.

Bulbasaur

2014-05-09 07:45:15

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.)


{$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.

hakishakataki

2014-05-09 16:00:23

From: Bulbasaur
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.)


{$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?

Bulbasaur

2014-05-09 18:10:17

From: hakishakataki
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.