SRL Archive - OSR Help

Dont plan to use this on runescape as its still really simple but it would be nice to run it through a couple of times just to show it works. 1 error currently in it can someone help me?

program Pickpocketing;
{.include SRL/SRL.scar}

var
x,y: Integer;

const
GuardColor= 689068;//colour of the guard

begin
SetupSRL;
repeat
FindColorTolerance(x,y,GuardColor,0,0,600,600)) then
ClickMouse(x,y,true);
ChooseOption('pickpocket');
Wait(3000+random(100));
end;
until(false);
end.

The error is:

New client targeted
Failed when compiling
Line 51: [Error] (330:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.22\includes\SRL\SRL\Core\Math.scar

Hopefully my script is right! it's supposed to pickpocket a guard every 3 seconds on a continous loop!

Make sure you have updated SRL.

Also, you forgot to put the tolerance in FindColorTolerance();

ClickMouse is not recommended for RS scripts as it is detectable. Use Mouse(x, y, ranX, ranY:Integer; ClickLeft: Boolean); instead ;)

Have you moved your plugins?

thanks for your post i appreciate the quick reply.

il have a go with that click left/click right statement you informed me of.

What exactly do I have to do with the findcolourtolerance? someone told me about it on another forum without really explaining it.

And I have moved nothing, just downloaded scar 3.22 and download srl from the drop down menu.

That would probably be your problem, you are running an old version of SCAR and SRL. Go to this link http://villavu.com/forum/showthread.php?t=47714 and follow the tutorial on how to properly setup SCAR and SRL.

From: Alek000
That would probably be your problem, you are running an old version of SCAR and SRL. Go to this link http://villavu.com/forum/showthread.php?t=47714 and follow the tutorial on how to properly setup SCAR and SRL.

Thanks i have some work to do now so il go through that guide later.

In the meantime, where do i put the tolerance number in my script above please?

3.22 isn't the latest version of SCAR. Download 3.23 via svn. Follow this guide to properly setup the latest SCAR and SRL.

http://villavu.com/forum/showthread.php?t=47714

Now for FindColorTolerance…

this are the parameters

FindColorTolerance(var  x,  y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean; 

So it should be something like

FindColorTolerance(x, y, color, MSX1, MSY1, MSX2, MSY2, Tolerance);

MSX1, MSY1, MSX2, MSY2 are the main screen coordinates.

So your program should be something like


I think that should work…I am quite tired right now so I might have got something wrong…

Edit: Scratch that…try this.

program Pickpocketing;
{.include SRL/SRL.scar}



const
GuardColor= 689068;//colour of the guard

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
    ChooseOption('ickpocket');//No need to write the whole thing. Part of the text will do.
    Wait(3000+random(100));
  end else Exit;
end;

begin
  SetupSRL;
  repeat
    PickPocket;
  until(false);
end.

From: FEAR
3.22 isn't the latest version of SCAR. Download 3.23 via svn. Follow this guide to properly setup the latest SCAR and SRL.

http://villavu.com/forum/showthread.php?t=47714

Now for FindColorTolerance…

this are the parameters

FindColorTolerance(var  x,  y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean; 

So it should be something like

FindColorTolerance(x, y, color, MSX1, MSY1, MSX2, MSY2, Tolerance);

MSX1, MSY1, MSX2, MSY2 are the main screen coordinates.

So your program should be something like

program Pickpocketing;
{.include SRL/SRL.scar}

var
x,y: Integer;

const
GuardColor= 689068;//colour of the guard

begin
  SetupSRL;
  repeat
    if FindColorTolerance(x, y, GuardColor, MSX1, MSY1, MSX2, MSY2, 3)) then //I put 3 as the tolerance...
    begin
      Mouse(x, y, true);//Use mouse for Runescape
      ChooseOption('ickpocket');//No need to write the whole thing. Part of the text will do.
      Wait(3000+random(100));
    end else Exit;//so if it doesn't find the color, it will exit out of the loop...
  until(false);
end.

I think that should work…I am quite tired right now so I might have got something wrong…

Missing ranX and ranY in Mouse();, but other than that, the above looks just fine :)

