How to script for a RSPS - Beginner level

rj · 03-03-2013, 03:05 PM

Are you searching in the right area?

**Kozs** · 03-04-2013, 03:01 AM

Originally Posted by rjj95

Are you searching in the right area?

What do you mean?

rj · 03-04-2013, 03:03 AM

Are the course correct?

**Kozs** · 03-04-2013, 03:17 AM

Originally Posted by rjj95

Are the course correct?

I believe so yes, but I didn't get a square or anything like you did....

Could you refer to this topic please!

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

rj · 03-18-2013, 08:41 PM

Added text/include stuff

**g ked** · 07-14-2013, 12:26 PM

Hmmm, my bitmaps don't seem to be being found... would you mind helping here?
var
Drop:Integer;
Procedure DropLog;
var
X,Y:Integer;
begin
if FindColorTolerance(X, Y, 7370637, 555, 214, 727, 459, 5) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Right)
wait(450);
if FindBitmapToleranceIn(Drop, X, Y, 555, 214, 727, 459, 145) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
end;
end;
end;

Begin
MouseSpeed := 15;
Drop := BitmapFromString(134, 8, 'meJztlc0NwyAMhRkk9x66REfshV' +
'0yQdZqo1iyXP88W0ClHoo4OA48Yz4DfT/6frTWttu9X/ZpLO+P54u' +
'6+qS4Y2pjc9fqWIV5zW6IzGcKiKj+J1InQrY6Na4T+O06rWGR RSij' +
'rKO5oCSAM40bKaSLAZryMyXSrib/nk1ufuSPaolGSg/b7FezIj8Y4' +
'0aXbfu8POtx+ZdVtrXnriHKpUKEA6WnCd976el2b7MZu16foE IA/U' +
'peaRUpgkUiHOt7RIZ3xkXpElFns7hLKfFiXvX1/xqRGVteHaCvPYM' +
'LiXC1yEfZfTVkOmCk9deJuKUO6h/PjShgHaAZxVUjcaxIk/wyxBtU' +
'a9Z+');
Droplog
FreeBitmap(Drop);
SetupSRL;
end.

rj · 07-14-2013, 02:25 PM

Originally Posted by g ked

Hmmm, my bitmaps don't seem to be being found... would you mind helping here?
var
Drop:Integer;
Procedure DropLog;
var
X,Y:Integer;
begin
if FindColorTolerance(X, Y, 7370637, 555, 214, 727, 459, 5) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Right)
wait(450);
if FindBitmapToleranceIn(Drop, X, Y, 555, 214, 727, 459, 145) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
end;
end;
end;

Begin
MouseSpeed := 15;
Drop := BitmapFromString(134, 8, 'meJztlc0NwyAMhRkk9x66REfshV' +
'0yQdZqo1iyXP88W0ClHoo4OA48Yz4DfT/6frTWttu9X/ZpLO+P54u' +
'6+qS4Y2pjc9fqWIV5zW6IzGcKiKj+J1InQrY6Na4T+O06rWGR RSij' +
'rKO5oCSAM40bKaSLAZryMyXSrib/nk1ufuSPaolGSg/b7FezIj8Y4' +
'0aXbfu8POtx+ZdVtrXnriHKpUKEA6WnCd976el2b7MZu16foE IA/U' +
'peaRUpgkUiHOt7RIZ3xkXpElFns7hLKfFiXvX1/xqRGVteHaCvPYM' +
'LiXC1yEfZfTVkOmCk9deJuKUO6h/PjShgHaAZxVUjcaxIk/wyxBtU' +
'a9Z+');
Droplog
FreeBitmap(Drop);
SetupSRL;
end.

Make sure the bitmap is 24-bit when you saved it and make sure its searching in the right area

**g ked** · 07-14-2013, 10:00 PM

Wow, come to find out, i was merely a few pixel out of the bitmap's range. Almost quit but finally got it!
Now my problem is entering text when im "buying x" from a shop. Mind helping me on that one?

rj · 07-14-2013, 10:57 PM

Originally Posted by g ked

Wow, come to find out, i was merely a few pixel out of the bitmap's range. Almost quit but finally got it!
Now my problem is entering text when im "buying x" from a shop. Mind helping me on that one?

SendKeys('25');

**chief herb** · 07-25-2013, 04:36 AM

Originally Posted by Officer Barbrady

Are you searching in the right area?

yo heres what i have so far, basically the script will turn uncut dragstones into ammys i just nned some help with it stopping at 27.

Program DTM;
{$i srl/srl.simba}
var
Dragon:Integer;
Chisel:Integer;
c:Integer;
Procedure ClickStone;
var
X,Y:Integer;
begin
if FindDTM(Dragon, x, y, 554, 230, 732, 479) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Left);
wait(randomrange(150, 250));
end;

end;

