SRL Archive - RS3 Outdated / Broken Scripts

something simple please make


alpine

2008-12-22 14:08:51

can anyone make me a simple script that will do all this, i give all color's and cord's.
YOU CAN USE MOVEMOUSE. this needs no antiban/random implements
please it wont take to much time.

find color (2175372) click , then find color (16776960) at (x,y,80, 32) click , then click at (x,y,182, 112) , then find color (16777215) at (x,y,408, 278) and click 28 times with 1 second intervals , then click at (x,y,424, 73) then click at (x,y,492, 38) then click (x,y,387, 75) click 28 times with 1 second intervals. and make it repeat.

jakeyboy29

2008-12-22 14:16:15

can i ask why?

alpine

2008-12-22 14:20:17

From: jakeyboy29
can i ask why?


you can.

for a game :D

TViYH

2008-12-22 14:22:02

…Why can't you do it? You said all of the functions that you would use.

alpine

2008-12-22 14:26:15

From: TViYH
…Why can't you do it? You said all of the functions that you would use.


incorrect. i dont know how to use the functions or procedures needed

TViYH

2008-12-22 14:28:11

Do you want a procedure or a script?

alpine

2008-12-22 14:30:54

script

alpine

2008-12-22 14:40:23

will someone make for meeee :(

TViYH

2008-12-22 14:59:07

Don't double post.

Read a basic tutorial and make it yourself.

alpine

2008-12-22 15:01:26

From: TViYH
Don't double post.

Read a basic tutorial and make it yourself.


i have read all the beginner tutorials. i've tried to make it , this is my last resort…

dont understand why nonoe can do it. its simple. and i cant understand how to do it myself.

Dervish

2008-12-22 15:06:19

I'll do it. I'll edit this post with the script just cus I'm happy 2day :p

alpine

2008-12-22 15:10:12

From: Dr D. Dervish
I'll do it. I'll edit this post with the script just cus I'm happy 2day :p


oo thank you :D

TViYH

2008-12-22 15:16:11

If it's that simple, then you should be able to do it.

The SCAR manual contains all of the information. You need FindColor, repeat, and GetColor.

Dervish

2008-12-22 15:27:46

Okay, now since you didn't define the search boxes for the colors, you'll have to insert them in the const.
Also, you didn't tell me how many times it should repeat all the clicking and stuff, so I put it to infinite.

Here you have it…
program New;
var
x,y,I: Integer;

const
CBX1 = 0;//Define where the upper left corner of the search box
CBY1 = 0;//for the color should be.
CBX2 = 700;//Define where the lower right corner of the search box
CBY2 = 500;//for the color should be.

Procedure ClickCustom(coordx,coordy: Integer);
begin
ClickMouseSpline(coordx,coordy,0,0,true);
Wait(50);
end;

Procedure ClickStuff;
begin
If FindColor(x,y,2175372,CBX1,CBY1,CBX2,CBY2) then
begin
ClickCustom(x,y);
end;
If FindColor(x,y,16776960,CBX1,CBY1,CBX2,CBY2) then
begin
ClickCustom(x,y);
end;
ClickCustom(182,112);
If FindColor(x,y,16777215,CBX1,CBY1,CBX2,CBY2) then
begin
repeat
ClickCustom(x,y);
Wait(1000);
I := I+1;
until(I = 28);
I := 0;
end;
ClickCustom(424,73);
repeat
ClickCustom(387,75);
Wait(1000);
I:=I+1;
until(I=28);
I := 0;
end;

begin
repeat
ClickStuff;
until(false);
end.

That should work, if it doesn't , explain more in detail what it should do XD.

EDIT : also, if you don't know how to fill in the consts, I'm sorry but then I find you to be a real leecher with all your longevity and all… Sorry…

alpine

2008-12-22 15:29:51

From: Dr D. Dervish
Okay, now since you didn't define the search boxes for the colors, you'll have to insert them in the const.
Also, you didn't tell me how many times it should repeat all the clicking and stuff, so I put it to infinite.

Here you have it…
program New;
var
x,y,I: Integer;

const
CBX1 = 0;//Define where the upper left corner of the search box
CBY1 = 0;//for the color should be.
CBX2 = 700;//Define where the lower right corner of the search box
CBY2 = 500;//for the color should be.

Procedure ClickCustom(coordx,coordy: Integer);
begin
ClickMouseSpline(coordx,coordy,0,0,true);
Wait(50);
end;

Procedure ClickStuff;
begin
If FindColor(x,y,2175372,CBX1,CBY1,CBX2,CBY2) then
begin
ClickCustom(x,y);
end;
If FindColor(x,y,16776960,CBX1,CBY1,CBX2,CBY2) then
begin
ClickCustom(x,y);
end;
ClickCustom(182,112);
If FindColor(x,y,16777215,CBX1,CBY1,CBX2,CBY2) then
begin
repeat
ClickCustom(x,y);
Wait(1000);
I := I+1;
until(I = 28);
I := 0;
end;
ClickCustom(424,73);
repeat
ClickCustom(387,75);
Wait(1000);
I:=I+1;
until(I=28);
I := 0;
end;

begin
repeat
ClickStuff;
until(false);
end.

That should work, if it doesn't , explain more in detail what it should do XD.

EDIT : also, if you don't know how to fill in the consts, I'm sorry but then I find you to be a real leecher with all your longevity and all… Sorry…

thanks alot :D


*edit*
well it didn't turn out :D