All about colors

[Tickyy]

http://neoformix.com/2008/ColorNames3.png
All About Colors
By Tickyy




What is Color Finding?

Color finding in simba is used mainly for finding the object/item/thing on the selected client, in this case for example RuneScape. There are many different functions that use color finding, but this tutorial will only go over the basics.


Color Picking

The first things is, color picking, without a color we won't need a function or anything else, so first we need to pick the color for the item we are looking for.


http://img576.imageshack.us/img576/6493/colorpick.png


That's the color picking tool that i am talking about, after clicking on it , you'll notice some numbers will change just after you move your mouse, Exactly like this:


http://img716.imageshack.us/img716/2185/36662070.png


Those changing numbers are the position of the selected client and the color, so basically this isn't just a color picker, this is also a great tool to find out the coordinates of the position! But let's get to the point, so if that position is the color you are looking for... click on it, and you'll see something on the debug box!


http://img850.imageshack.us/img850/8076/asdqu.png


So basically, just as you can see it says "Picked colour: 16711680" so... that's the color and "at (814, 447)" is the position! That's it! You just found the color you wanted, but if you're going to use it for scripting i am going further for basic color finding



Variable Index


x - the x coordinate of the color

y - the y coordinate of the color
color - the color you are searching for

xs, ys - the x and y coordinates of the point on the RS screen to start searching for the color (the top left corner)

xe, ye - the x and y coordinates of the point on the RS screen to stop searching for the color (the bottom right corner)

tol - the tolerance of the color to search for. The higher the tolerance, the wider the range of colors it will search for. This is only used in the FindColor functions that use the tol variable.



Color finding.



Well lets start with...

FindColor(x, y, color, xs, ys, xe, ye)

One of the simplest color finding functions out there. It searches for one color with no tolerance and records the color position at x and y. Not recommended using for RuneScape. Since they are trying to stop color boting so they change colors from time to time, even while logged in!

FindColorSpiral(x, y, color, xs, ys, xe, ye)

This works much like FindColor, except instead of searching from left to right it searches in a spiral. Differences: a little bit faster, but you barely can see it, so no big deal.

FindColorTolerance(x, y, color, xs, ys, xe, ye, tol)

This is one of the best color finding functions, simply because it has tolerance. This way, you will most often find a color you are searching for. For those who have never used tolerance, should try to increase slowly the number of the tolerance if it can't find the object, starting with 4-5 is good, if it still fails at finding try to increase it! That will change the range of the color

FindColorSpiralTolerance(x, y, color, xs, ys, xe, ye, tol)

The same in Spiral search.

Now an example using them! But first there are few srl coordinates that i'm gonna show you



Minimap = MMX1, MMY1, MMX2, MMY2.

MainScreen = MSX1, MSY1, MSX2, MSY2.

Inventory = MIX1, MIY1, MIX2, MIY2.

if(FindColorSpiralTolerance(x, y, 2324621, MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x, y, 5, 5, true); //If found will Left-Click on the x, y coordinates with a randomness between 5 pixel
end


End Note - If sometimes the script just starts to lag for some reason just add a wait in the repeating loop.

[Sandstorm]

Not bad, just took a quick glance. Why not add stuff like clGreen? I'd like to learn about them.

~Sandstorm

[Tickyy]

Not bad, just took a quick glance. Why not add stuff like clGreen? I'd like to learn about them.

~Sandstorm

this is a beginner category... everything has to be simple, so i tried to make it simple.

[NCDS]

everything haves to be simple,

has*

Nice little TUT ;)

[Tickyy]

has*

Nice little TUT ;)

lol my grammar sux.. :p oh glad to see that somebody likes it :p

[n3ss3s]

clGreen etc have got nothing to do with color finding to be honest.

Also, there is nothing to be taught about them, they are just consts, premade colors for you...

[blood1000]

hey how come this doesnt work?


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

var
x, y, rx, ry: Integer;

procedure start;
begin
if (FindColorTolerance(x, y,6002571,MMX1, MMY1, MMX2, MMY2,5)) then
begin


Mouse(x,y,5,5,true);

end;

end;

begin
setupSRL;
start;
end.


I mean it never find the colour, and there isnt anything wrong with the colour anyone know?

[Tickyy]

hey how come this doesnt work?

try it again just with a bigger tolerance then that one... try 10-15

BTW I've fixed your standards

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

var
x, y, rx, ry: Integer;