Procedure ClickChisel;
var
X,Y:Integer;
begin
if FindDTM(Chisel, x, y, 554, 230, 732, 479) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Left);
wait(randomrange(150, 250));
end;
end;

Begin
SetUpSRL;
Dragon := DTMFromString('mbQAAAHicY2VgYFBnYWAwB2ItIDYBYkMg3s nEwHACincB8SEg9mTOZTBgcmfwYM5iMGLyYXBmTmFAB6xAzIgF gwEANUAH8Q==');
Chisel := DTMFromString('mbQAAAHicY2VgYIhnYWBIAuJYIA4D4mAg3s LEwLAViHcD8RkgPgXEepqaDIba2gyqiooMvtrMDJ4azAzYACMW DAYAXd0IBw==');
repeat
Clickstone;
repeat
begin
c := c + 1;
until (c = 27);//will click 27 times
end;
ClickChisel;
until
FreeDtm(Dragon);
FreeDtm(Chisel);
end.

**Le_don** · 07-26-2013, 02:29 AM

Originally Posted by chief herb

yo heres what i have so far, basically the script will turn uncut dragstones into ammys i just nned some help with it stopping at 27.

Program DTM;
{$i srl/srl.simba}
var
Dragon:Integer;
Chisel:Integer;
c:Integer;
Procedure ClickStone;
var
X,Y:Integer;
begin
if FindDTM(Dragon, x, y, 554, 230, 732, 479) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Left);
wait(randomrange(150, 250));
end;

end;

Procedure ClickChisel;
var
X,Y:Integer;
begin
if FindDTM(Chisel, x, y, 554, 230, 732, 479) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Left);
wait(randomrange(150, 250));
end;
end;

Begin
SetUpSRL;
Dragon := DTMFromString('mbQAAAHicY2VgYFBnYWAwB2ItIDYBYkMg3s nEwHACincB8SEg9mTOZTBgcmfwYM5iMGLyYXBmTmFAB6xAzIgF gwEANUAH8Q==');
Chisel := DTMFromString('mbQAAAHicY2VgYIhnYWBIAuJYIA4D4mAg3s LEwLAViHcD8RkgPgXEepqaDIba2gyqiooMvtrMDJ4azAzYACMW DAYAXd0IBw==');
repeat
Clickstone;
repeat
begin
c := c + 1;
until (c = 27);//will click 27 times
end;
ClickChisel;
until
FreeDtm(Dragon);
FreeDtm(Chisel);
end.

I would have read your code but it wasn't in tags - please post in those as it makes your programs more readable.

**chief herb** · 07-26-2013, 05:29 AM

yo here

Simba Code:

Program DTM;
{$i srl/srl.simba}
var
Dragon:Integer;
Chisel:Integer;
c:Integer;
Procedure ClickStone;
var
X,Y:Integer;
begin
if FindDTM(Dragon, x, y, 554, 230, 732, 479) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Left);
wait(randomrange(150, 250));
end;

end;

Procedure ClickChisel;
var
X,Y:Integer;
begin
if FindDTM(Chisel, x, y, 554, 230, 732, 479) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Left);
wait(randomrange(150, 250));
end;
end;


Begin
SetUpSRL;
Dragon := DTMFromString('mbQAAAHicY2VgYFBnYWAwB2ItIDYBYkMg3s nEwHACincB8SEg9mTOZTBgcmfwYM5iMGLyYXBmTmFAB6xAzIgF gwEANUAH8Q==');
Chisel := DTMFromString('mbQAAAHicY2VgYIhnYWBIAuJYIA4D4mAg3s LEwLAViHcD8RkgPgXEepqaDIba2gyqiooMvtrMDJ4azAzYACMW DAYAXd0IBw==');
repeat
Clickstone;
repeat
begin
c := c + 1;
until (c = 27);//will click 27 times
end;
ClickChisel;
until
FreeDtm(Dragon);
FreeDtm(Chisel);
end.

**chief herb** · 07-26-2013, 05:30 AM

Originally Posted by Le_don

I would have read your code but it wasn't in tags - please post in those as it makes your programs more readable.

i did it check it out plzz

rj · 07-26-2013, 02:34 PM

@chief herb I would advise you to do a for loop:

for i := 0 to 26 do

// stuff here

So that applied in your main loop would be:

Simba Code:

repeat
  for i := 0 to 26 do // this will repeat the next line 27 times
    Clickstone;
  ClickChisel;
until (false);
FreeDTM(Dragon);
FreeDTM(Chisel);
end.

If you want to see what count it was on, then you would have to use begin and end after the loop because it is doing more then 1 line like so:

Simba Code:

repeat
  for i := 0 to 26 do // this will repeat the things inside of begin and end 27 times
  begin
    Writeln('Count ' + ToStr(i));
    Clickstone;
  end;
  ClickChisel;
