Low Level Pickpocketer

[slushpuppy]

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]

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

[Rsbotter12]

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]

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]

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]

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

[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

[Deni_mulic]

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]

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

[purp]

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]

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]

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]

ERRORS...something about smart speed

[Ashaman88]

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]

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

[knurd]

It won't log me in.

[Bulbasaur]

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]

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]

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]

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.