From: NCDS
Missing ranX and ranY in Mouse();, but other than that, the above looks just fine :)

Yep was fixing that just now and made the pickpocket a procedure :)

it can't do chooseoption if you are left clicking, change it to Mouse(x, y, 4, 4, False);

From: Baked0420
it can't do chooseoption if you are left clicking, change it to Mouse(x, y, 4, 4, False);

Lol oops…Well I did write I was tired :p

From: FEAR
Lol oops…Well I did write I was tired :p

really appreciate it mate :)

From: lewis_
really appreciate it mate :)

No problem :smile:

From: FEAR
No problem :smile:

ugh for some reason its not selecting pickpocket, but it finds the guards perfectly :) is there any other way to make it choose pickpocket from the list? i read a guide it included bitmaps? or can i just not make the mouse go down a certain ammount of pixels after clicking and then make it click again?

Heres the guard with the pickpocket interface:

From: lewis_
ugh for some reason its not selecting pickpocket, but it finds the guards perfectly :) is there any other way to make it choose pickpocket from the list? i read a guide it included bitmaps? or can i just not make the mouse go down a certain ammount of pixels after clicking and then make it click again?

Heres the guard with the pickpocket interface:

Hmm try putting 'uard' as the chooseOption

Edit: Does it right click and does the option come up? If it does changing the text should do…

It looks like it's for a private server.. SRL is made for JaGeX's runescape. The procedures in SRL might not work on that server…

From: Zyt3x
It looks like it's for a private server.. SRL is made for JaGeX's runescape. The procedures in SRL might not work on that server…

Oy yea…didn't think of that…(right now my head hurts if I try to think :p)

Lewis, your best chance is making a bitmap for that option and Using FindBitmap…Let me see if I can find a tutorial for you.

Edit: Try this http://villavu.com/forum/showthread.php?t=47845 or I think Coh3n also wrote about Bitmaps in his tutorial…
yep, also try this http://villavu.com/forum/showpost.php?p=618674&postcount=3 search for bitmap and see how to make one properly.

From: FEAR
Hmm try putting 'uard' as the chooseOption

Edit: Does it right click and does the option come up? If it does changing the text should do…

Yes sorry for the late reply, it right clicks. so it works upto choose option. It just doesn't select ickpocket.

EDIT:

I am just making a bitmap for the pickpocket section correct?

From: lewis_
Yes sorry for the late reply, it right clicks. so it works upto choose option. It just doesn't select ickpocket.

EDIT:

I am just making a bitmap for the pickpocket section correct?

Yes you have to make a Bitmap for that line….

Or tell me the coordinates of any point in that line. Use the color picker anywhere on that line and tell me what you get in debugbox. It should look something like this

Color Picked: 16777215 at (362, 212)

sorry im new to this lol right ive got this :

pickpocketbmp := BitmapFromString(195, 15, 'beNrtmFGOgzAMRH' +
'O7XqC/e/9jsFWpoqzH44whEVQblA8IjjH1w57m+Sil/Dwfr7E1xz4' +
'jjgNLrvK8baWOGQHXR7C7ZSvlfbeeDByiz92MGbfzqSANSK/LbPrq' +
'wkkgiZ67Ye8p3o95LNWn0Ax+IvicDwcp9okx+IyVNEsIUrYU3AokZ' +
'txSVF98Tsw+SG0GxaTPAMm8ONYfdKIWOg6SCNV3gTSpo+kgpZI+A6' +
'QoqkJBUvh0Wxv7eFFKsZ7IRJc+n/Ica7yaX9RI7aV7S5k081mQXN0' +
'SyJXAXgfJFEnm5BhISJGb2Xqwhe0l8zDPM751m1+jkdpb7rlrbxql' +
'ATUFEtMtrk3Onutql6KBIGEiWMvDUoD4sUYZn5/33O04XXiwyLiAM' +
'Rl/DKS4Urn6KloLR5eisSAF2iNONzaaUSCxFuZWqlEgMTwQlfiuCh' +
'IAwwQws1czzim6A0is0ZwHSWmCijJPtTO9ag0DySsdbt6Zffbvv6j' +
'YZ4AUS+JWULG60RVjXc/oHIuVsiGJvSmej1FxLbt7fazIdP+LufYJ' +
'kILlf+e74CFIwdaK7bD4LcA5qxvMg+7ZFQDoId5FORZSvAfFQqIs8' +
'V/VjUF5nJhxJp/srEyRAemqLaB/NSZthF4e7QJpjVHILZDWuC1IX1' +
'fD1zg1fgH81TAR');

