program Pickpocketing;
{.include SRL/SRL.scar}
const
GuardColor= 689068;//colour of the guard
pickpocketbmp : Integer;
procedure LoadBmps;
begin
pickpocketbmp := BitmapFromString(195, 15, 'beNrtmFGOgzAMRH' +
'O7XqC/e/9jsFWpoqzH44whEVQblA8IjjH1w57m+Sil/Dwfr7E1xz4' +
'jjgNLrvK8baWOGQHXR7C7ZSvlfbeeDByiz92MGbfzqSANSK/LbPrq' +
'wkkgiZ67Ye8p3o95LNWn0Ax+IvicDwcp9okx+IyVNEsIUrYU3 AokZ' +
'txSVF98Tsw+SG0GxaTPAMm8ONYfdKIWOg6SCNV3gTSpo+kgpZ I+A6' +
'QoqkJBUvh0Wxv7eFFKsZ7IRJc+n/Ica7yaX9RI7aV7S5k081mQXN0' +
'SyJXAXgfJFEnm5BhISJGb2Xqwhe0l8zDPM751m1+jkdpb7rlr bxql' +
'ATUFEtMtrk3Onutql6KBIGEiWMvDUoD4sUYZn5/33O04XXiwyLiAM' +
'Rl/DKS4Urn6KloLR5eisSAF2iNONzaaUSCxFuZWqlEgMTwQlfiuCh ' +
'IAwwQws1czzim6A0is0ZwHSWmCijJPtTO9ag0DySsdbt6Zffb vv6j' +
'YZ4AUS+JWULG60RVjXc/oHIuVsiGJvSmej1FxLbt7fazIdP+LufYJ' +
'kILlf+e74CFIwdaK7bD4LcA5qxvMg+7ZFQDoId5FORZSvAfFQ qIs8' +
'V/VjUF5nJhxJp/srEyRAemqLaB/NSZthF4e7QJpjVHILZDWuC1IX1' +
'fD1zg1fgH81TAR');
end;
procedure PickPocket;
var x,y: Integer;
begin
if FindColorTolerance(x, y, GuardColor, MSX1, MSY1, MSX2, MSY2, 3) then
begin
Mouse(x, y, 4, 4, False);//Use mouse for Runescape
if(FindBitmap(pickpocketbmp,x,y)) then
Mouse(x, y, 4, 4, True);
Wait(3000+random(100));
end else Exit;
end;
begin
SetupSRL;
repeat
PickPocket;
until(false);
end.