procedure start;
begin
if (FindColorTolerance(x, y, 6002571, MMX1, MMY1, MMX2, MMY2, 5)) then
begin
Mouse(x,y,5,5,true);
end;
end;

begin
setupSRL;
start;
end.

[blood1000]

Ah thank you, one more question, i make it mmouse to the colour but i want it to make sure it says "attack" in the top left hand corner whats the function for that?

[ian.]

IsUpText('tack');
when you use IsUpText(UpText:string); make sure you have it not check for capitals if you don't have to, and it has to have ' ' around the word (unless you use like.. IntToStr(i:Int64);

[blood1000]

ah thankyou, i used to script like 2 years ago but i forgot a lot of it lol also a lot has changed

[ian.]

yeah no problem :p

[Smarter Child]

Nice, very neat/small! lol tut.

[jeffrey3301]

Thanks for the tutorial, but how come sometimes the script still mixes stuff up? I tried to kill brown chickens but it kept clicking the bag...

[Lee Lok Hin]

Jeffrey, you need to understand.

Different scripts have different qualities. Good scripts have failsafes, isuptext checks. Bad scripts click the bag.

[Phran6]

LOL :p >>owned<<
thanx i learned sumthing from it, it smal and simple. :)

[Tickyy]

wow, i did not expect so many posts on my first tutorial :p:D...

Glad to see that you guys like it :D

[Phran6]

does it exist a fonction that automatic click color ?
and not only find color then .. click color ??

[Shuttleu]

no but you can make your own procedure then use that

~shut

[Underwear]

Nice Tutorial, Keep it up..

[pwnzorc]

nice color tut solved one of my problems ^^ ty

[Scettidunn]

Wow Ticky awesome tut man made alot of sence on the colors for me hopefully now i can get my script up and running

[mr grumble]

Dumbass question! but how do you get the cords if you want to narrow the search area? do you use the "picked at cords" from colour picker?

[hackncrack1]

u need to put activateclient in there to lik so
setupsrl;
Activateclient;

[zealkctro]

hey im a newbie in srl and I cannot understand what xs ys xe ye stands for..
can someone explain it to me? Any help would be grateful :)

[Phran6]

its the coord of the box you want search so it dont search in the hole screen.

[mounty1]

thanks for the tutorial.
gives some good info and is easy to understand.
like the MI MM and MS stuff.
i didn't know you could do that so used co ords in a script.
that will make scripting alot easier in future.
thanks

[Tickyy]

thanks for the tutorial.
gives some good info and is easy to understand.
like the MI MM and MS stuff.
i didn't know you could do that so used co ords in a script.
that will make scripting alot easier in future.
thanks

Heh, No problem, i hope you enjoyed reading it. :)

[Tickyy]

bump: I made a small update mainly because we use simba only now and changed some things.

[eXoTiK]

Great small and neat guide. Definitely added this to my knowledge base of pascal. Seems to be a great help in determining and avoiding specific colors for my current project.

['Toxin]

hey im a newbie in srl and I cannot understand what xs ys xe ye stands for..
can someone explain it to me? Any help would be grateful :)

Those are variables of the functions listed. They are the, I guess you can call them 'narrow downers' of the x and y axis. Essentially used for searching for a color within a given area.

[Gaston7eze]

I got this error:
program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}

var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin;
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
iF(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
begin
Mouse(x,y,5,5,true);
end;
end;
Begin;
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
End;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start
end.

[Error] (53:6): period ('.') expected at line 52
Compiling failed.

[RISK]

@ Gaston7eze:
begin;
At the bottom of your script should be:
begin

[Shuttleu]

sorted out your standards
program New;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}

var
x, y, rx, ry: Integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;

procedure ChopTree;
var
x,y: Integer;
begin
if FindObj(x,y,'hop',1785912, 35)then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
repeat
Wait(1200+random(250));
until not IsUpText('Tree')or InvFull
end;

procedure AntiBan;
begin;
if(not LoggedIn)then
Exit;
case Random(8)of
0: begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
end;
1: Wait(100);
2 : PickUpMouse;
end
if(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
begin
Mouse(x,y,5,5,true);
end;
end;

begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
end;
end; // One too many end;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start
end.
and as you can easily see, there is one too many "end;"'s

~shut

EDIT: you also dont seem to have a procedure name for that procedure

EDIT: fixed
program New;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}