until (false);
FreeDTM(Dragon);
FreeDTM(Chisel);
end.

**azzamate** · 07-29-2013, 08:16 AM

What do I add to my script after I have implemented your function, all I have is your function substituted with my font file name. What do i do now, I'm trying to use the custom font for uptext to find a magic tree then click it.

**chief herb** · 08-01-2013, 12:45 AM

@Officer Barbrady

ive never used them before and my bad

please hurry with tpa rewrite yo

<3

rj · 08-01-2013, 12:47 AM

@chief herb Use mention tags please instead of quoting a massive block lol

**Leekeleek** · 08-04-2013, 04:21 AM

I'm trying to code a stall stealer on a server called ultimatescape. Problem is, no matter how hard I try to get the coordinates right..
I can't get it to click. Will you help me?

**Itankbots** · 08-04-2013, 06:23 AM

Originally Posted by Leekeleek

I'm trying to code a stall stealer on a server called ultimatescape. Problem is, no matter how hard I try to get the coordinates right..
I can't get it to click. Will you help me?

If you would post your script or atleast some of the code . we will be able to help, but we can't help unless you show us the problem really :P

Does it just need to Click one spot? You using mousebox? or Colour or TPA's? We need to know stuff like that. Post some code and i can try to help

**Leekeleek** · 08-04-2013, 05:55 PM

I'm using colour, I want it to click a stall. I don't think I'm putting in the coordinates properly. I get the colour after the X and Y, and then I put the two coordinates underneath,
then I go to the spot right next to it and put the other 2 X Y coordinates and nothing happens once I execute. I have to rewrite it cause I deleted it, I got mad cause it didn't work but it was only the script skeleton in the tutorial changed a tiny bit :P

rj · 08-04-2013, 05:57 PM

Originally Posted by Leekeleek

I'm using colour, I want it to click a stall. I don't think I'm putting in the coordinates properly. I get the colour after the X and Y, and then I put the two coordinates underneath,
then I go to the spot right next to it and put the other 2 X Y coordinates and nothing happens once I execute. I have to rewrite it cause I deleted it, I got mad cause it didn't work but it was only the script skeleton in the tutorial changed a tiny bit :P

FindColorTolerance(x, y, color, X1, Y1, X2, Y2, TOL)

X1 and Y1 are the x and y coords of the top left corner
X2 and Y2 are the x and y coords of the bottom right corner

can you also post some code that your using?

**Leekeleek** · 08-04-2013, 06:25 PM

yeah one second i'll edit this hold up i'll remake it. I'm going to try to use ACA

**Leekeleek** · 08-04-2013, 06:32 PM

Code:

Program StealStall;
{$i srl/srl.simba}
Procedure ClickStall;
var
  X,Y:Integer;
begin
if FindColorTolerance(X, Y, 9464458, 169, 298, 192, 310, 5) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
end;
end;
Begin
MouseSpeed := 15;
SetupSRL;
end.

**Leekeleek** · 08-04-2013, 08:42 PM

K forget about above code.
How come this isn't looping properly what I have written now.
I can't get the shit to stop. I coded this absolute garbage up without the tutorial because I couldn't understand how to properly put the coordinates in..
I tell it to only click 28 times, and it just goes on forever. Is there a easier way of looping it until inventory is full?

Code:

program LeekSpice;
{$define sr15}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}

var
i: Integer;
c: Integer;
Procedure StealSpice;
var
x, y: Integer;
begin
FindColorTolerance(x, y, 1095691 , MSX1, MSY1, MSX2, MSY2, 5);
Mouse(x, y, 0, 0, True);
end;

Begin
SetUpSRL;
repeat
for i := 0 to 27 do
StealSpice;
until (false);
end.

rj · 08-04-2013, 09:02 PM

Originally Posted by Leekeleek

K forget about above code.
How come this isn't looping properly what I have written now.
I can't get the shit to stop. I coded this absolute garbage up without the tutorial because I couldn't understand how to properly put the coordinates in..
I tell it to only click 28 times, and it just goes on forever. Is there a easier way of looping it until inventory is full?

Code:

program LeekSpice;
{$define sr15}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}

var
i: Integer;
c: Integer;
Procedure StealSpice;
var
x, y: Integer;
begin
FindColorTolerance(x, y, 1095691 , MSX1, MSY1, MSX2, MSY2, 5);
Mouse(x, y, 0, 0, True);
end;

Begin
SetUpSRL;
repeat
for i := 0 to 27 do
StealSpice;
until (false);
end.

It's doing it infinite times because you have

repeat
for i := 0 to 27 do
StealSpice;
until (false);
end.

repeat until false

that's a infinite loop

Thread: How to script for a RSPS - Beginner level

Thread Tools

Thread Information

Users Browsing this Thread

Posting Permissions