From: lewis_
sorry im new to this lol right ive got this :

pickpocketbmp := BitmapFromString(195, 15, 'beNrtmFGOgzAMRH' +
'O7XqC/e/9jsFWpoqzH44whEVQblA8IjjH1w57m+Sil/Dwfr7E1xz4' +
'jjgNLrvK8baWOGQHXR7C7ZSvlfbeeDByiz92MGbfzqSANSK/LbPrq' +
'wkkgiZ67Ye8p3o95LNWn0Ax+IvicDwcp9okx+IyVNEsIUrYU3AokZ' +
'txSVF98Tsw+SG0GxaTPAMm8ONYfdKIWOg6SCNV3gTSpo+kgpZI+A6' +
'QoqkJBUvh0Wxv7eFFKsZ7IRJc+n/Ica7yaX9RI7aV7S5k081mQXN0' +
'SyJXAXgfJFEnm5BhISJGb2Xqwhe0l8zDPM751m1+jkdpb7rlrbxql' +
'ATUFEtMtrk3Onutql6KBIGEiWMvDUoD4sUYZn5/33O04XXiwyLiAM' +
'Rl/DKS4Urn6KloLR5eisSAF2iNONzaaUSCxFuZWqlEgMTwQlfiuCh' +
'IAwwQws1czzim6A0is0ZwHSWmCijJPtTO9ag0DySsdbt6Zffbvv6j' +
'YZ4AUS+JWULG60RVjXc/oHIuVsiGJvSmej1FxLbt7fazIdP+LufYJ' +
'kILlf+e74CFIwdaK7bD4LcA5qxvMg+7ZFQDoId5FORZSvAfFQqIs8' +
'V/VjUF5nJhxJp/srEyRAemqLaB/NSZthF4e7QJpjVHILZDWuC1IX1' +
'fD1zg1fgH81TAR');

OK first first let me try something simpler….read my last post…I edited it. Get me the coordinates of any point in that line (pickpocket Guard)

Ive got this? Any outstanding errors you can see?

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+IyVNEsIUrYU3AokZ' +
'txSVF98Tsw+SG0GxaTPAMm8ONYfdKIWOg6SCNV3gTSpo+kgpZI+A6' +
'QoqkJBUvh0Wxv7eFFKsZ7IRJc+n/Ica7yaX9RI7aV7S5k081mQXN0' +
'SyJXAXgfJFEnm5BhISJGb2Xqwhe0l8zDPM751m1+jkdpb7rlrbxql' +
'ATUFEtMtrk3Onutql6KBIGEiWMvDUoD4sUYZn5/33O04XXiwyLiAM' +
'Rl/DKS4Urn6KloLR5eisSAF2iNONzaaUSCxFuZWqlEgMTwQlfiuCh' +
'IAwwQws1czzim6A0is0ZwHSWmCijJPtTO9ag0DySsdbt6Zffbvv6j' +
'YZ4AUS+JWULG60RVjXc/oHIuVsiGJvSmej1FxLbt7fazIdP+LufYJ' +
'kILlf+e74CFIwdaK7bD4LcA5qxvMg+7ZFQDoId5FORZSvAfFQqIs8' +
'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.

From: lewis_
Ive got this? Any outstanding errors you can see?

Yes…your Bitmap name is pickpocketbm not Fish:p and you can't use the same variable for two things…use different variable for the bitmap…And look in my last post! lol

From: FEAR
Yes…your Bitmap name is pickpocketbm not Fish:p and you can't use the same variable for two things…use different variable for the bitmap…And look in my last post! lol

lol changed that, thought id get it before you read :p um error on line 8 ?