var
x, y: Integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;

procedure ChopTree;
var
x,y: Integer;
begin
if FindObj(x,y,'hop',1785912, 35)then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
repeat
Wait(1200+random(250));
until not IsUpText('Tree')or InvFull
end;

procedure AntiBan;
begin;
if(not LoggedIn)then
Exit;
case Random(8)of
0: begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
end;
1: Wait(100);
2 : PickUpMouse;
end
if(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
begin
Mouse(x,y,5,5,true);
end;
end;

procedure Start;
begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
end;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start;
end.

look at a diff generator to see what i did

[Gaston7eze]

@ Gaston7eze:
begin;
At the bottom of your script should be:
begin

Thanks!
Gonna check it out.

[Gaston7eze]

Im ALWAYS getting an error for some reason

program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Begin
If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;

Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
Begin;
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
End;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.

[Error] (34:1): Identifier expected at line 33
Compiling failed.

[Shuttleu]

look at my post up there ^^^^^^^^

~shut

[Gaston7eze]

look at my post up there ^^^^^^^^

~shut

Thanks,in what procedure i was making the mistake?Thanks.

[Shuttleu]

the bottom one had one too many ends and diddnt have a procedure header

~shut

[Gaston7eze]

the bottom one had one too many ends and diddnt have a procedure header

~shut

Thank you for answering that fast.Im gonna check it and tell you what happened.

[Shuttleu]

Thank you for answering that fast.Im gonna check it and tell you what happened.

ok, if you have any more problems just post back here

but im going out in a few mins so i might not be here when you post again

~shut

[Gaston7eze]

Well,i continue getting error on:
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
I give you the script in .SIMBA so you can look at it better.

[Shuttleu]

Well unfortunately I'm in town ATM on my phone, so if you could post the error then I can help

~shut

[RISK]

You had one one too many ends.

program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End

If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
End;

Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.

[Gaston7eze]

program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
Begin
If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
End;
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.



This is the error:

[Error] (48:1): Identifier expected at line 47
Compiling failed.

[RISK]

Here:
program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End;

If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
end;

Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.

This should really be in a separate help thread.

[Gaston7eze]

Here:
program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End;

If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
end;

Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;

begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.

This should really be in a separate help thread.

Yeah..That´s true.

[Gaston7eze]

Yeah..That´s true.

Edit:I know im so noob at this but im trying to understand,i couldnt find the mistake,please,and sorry for my noobish head,tell where is it?

[RISK]

You needed another end.

[Gaston7eze]

The mouse just moves to nowhere doing nothing,and then,it stops.

[Shuttleu]

Look up several posts, I posted a Working version with the correct standards

~shut

[Gaston7eze]

I sent Shutt a private Message,thanks guys for the help brinded.!

[BaYBeeZ]

Thank you so much for explaining what the variables and each of the "FindColor" means, I really needed that!

[SmellyPenguin]

Thanks so much for this tutorial! I loved your explanation, except I don't get what you mean by it searches for colors left to right and spirally.

[Abu]

Left to right -It searches for colors from the left of the screen to right of the screen

Spirally - From the center in a spiral motion (I think)


Also, please don't post on threads which are old. :)

[SmellyPenguin]

Left to right -It searches for colors from the left of the screen to right of the screen

Spirally - From the center in a spiral motion (I think)


Also, please don't post on threads which are old. :)

Thank you and it was on the first page of this board a tutorial thread where someone posted the link to this thread, but I did not realize it was this old. Will keep that in mind though, and thanks for all the help!

[tieyob]

thanks! making my first moneymaking script, your a life saver!

[Master BAW]

thanks! Good to understand that there are different ways to pick colors and such.:)

[night fox6928]

i see no popups...no pics, no links, nothing

[Tickyy]

Left to right -It searches for colors from the left of the screen to right of the screen

Spirally - From the center in a spiral motion (I think)


Also, please don't post on threads which are old. :)
Tutorials usually don't just go for "old" or "outdated", the concept always will be the same, simba is and probably always will be a color finding program. Only if something changes then it is outdated. I have to be honest this is the first tutorial i have made in villavu(back then it used to be SRL :p), so it might be a little bit noob-ish :p.


thanks! making my first moneymaking script, your a life saver!
Thanks, enjoy!


thanks! Good to understand that there are different ways to pick colors and such.:)

:thumbsup:


i see no popups...no pics, no links, nothing

wat