[PHP]Line 8: [Error] (21790:15): is ('=') expected in script C:\Users\Lewis\Desktop\scarprerelease\Scripts\Pickpocketvgaurds.scar
[/PHP]

And i keep failing at getting the coords of the pickpocket, would that not change every time though depending on where the guards are? so how would we use that to click the pickpocket?

You didn't load the bmp. Add LoadBmps to the mainloop (after SetupSRL;)

From: lewis_
lol changed that, thought id get it before you read :p um error on line 8 ?

[PHP]Line 8: [Error] (21790:15): is ('=') expected in script C:\Users\Lewis\Desktop\scarprerelease\Scripts\Pickpocketvgaurds.scar
[/PHP]

And i keep failing at getting the coords of the pickpocket, would that not change every time though depending on where the guards are? so how would we use that to click the pickpocket?

Umm maybe…like I said…my brain isn't working :p

And

pickpocketbmp : Integer;

should be a variable not constant…

And use scar tags to post scripts :) Makes it easier to read. Use

Your script here.[/scar.]

just remove the dot after [/scar

From: Zyt3x
You didn't load the bmp. Add LoadBmps to the mainloop (after SetupSRL;)

Thanks for the post heres my code atm:

[PHP]program Pickpocketing;
{.include SRL/SRL.scar}
LoadBmps

const
GuardColor= 689068;//colour of the guard

var
pickpocketbmp : Integer;

var x,y: 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;
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.[/PHP]

I got an error with that on line 3?

In Line 8

pickpocketbmp : Integer;

Should be a variable not a constant.

Edit: He meant write

LoadBmps;

below SetupSRL;

From: FEAR
In Line 8

pickpocketbmp : Integer;

Should be a variable not a constant.

Edit: He meant write

LoadBmps;

below SetupSRL;

Ah right ive got you. Think i'll get there eventually lol.

[PHP]SRL Compiled in 16 msec
[Runtime Error] : Exception: "Invalid encrypted string" in line 15 in script C:\Users\Lewis\Desktop\scarprerelease\Scripts\Pickpocketvgaurds.scar
[/PHP]

Ive attachted the bmp to this post surely it should work?

edit: does the image have to be inlcuded anywhere in the scar files?

pickpocket := BitmapFromString(195, 15, 'beNrtmFGOgzAMRHO7X' + 
       'qC/e/9jsFWpoqzH44whEVQblA8IjjH1w57m+Sil/Dwfr7E1xz4jjg' + 
       'NLrvK8baWOGQHXR7C7ZSvlfbeeDByiz92MGbfzqSANSK/LbPrqwkk' + 
       'giZ67Ye8p3o95LNWn0Ax+IvicDwcp9okx+IyVNEsIUrYU3AokZtxS' + 
       'VF98Tsw+SG0GxaTPAMm8ONYfdKIWOg6SCNV3gTSpo+kgpZI+A6Qoq' + 
       'kJBUvh0Wxv7eFFKsZ7IRJc+n/Ica7yaX9RI7aV7S5k081mQXN0SyJ' + 
       'XAXgfJFEnm5BhISJGb2Xqwhe0l8zDPM751m1+jkdpb7rlrbxqlATU' + 
       'FEtMtrk3Onutql6KBIGEiWMvDUoD4sUYZn5/33O04XXiwyLiAMRl/' + 
       'DKS4Urn6KloLR5eisSAF2iNONzaaUSCxFuZWqlEgMTwQlfiuChIAw' + 
       'wQws1czzim6A0is0ZwHSWmCijJPtTO9ag0DySsdbt6Zffbvv6jYZ4' + 
       'AUS+JWULG60RVjXc/oHIuVsiGJvSmej1FxLbt7fazIdP+LufYJkIL' + 
       'lf+e74CFIwdaK7bD4LcA5qxvMg+7ZFQDoId5FORZSvAfFQqIs8V/V' + 
       'jUF5nJhxJp/srEyRAemqLaB/NSZthF4e7QJpjVHILZDWuC1IX1fD1' + 
       'zg1fgH81TAR');

From: Zyt3x

pickpocket := BitmapFromString(195, 15, 'beNrtmFGOgzAMRHO7X' + 
       'qC/e/9jsFWpoqzH44whEVQblA8IjjH1w57m+Sil/Dwfr7E1xz4jjg' + 
       'NLrvK8baWOGQHXR7C7ZSvlfbeeDByiz92MGbfzqSANSK/LbPrqwkk' + 
       'giZ67Ye8p3o95LNWn0Ax+IvicDwcp9okx+IyVNEsIUrYU3AokZtxS' + 
       'VF98Tsw+SG0GxaTPAMm8ONYfdKIWOg6SCNV3gTSpo+kgpZI+A6Qoq' + 
       'kJBUvh0Wxv7eFFKsZ7IRJc+n/Ica7yaX9RI7aV7S5k081mQXN0SyJ' + 
       'XAXgfJFEnm5BhISJGb2Xqwhe0l8zDPM751m1+jkdpb7rlrbxqlATU' + 
       'FEtMtrk3Onutql6KBIGEiWMvDUoD4sUYZn5/33O04XXiwyLiAMRl/' + 
       'DKS4Urn6KloLR5eisSAF2iNONzaaUSCxFuZWqlEgMTwQlfiuChIAw' + 
       'wQws1czzim6A0is0ZwHSWmCijJPtTO9ag0DySsdbt6Zffbvv6jYZ4' + 
       'AUS+JWULG60RVjXc/oHIuVsiGJvSmej1FxLbt7fazIdP+LufYJkIL' + 
       'lf+e74CFIwdaK7bD4LcA5qxvMg+7ZFQDoId5FORZSvAfFQqIs8V/V' + 
       'jUF5nJhxJp/srEyRAemqLaB/NSZthF4e7QJpjVHILZDWuC1IX1fD1' + 
       'zg1fgH81TAR');

Ahh he put the wrong name….Lewis your image name is Pickpocket so your bitmap should be

pickpocket := Whatever… not PickPocketBmp as Zyt3x posted…Copy his bitmap and paste it over yours and give it a try (I smell more errors coming :p)

EDIT: nvm got it thanks, had to change the name as i had a procedure named that aswell.

From: lewis_
cheers that worked, turns out this error think im not declaring it somewhere?

[PHP]Line 15: [Error] (21797:1): Unknown identifier 'pickpocket' in script C:\Users\Lewis\Desktop\scarprerelease\Scripts\Pickpocketvgaurds.scar
[/PHP]

Yes. Line 9

pickpocketbmp : Integer;

to

pickpocket : Integer;

:p

Working! my first scar script thanks alot to everyone that posted!

From: lewis_
Working! my first scar script thanks alot to everyone that posted!

:spongebob:

Hah gratz :p But you have a lot of learning to do if you are going to make a script for Jagex's Runescape…Familiarize yourself with the tutorial island :D

From: FEAR
:spongebob:

Hah gratz :p But you have a lot of learning to do if you are going to make a script for Jagex's Runescape…Familiarize yourself with the tutorial island :D

Thanks will do. Scripts been working for 30 minutes I stopped it to do something else now when I go to play it I get this error

[PHP][Runtime Error] : Exception: Can't allocate the DIB handle in line 36 in script C:\Users\Lewis\Desktop\scarprerelease\Scripts\Pickpocketvgaurds.scar[/PHP]

line 36 being:

[PHP]if(FindBitmap(pickpocketbmp,x,y)) then[/PHP]

From: lewis_
Thanks will do. Scripts been working for 30 minutes I stopped it to do something else now when I go to play it I get this error

[PHP][Runtime Error] : Exception: Can't allocate the DIB handle in line 36 in script C:\Users\Lewis\Desktop\scarprerelease\Scripts\Pickpocketvgaurds.scar[/PHP]

line 36 being:

[PHP]if(FindBitmap(pickpocketbmp,x,y)) then[/PHP]

Thats just annoying SCAR error. Click on client –> Reset specified window –> Restart SCAR –> Drag crosshair again and go…

From: FEAR
Thats just annoying SCAR error.

Can't wait for SIMBA :)

From: Zyt3x
Can't wait for SIMBA :)

+1
SCAR crashes 2/3 times i run it without smart, its nothing to worry about, just re-drag the cross hair over the client.