PDA

View Full Version : [ACA]AutoColorAid v2 - by Nielsie95 and Sumilion



Sumilion
03-04-2008, 02:17 PM
Auto Color Aid v2

by Nielsie95 and Sumilion

Written in Delphi

UPDATE
This is an outdated program. Please refer to the ACA extension (https://villavu.com/forum/showthread.php?t=70704) or the remake (https://villavu.com/forum/showthread.php?t=98368) by CynicRus.

History
AutoColorAid v1 was written in scar, mainly by Nielsie95 and it was released on 07-02-2007. At that time it only had one function, enter a variable number of colors from an object (e.g. a symbol on the minimap) and it would give you a function that would automatically get the exact color from RS. While everything was working fine as it should, there were numerous things that could be improved. Slowly ACA v1 expanded to what some of you might know today, a tool with multiple functionalities, written in scar with a form. One of the most important parts that could be improved, was that it was written in scar. While normal script for RS pretty much demand Scar, this tool did not and running it in scar only made it slow and inconvenient. Thus a goal was set, write it in Delphi, better and nicer than ever!

ACA today
Niels and I teamed up to make what would soon be named ACA v2, in Delphi. We had all the time we needed since we both had vacation at the time we teamed up. We wanted to have first of all have all the features from ACA v1 and maybe even more. At the time of release, our vacations are over, meaning less time to work on it. Luckily it is already finished.

Features

Color value viewer (RGB, HSL, XYZ values)
Color range table (Minimum R, Maximum R, Minimum G, Maximum G, etc.)
Tolerance calculator - will be explained below
Optionable ColorToleranceSpeed - will be explained below
Client window - a image copied from your screen, allowing you to pick colors from it
Color Marking - will be explained below
Custom search area for Marking Colors
Bitmap saving - save your image Bitmap loading - load a bitmap in ACA
AutoColor function creator - will be explained below
FindObject function creator - will be explained below
Option for RGB / HSL / XYZ range check in both functions
Save colors in an .ACA file (and load them aswell) Client finder (and a RS Finder) - will set the image to the client


ColorToleranceSpeed
There are several methods to determine if 2 colors are similar. Currently there are 3.

0: RGB - very similar to CTS 1, but the method of checking if the RGB values are similar is different. Faster, but slightly less accurate
1: RGB -Accurate, gets the Red, Green and Blue values of the 2 colors and compares these to eachother
2: HSL, this method uses Hue, Saturation and Luminence values to determine if 2 colors are similar


Tolerance Calculator
Using Scar's method of determining if 2 colors a similar, ACA can calculate the tolerance needed to validate with all of the colors selected. It displays this amount in several places in ACA.

Marking of Colors
When you use FindColors in scar, or any other way of finding colors on the client, it is hard to see what scar found. There are certain methods around so that it will save the result as a bitmap, or that it will show the results in Scar's bitmap image, ACA features something similar. It has the ability to color all found points on the image in ACA. This way ACA visualises what it finds, and seeing as ACA's method of finding it is the same as Scar's, it also shows what scar sees.

Example :

http://img508.imageshack.us/img508/1218/acatz2.png

function AutoColor: Integer;
One of the best features in ACA, which was the only feature of ACA v1 first release, is the ability to print out a ready to use AutoColor function for the colors that you filled in. Basically you fill in a couple of colors in ACA, select with what methods you want to validate the color, and then ACA produces the function for you.

Methods of validating

RGB-Check : It will test all found results (using the selected ColorToleranceSpeed) to it's Red, Green and Blue values. The colors found have to be within the range of the Red Green and Blue values previously filled in by the user.
HSL-Check : Same as RGB-Check, only it checks for Hue, Saturation and Luminence values now.
XYZ-Check : Same as RGB-Check, but checks for XYZ values (XYZ values are another way of defining colors)
Example : Let's say you picked 2 colors and filled them in ACA, what kind of colors is not important. You check RGB-Check, so it will make sure that it searches for colors within the RGB Range of the 2 colors.
Red[Color1] = 10
Red[Color2] = 40
Green[Color1] = 100
Green[Color2] = 140
Blue[Color1] = 80
Blue[Color2] = 30
It will then, in the AutoColor function, also make sure that the found colors have a Red value between 10 and 40, a Green value between 100-140 and a Blue value between 30-80


function FindObject(var fx, fy: Integer);
The way of creating this function is very similar to creating AutoColor. There are a couple of differences. There is for starters one more Check Method. This is the Array Length. FindObject(); will search for an object on the MainScreen of RuneScape, it will put these values in a T2DPointArray. In human terms, it will find all possibly right object and store them location in a variable. This variable contains every point of the object, every set of points is stored in what you can imagine as a box. Every object that it finds gets it's own box, Array Length check will make sure that the box is not too small, so that it won't find a couple of pixels of relatively the same color on your armor for example. There is also an Edit box for the Up Text of your object, seems obvious what that does, and there is an Edit box for the max distance. This is the maximum distance that 2 points can have before Scar creates a new 'box' for the object. In the end Scar moves it's mouse through each box to see if the uptext is right.

Both functions...
are printed as scripts really. If you directly copy the content in Scar it can run it immediately. If you want to use the function in your script then copy the part starting from 'function AutoColor:Integer; / FindObject(var fx, fy: Integer):Boolean;' until the last 'end;' (notice the ';' there..)

Last part ...
In the end you will just have to try it out a little to get used to it and test it's capabilities. If there are any bugs, don't hesitate to post them here.

nielsie95
03-04-2008, 02:20 PM
And there it is! Have fun with it, boys 'nd girls :)

*gives Sumilion the thumbs up*

PriSoner
03-04-2008, 04:00 PM
Looks good and looks like exactly what I was after. If only i'd have found it earlier.

Does exactly as it should, created the function i needed in no time.. brilliant. :D
Thank You Very Much!

ShowerThoughts
03-04-2008, 04:02 PM
Nice, now im going to read it xD

Edit:
very nice! cool looks!

ps. could i ask some things about delphi on msn?

Dumpin
03-04-2008, 04:43 PM
NICE!!!!!! :D thanks this is what i need :)

JuKKa
03-04-2008, 05:02 PM
bug bug bug!

for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Take')) then
begin;
Break;
Result := True;
end;
end;

shouldnt break be AFTER the result? oh and thats the findobj thing...

another thing

add to the autocolor in the for to do loop

If(Not rs_OnMinimap(arP[i].X, arP[i].Y))Then Continue;

please ;) when i tried it kept getting the compass color (close to it) when i wanted a ladder color..


and add a option to search outwards (spiral)

Negaal
03-04-2008, 06:24 PM
^- Told you nielsie. This thingy is wonderful though. Mastaraymond colors writelner is pwned now. xD

Just started to write a tutorial few hours ago, but you guys released it *so angry that is going to blow*

:p

Naum
03-04-2008, 06:28 PM
Cool sum.
I got to test it before of course ...:p

mastaraymond
03-04-2008, 06:59 PM
^- Told you nielsie. This thingy is wonderful though. Mastaraymond colors writelner is pwned now. xD

Just started to write a tutorial few hours ago, but you guys released it *so angry that is going to blow*

:p

Hell no :p. This one is based on SCAR Colors functions, while I mostly use my own color functions, thats why I created my writelner.
:p

Sumilion
03-04-2008, 07:36 PM
bug bug bug!

for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Take')) then
begin;
Break;
Result := True;
end;
end;

shouldnt break be AFTER the result? oh and thats the findobj thing...

another thing

add to the autocolor in the for to do loop

If(Not rs_OnMinimap(arP[i].X, arP[i].Y))Then Continue;

please ;) when i tried it kept getting the compass color (close to it) when i wanted a ladder color..


and add a option to search outwards (spiral)

Ah right, will work on all of your suggestions, not entirely sure on the spiral search but who knows :rolleyes:

JuKKa
03-04-2008, 08:07 PM
Ah right, will work on all of your suggestions, not entirely sure on the spiral search but who knows :rolleyes:
FindColorsSpiralTolerance(startx, starty, bla blaba)

or

SortTPA(TPA, Point(startx, starty));

something like that ;)

Sumilion
03-04-2008, 08:14 PM
FindColorsSpiralTolerance(startx, starty, bla blaba)

or

SortTPA(TPA, Point(startx, starty));

something like that ;)

Yes I know how to spiral search ;) I was not sure if I'd add it or not.

However I already added it. There was an open space in the AutoColor tab :p

Download the new uploaded package. There is no difference in the name.

oliver1205
03-04-2008, 08:26 PM
the attachment is invalid...

JuKKa
03-04-2008, 08:36 PM
works for me...

Sumilion
03-04-2008, 08:47 PM
Works for me too,

you like spiral feature ? :p and rs_OnMinimap ;)

JuKKa
03-04-2008, 09:11 PM
Works for me too,

you like spiral feature ? :p and rs_OnMinimap ;)

Yeah Sexy!

XcanadamanX
03-04-2008, 09:21 PM
looks good guys! Thumbs up to both of you. im going to fool around with it now.

Edit: pretty sweet...all i have to say

edit: your find object function gave me a runtime error. type mismatch on this line
ararP := SplitTPAEx(arAP, 10, 10);

edit: nvm this time it worked :p

mastaraymond
03-04-2008, 09:29 PM
I love all the icons you used in the program :p.

How did you get those line numbers?

Harry
03-04-2008, 09:38 PM
You're welcome for testing Sumilion (A) :rolleyes: :D

It is really nice, I feel special to be one of the first to use it. :garfield:

EvilChicken!
03-04-2008, 10:36 PM
Oh. My. God.

I just needed something like this today!
Not I won't have to learn new stuff! (Read: Now I'll learn off this!)

Seriously, this is just genious. Freaking genious.
I entered a color and it gives me about 100 lines of leet code.

I love you!


EDIT: :eek: Omgggg.

EDIT2: WHY THE **** ISN'T THIS STICKIED YET?!

Edit3: Best object finder ever! Gah.

oliver1205
03-04-2008, 10:45 PM
ok, it works now. thanks for this :)

cbris
03-04-2008, 11:00 PM
thank you SO much.

This is just the kind of thing I might attempt if I had amazing scripting skills like you two. This will help all scripters and make starting a script much easer for beginners. thank you.

wired16
03-04-2008, 11:30 PM
this is freaking great! i was running hy's caver and was like hmm ill make a gold/silver miner banker i got all the colors and stuff... i just need some help....

anyone wanna help me add me on msn or pm me

msn tycoon_168@hotmail.com

Bobarkinator
03-05-2008, 12:58 AM
Woooot, I used to love ACA 1. I'm so glad this got released.

FrÕzÑ_§ÕµL
03-05-2008, 03:11 AM
Very, very good :p maybe I can find a use for this... thanks!

HyperSecret
03-05-2008, 05:59 AM
very very nice both of you, ACA was a great program i still use it till this day, now a v2!

Bonfield
03-05-2008, 07:54 AM
amazing, good job releasing ACA version 2

vcvv
03-05-2008, 08:24 AM
Wow, great script!
I may be able to run HyperSecret's amazing auto responder script! :)

nielsie95
03-05-2008, 12:51 PM
I love all the icons you used in the program :p.

How did you get those line numbers?

Which numbers? Those in the function tabs?

gerauchert
03-05-2008, 01:58 PM
*bows down* were not worthy!!! :D

thank you sooo much, my own autocolor functions seem to always fail after about a halfhour, im very excited to use this! thanks!

Rikje
03-05-2008, 02:01 PM
Is V2 2 times better dan V1? :p
Thanks on releasing :)

I love the mark color thing!

Sumilion
03-05-2008, 02:31 PM
Is V2 2 times better dan V1? :p
Thanks on releasing :)

I love the mark color thing!

It should be ;) thats why it is v2 :p


Which numbers? Those in the function tabs?

I think he means SynEdit, @mastaraymond, it is SynEdit :p

stampede10343
03-05-2008, 07:04 PM
I just got the first one a couple weeks ago after being stumped on RGB, this one looks great gj!!

munk
03-05-2008, 09:18 PM
yay! i can finally uninstall my SCAR 3.11 on this computer.

and now i can hopefully finally get ColorToleranceSpeed(2) workin how I want:D

thanks and great job!

[S]paz
03-05-2008, 09:26 PM
wow this is a good bit of coding here, but can someone expain how to use colortolerancespeeds and modifiers cos i search for some tuts and i still dont get it :S:S my msn is spaztaz666@hotmail.com

~Spaz

lordsaturn
03-06-2008, 12:33 AM
If you could have sex in delphi, it would be the equivalent to this.

Nice job.

Smartzkid
03-06-2008, 02:09 AM
Verr' Nize! How many lines of code? Amazing job, guys!

Is it too much to ask for SMART compatibility? (custom DC/bitmap?)

mastaraymond
03-06-2008, 02:37 PM
Verr' Nize! How many lines of code? Amazing job, guys!

Is it too much to ask for SMART compatibility? (custom DC/bitmap?)
Are you on crack?

king vash
03-14-2008, 01:11 AM
it won't take a list of colors more than 20 long

Naum
03-14-2008, 07:56 AM
Are you on crack?
I would guess so :p

HISTORY
03-14-2008, 10:30 AM
Woah, sexy program.

Sumilion
03-14-2008, 01:46 PM
it won't take a list of colors more than 20 long

Yes it will :p


Verr' Nize! How many lines of code? Amazing job, guys!

Is it too much to ask for SMART compatibility? (custom DC/bitmap?)

No SMART compatibility, main unit is 1680 lines.

Naike
03-23-2008, 12:34 AM
This is the SHIT! xD!
Very very nice work, Stickie this?

Zezi
03-23-2008, 01:02 PM
I like this script very much, had to auto color my darn road, it's underground :(

Really helped, i like how you can scroll through the colours, and check if you've accidently clicked the wrong one etc,

And il ike how it automatically places into function

What kicks ass is how you can even save it :) ++ for yous :)

Tyvm for taking the time to make this,

Do i need to give credit before the function?

HellBoyz
03-26-2008, 08:39 AM
Nice it's just come for my rescue thumbs up... lol :)

nielsie95
03-26-2008, 10:27 AM
Do i need to give credit before the function?

Would be nice, yes :)

XRaye
05-12-2008, 07:04 PM
Wow, this is very nice!!!!

Drakan
05-12-2008, 09:11 PM
This looks sweet but my newby self cant figure it out! I click the colors I want, then press create function with RGB checking, and I try it and it dont work :S Can someone post a tutorial?

EDIT: I think i'm starting to get it =]

Scaper
06-29-2008, 01:51 PM
omg nice this is very handy very nice work boy's

rep++

Scaper
06-30-2008, 06:32 PM
maybe ya's could make a radialwalk 1 in like this 1 sometime that would be cool:)

and also how do i get it to get the full runescape screen i press get image tec and it doesent get the runescape screen??


mybe like the[cheese said post a lil tut plz

thax

Sumilion
06-30-2008, 09:44 PM
Doubt the radial walk will get in here.

For RS getting : Client > Client Window > Find RS
(this is the main menu, not the tabs)

Scaper
07-04-2008, 01:36 AM
Doubt the radial walk will get in here.

For RS getting : Client > Client Window > Find RS
(this is the main menu, not the tabs)


yer when i click find rs it has jus a lil bit of the runescape window and the rest of the drop down menu init:confused:
so were will the radial walking one be SRL mem :D

tell me will there be a radial walk 1??

Daniel
07-04-2008, 06:15 AM
so were will the radial walking one be SRL mem :D
tell me will there be a radial walk 1??


Doubt the radial walk will get in here.

;)

Claymore
07-05-2008, 07:34 PM
Thanks!a nub like me who is beginning to learn SCAR is gonna have an easier time now!

lordsaturn
07-24-2008, 02:03 AM
What is the 'Max Distance' variable for?

Sumilion
07-24-2008, 09:04 AM
The Max Distance is the maximum amount 2 points can be from eachother before the script sees it as another object.

EvilChicken!
07-24-2008, 09:26 AM
What is the 'Max Distance' variable for?

TPA splitting into ATPAs as far as I remember.

A TPA is an array of the x and y coordinates for every single pixel of matching colors for the search, in the search area. But we need to split these pixels into an array of boxes, otherwise moving the mouse to each of the pixels matching the color that was searched for, would be kinda time-consuming and bot-line, no? That's why we split them into boxes with only ONE point in each box instead of all the points.

The max distance variable is for you to enter what width and height those boxes should have. 15-30 is commonly used and works for most objects.

Feel free to ask if you didn't fully grasp something of what I just wrote. :rolleyes:

lordsaturn
07-24-2008, 12:00 PM
So you would want to use a higher number to be more safe with your object finding?

nielsie95
07-24-2008, 01:47 PM
If your color matches a lot of the object (mark color), you should use a small number. If not, use a higher number.


............. - Small number
. . . -Larger number

. = matched color

lordsaturn
07-25-2008, 02:06 AM
If your color matches a lot of the object (mark color), you should use a small number. If not, use a higher number.


............. - Small number
. . . -Larger number

. = matched color

Ah, okay. Now i understand.

Thanks all. =]

basic_i
08-12-2008, 12:05 AM
....so this program helps you make a function to find and object in the main screen???

like i could get a few colors of some cabbage and it would make a function to find the cabbage color????or what ....its a little complex

Sumilion
08-12-2008, 08:04 AM
....so this program helps you make a function to find and object in the main screen???

like i could get a few colors of some cabbage and it would make a function to find the cabbage color????or what ....its a little complex

Yeh thats pretty much what it comes down to ;)

Get a few colors of your cabbage for example, make sure it doesn't find any (or at least not a lot) of other colors (by checking under the Client tab, pressing Mark Best Color after you've selected your colors). Then I suggest using the FindObjRecord tab to create the function that finds the object on the main screen :).

Melon
09-21-2008, 01:30 PM
(im beginer) So , for example i have took some colors of copper ore , and now i want so that my script finds the colors (that part is already done) and clicks on them. Wich part should be changer, or edited ? program FindObject;
{.include SRL\SRL.scar}

var
x, y: Integer;

function FindObject(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
H, S, L: Extended;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);

if not(FindColorsTolerance(arP, 6130899, MSX1, MSY1, MSX2, MSY2, 40)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;

arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);

for i := 0 to arL do
begin
ColorToHSL(arC[i], H, S, L);

if (H >= 6.45) and (H <= 6.84) and (S >= 46.81) and (S <= 74.87) and (L >= 50.57) and (L <= 68.65) then
begin
ColorToXYZ(arC[i], X, Y, Z);

if (X >= 28.30) and (X <= 50.03) and (Y >= 24.07) and (Y <= 44.62) and (Z >= 8.93) and (Z <= 22.51) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
end;

SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);

for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Take')) then
begin;
Result := True;
Break;
end;
end;

ColorToleranceSpeed(tmpCTS);

if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;

GetMousePos(fx, fy);
end;

begin
SetupSRL;
FindObject(x, y);
end.

Sumilion
09-21-2008, 05:48 PM
(im beginer) So , for example i have took some colors of copper ore , and now i want so that my script finds the colors (that part is already done) and clicks on them. Wich part should be changer, or edited ? program FindObject;
{.include SRL\SRL.scar}

var
x, y: Integer;

function FindObject(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
H, S, L: Extended;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);

if not(FindColorsTolerance(arP, 6130899, MSX1, MSY1, MSX2, MSY2, 40)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;

arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);

for i := 0 to arL do
begin
ColorToHSL(arC[i], H, S, L);

if (H >= 6.45) and (H <= 6.84) and (S >= 46.81) and (S <= 74.87) and (L >= 50.57) and (L <= 68.65) then
begin
ColorToXYZ(arC[i], X, Y, Z);

if (X >= 28.30) and (X <= 50.03) and (Y >= 24.07) and (Y <= 44.62) and (Z >= 8.93) and (Z <= 22.51) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
end;

SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);

for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Take')) then
begin;
Result := True;
Break;
end;
end;

ColorToleranceSpeed(tmpCTS);

if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;

GetMousePos(fx, fy);
end;

begin
SetupSRL;
FindObject(x, y);
end.

Well ... in the end you could do this :

begin
SetupSRL;
FindObject(x, y);
Mouse(x, y, 0, 0, True);
end.

that will click on the found object, but... I made this function in SRL which does this, premade. I made a couple of TAutoColorInfo's (which stores the date you made in scar) of rocks and I use these for a rock finder.

For more info, http://www.villavu.com/forum/showthread.php?t=32668?t=35403

Melon
09-22-2008, 02:44 PM
Thanks ... I will check http://www.srl-forums.com/forum/auto...3.html?t=35403 now .... rly thx x100 man ;)

soppa_z
11-01-2008, 04:38 PM
i Will try make a autoing script

Nava2
11-03-2008, 07:06 PM
Love this thing!

Just so you know, just a thought, remove the unnecessary begins and ends in the find object procedures.

Only thing I could find.. :)

Sumilion
11-04-2008, 02:25 PM
IMO it is more readable :) But I suggest using the TAutoColorInfo's feature anyway since it is more advanced, more bugs have been removed... its just better supported :)

lordsaturn
01-27-2009, 11:40 PM
Sorry for the bump, but I saw that the FindObject function could be optimized a little bit, so I did. :)


function FindObject(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2, c: Integer;
P: TPoint;
H, S, L: Extended;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);

if not(FindColorsTolerance(arP, 16316406, MSX1, MSY1, MSX2, MSY2, 14)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;

arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
SetLength(arAP, (arL+1)*(arL2+1));

for i := 0 to arL do
begin
ColorToHSL(arC[i], H, S, L);

if (H >= 0.00) and (H <= 58.35) and (S >= 0.00) and (S <= 28.59) and (L >= 93.71) and (L <= 100.02) then
begin
ColorToXYZ(arC[i], X, Y, Z);

if (X >= 81.64) and (X <= 95.07) and (Y >= 86.07) and (Y <= 100.02) and (Z >= 95.49) and (Z <= 108.90) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
arAP[c] := arP[j];
Inc(c);
end;
end;
end;
end;
end;
SetLength(arAP, c);

SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);

for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Take')) then
begin;
Result := True;
Break;
end;
end;

ColorToleranceSpeed(tmpCTS);

if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;


So that you only edit the length of arAP twice, rather than each time you add a new index.

EvilChicken!
01-28-2009, 07:37 AM
Nice, saturn.
Might aswell remove the unneeded begins/ends?

lordsaturn
01-28-2009, 07:53 AM
Yeah, I was going to, but I figured nielsie/sumilion did it for a reason. Maybe for code cleanliness?

EvilChicken!
01-28-2009, 08:23 AM
Yeah, I was going to, but I figured nielsie/sumilion did it for a reason. Maybe for code cleanliness?

Yeah, that's what they told me.
"It's easier to read that way."

Cazax
01-30-2009, 12:50 AM
May I ask you where did you get HSL and XYZ formula? Or did you find it?

Simtoon
01-30-2009, 03:53 AM
I like this heheh

Scaper
04-07-2009, 09:52 PM
hope you gyys wont mind i am going to post this on scion if you have any objections to this just say so and i will remove it, i have gave full credits to use guys

man slaughter
07-15-2011, 09:12 PM
Works epically on linux/wine. I'm using it to make a color blindness filter.

BraK
07-15-2011, 10:02 PM
Gravedig from hell XD

~BraK

Coh3n
07-15-2011, 11:16 PM
In this case, I think it's okay. This is a very useful tool that not all people will know about.

Zyt3x
07-15-2011, 11:19 PM
How come this isn't stickied, but APPA is?

Coh3n
07-15-2011, 11:21 PM
Older thread? I don't know. I'll stick it now.

weequ
10-26-2011, 11:50 PM
Great tool. I've been using this quite much. Especially the color marker and the best color+tolerance info are very useful.

grats
10-26-2011, 11:57 PM
Great tool. I've been using this quite much. Especially the color marker and the best color+tolerance info are very useful.

yea, I love this tool a lot.. also really good because it works on multiple monitors and simba colorpicker doesn't :P

Wizzup?
10-27-2011, 12:11 AM
yea, I love this tool a lot.. also really good because it works on multiple monitors and simba colorpicker doesn't :P

Are you sure? That may depend on your monitor set up. Might want to file a bug. :)
Although I suppose I could be seen as nice behavior as well.

Narcle
10-27-2011, 12:42 AM
yea, I love this tool a lot.. also really good because it works on multiple monitors and simba colorpicker doesn't :P

Simba actually does work with multi-monitor but in a funny way. If you have Simba on the far right monitor you cannot pick colors on any monitors to the left. However, if you have Simba on the far left monitor you can pick a color from any monitor.

grats
10-27-2011, 01:10 AM
Simba actually does work with multi-monitor but in a funny way. If you have Simba on the far right monitor you cannot pick colors on any monitors to the left. However, if you have Simba on the far left monitor you can pick a color from any monitor.

oh lol that makes sense then.. I've never had it on any monitor other than my right monitor.. and smart / rs are usually in center


Are you sure? That may depend on your monitor set up. Might want to file a bug. :)
Although I suppose I could be seen as nice behavior as well.

yea I talked about it somewhere, didn't think it was much of a problem not a lot of people have a bunch of monitors


yea narcle is correct, by putting it to my left one I can select on all of the monitors

Wizzup?
10-30-2011, 07:23 PM
oh lol that makes sense then.. I've never had it on any monitor other than my right monitor.. and smart / rs are usually in center



yea I talked about it somewhere, didn't think it was much of a problem not a lot of people have a bunch of monitors


yea narcle is correct, by putting it to my left one I can select on all of the monitors

File a bug with description please. :)

Nava2
10-30-2011, 10:56 PM
What ever happened to this being implemented into the colour picker history?

Flight
10-31-2011, 01:10 AM
Well... I just used this little tool and I gotta say.... I'm thoroughly impressed.

DeSnob
10-31-2011, 03:04 AM
Well... I just used this little tool and I gotta say.... I'm thoroughly impressed.

Yeah, this is extremely useful! Especially with needing to know the color mods.

Wizzup?
10-31-2011, 10:10 AM
What ever happened to this being implemented into the colour picker history?

Still a good idea. It just needs to be done. If you ask Nielsie nicely you could perhaps re-use (some of) their code?

E: Created a bug report for it.

Flight
11-06-2011, 07:23 AM
Hey I'm wondering, since the newest versions of Simba (0.98-rc1+) now have support for CTS 3, would it be much hassle to implant that in this tool?

Swatarianess
11-06-2011, 11:19 AM
Thanks :D this would be great if it were implemented into Simba. Using it now thanks

nielsie95
11-08-2011, 07:40 PM
Hey I'm wondering, since the newest versions of Simba (0.98-rc1+) now have support for CTS 3, would it be much hassle to implant that in this tool?

It probably would be a bit of a hassle to get things compiling again, yes :p
To get a multi platform version going, it might be a good idea to implement a version as an extension. A lot of the components from the DTM editor could be reused (the whole image/client display along with the mouse handling).

YoHoJo
12-10-2011, 10:27 PM
Hey nielsie95 CTS3 is out! Any way you could possibly add support for this to a new version of ACA that would be sweet!

DeSnob
12-11-2011, 02:10 AM
Hey nielsie95 CTS3 is out! Any way you could possibly add support for this to a new version of ACA that would be sweet!

I swear CTS3's been out for a while now. :o

YoHoJo
12-11-2011, 02:12 AM
I think that was beta versions or something of Simba.
I think today the real stable version to have CTS3 came out.
Either way, it should be added.

Kyle Undefined
12-11-2011, 02:17 AM
That would be shweet!

DeSnob
12-11-2011, 02:48 AM
I think that was beta versions or something of Simba.
I think today the real stable version to have CTS3 came out.
Either way, it should be added.

Whoa, really? Sweeet..

Nava2
12-11-2011, 05:42 AM
Nielsie has the source, and he is willing to share if you ask. But I'm not sure if he wants to FOSS it.

YoHoJo
12-11-2011, 06:35 AM
FOSS?
Also I'd have no idea how, someone who knows how/wants to should ask him for source and do it, it would be a really awesome addition.

wantonman
12-30-2011, 07:12 AM
I'm having trouble running this on simba. Ive been trying for 3 hours and still no luck finding a maple tree!

I chose 3 colors and selected best color, set uptext to chop, pasted findobject function to simba.


i always get unable to find object... the mouse never moves.

Brandon
12-30-2011, 07:19 AM
I'm having trouble running this on simba. Ive been trying for 3 hours and still no luck finding a maple tree!

I chose 3 colors and selected best color, set uptext to chop, pasted findobject function to simba.


i always get unable to find object... the mouse never moves.


In Auto Colour aid.. Set your thing at the bottom right to ColorTolerance 2.. then choose colours.. then fill in the below function with the info you got from the find object creator


Procedure FindTree;
var
CTS: Integer;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.59, 3.70); //Fill this in with the info from auto color aid..
if FindColorSpiralTolerance(X, Y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) //Fill this in with the info from Autocolor Aid..
writeln('Found Tree');
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

wantonman
12-30-2011, 07:35 AM
so basically don't use the script auto color aid generates? and just fill in the colors?

tls
12-30-2011, 07:38 AM
Sauce please :)

Swatarianess
12-30-2011, 12:58 PM
so basically don't use the script auto color aid generates? and just fill in the colors?

if you want u can use it :p I used it was i was starting but as you read some of the tuts you'll understand more about how it works and maybe just take the info it gives you and make your own for whatever script you use ^^

nielsie95
12-31-2011, 02:54 PM
Sauce please :)
http://villavu.com/forum/showthread.php?t=70704
This is a start of a Simba extension. Are you perhaps interested in doing some work on it?

And a question to everyone: what parts do you use most and what would you like to see different in a new version of ACA? Are the function generators a must? Do you like the current layout?

Daniel
12-31-2011, 03:16 PM
http://villavu.com/forum/showthread.php?t=70704
This is a start of a Simba extension. Are you perhaps interested in doing some work on it?

And a question to everyone: what parts do you use most and what would you like to see different in a new version of ACA? Are the function generators a must? Do you like the current layout?

Everythings fine.

I use it to get the best colour and tolerances, as-well as generating a function for a guide/just for copy and paste. :)

Yago
12-31-2011, 09:56 PM
It sometimes freezes when refreshing or getting a new target thingy...

imaloser
01-07-2012, 10:05 PM
In Auto Colour aid.. Set your thing at the bottom right to ColorTolerance 2.. then choose colours.. then fill in the below function with the info you got from the find object creator


Procedure FindTree;
var
X, Y, CTS: Integer;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HUE, SATURATION); //Fill this in with the info from auto color aid..
if FindColorSpiralTolerance(X, Y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) Then //Fill this in with the info from Autocolor Aid..
writeln('Found Tree');
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;




Missed somethings in the procedure :p

gerauchert
01-07-2012, 10:33 PM
http://villavu.com/forum/showthread.php?t=70704
This is a start of a Simba extension. Are you perhaps interested in doing some work on it?

And a question to everyone: what parts do you use most and what would you like to see different in a new version of ACA? Are the function generators a must? Do you like the current layout?

The only thing I would ask is to improve the debug images. It seems to freeze the program at times for me... but other than that everything has worked like a charm for me. :)

bg5
02-11-2012, 08:42 AM
It has problem with finding SMART. Find RS function works only in 10% tries.Mostly it says "succefully found RS" ,but it shows only small black rectangle (154x26). I tried 'Find clietn by name' ,but just "SMART" can't be found. I think whole window name is needed ,but SMART's caption is very long :P Any solution?

nielsie95
02-11-2012, 09:05 AM
Just use the whole desktop and scroll a little. Or you could just use the browser for picking colours. Or you could try to use the extension for Simba. Or type in the whole window name :p

goodyou
02-13-2012, 01:22 AM
Today be able to know ever:spot::sasmokin::spongebob:yone really happy.

goodyou
02-13-2012, 04:28 AM
meaning less time to work on it. Luckily it is already finished.
:f:

Emotional
02-21-2012, 11:20 PM
[Error] (5:10): Duplicate identifier 'AUTOCOLOR' at line 4
Compiling failed.

=/ Trying to work with Simba.

RISK
02-21-2012, 11:36 PM
Change the name to something like 'E_AutoColor'. It's simply telling you that there is more than one procedure or function with the name 'AutoColor'.

Emotional
02-21-2012, 11:38 PM
Change the name to something like 'E_AutoColor'. It's simply telling you that there is more than one procedure or function with the name 'AutoColor'.

program E_AutoColor;
{$i SRL/SRL.simba}

function AutoColor: Integer;

says the same thing....
EDIT: Nvm, Ty for you help(:

RISK
02-21-2012, 11:39 PM
Change the function name to E_AutoColor, not the program name. :)

Kyle Undefined
02-21-2012, 11:40 PM
No, you have to change the function "AutoColor" to something different, it doesn't matter what the program name is.

AutoColor is a function in SRL already, so that's why you have to change it.

horizon
02-26-2012, 02:37 AM
cooooooooooooooooooool, thx

YoHoJo
03-06-2012, 11:34 AM
Suggestion:
Have an option/tool to ZOOM into the client image to be more precise? :D

RISK
03-06-2012, 11:37 AM
+1 to this. I would LOVE this feature.


Suggestion:
Have an option/tool to ZOOM into the client image to be more precise? :D

Majnoon
03-06-2012, 04:04 PM
Hi,

I ran in to a little problem, can't seem to find a fix.

When trying to find the Rs window, Client > Client Window > Find RS.
It just gives me a white screen, when i click on the white screen it does give me colors but i can't tell what is what. Any fix for this?

Littellj
03-08-2012, 12:08 AM
How do i define the AutoColor integer as a variable so that it doesn't do a different autocolor everytime?

Valithor
03-23-2012, 10:48 PM
How do i define the AutoColor integer as a variable so that it doesn't do a different autocolor everytime?
Why would that be a problem? :confused:

On another note: Any ideas on how long it will be until this able to use CTS 3 (http://wizzup.org/simba/releases.html)?

nielsie95
03-24-2012, 11:02 AM
Zoom and cts 3 are available in the Simba extension.
I don't think this version will get another update.

Imanoobbot
03-25-2012, 01:51 PM
For me it always give me that error message:

[Error] (17:13): Unknown identifier 'GetColorToleranceSpeed' at line 16
Compiling failed.

I got problems putting this into my scripts.


* Problem solved!

dragonbotz
04-29-2012, 10:34 PM
For me it always give me that error message:

[Error] (17:13): Unknown identifier 'GetColorToleranceSpeed' at line 16
Compiling failed.

I got problems putting this into my scripts.


* Problem solved!

I'm having that problem too. Could you tell me how you solved it?

Cinkupis
05-14-2012, 03:26 PM
Hi,

I ran in to a little problem, can't seem to find a fix.

When trying to find the Rs window, Client > Client Window > Find RS.
It just gives me a white screen, when i click on the white screen it does give me colors but i can't tell what is what. Any fix for this?

Same problem here. Any ideas on how to fix it?

beeb101
05-22-2012, 03:01 PM
whenever i click find rs it says rs found but just stays white ;/ help please

Abu
05-22-2012, 03:04 PM
Uninstall your Java completely including folders and install:

Java6u32 (http://www.oracle.com/technetwork/java/javase/downloads/jdk-6u32-downloads-1594644.html)

beeb101
05-22-2012, 05:04 PM
when i do java6 simba stops working.. all the scripts;/ i get error

this is the error:

Error: Exception: Access violation at line 101
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

Enter
07-04-2012, 07:26 AM
What do I use to open this?

[S]paz
07-04-2012, 07:32 AM
Unrar is with Winrar and you're away.

Enter
07-04-2012, 03:52 PM
paz;1061290']Unrar is with Winrar and you're away.


What?

[S]paz
07-04-2012, 04:40 PM
Download winrar. Install that. Right click the .rar file. Extract here. Double click the .exe.

gavin0627
11-27-2012, 02:27 PM
thanks a lot!!!

key
12-01-2012, 02:28 PM
Thank you :D.
http://www.powerbot.org/community/user/422118-key.png

masterBB
05-17-2014, 12:02 PM
This tool was amazing. Thank you Sumilion and Nielsie95. It has been out there for a long time but has been superseded by CynicRus recently.

Not locked, but unstickified.

vvarfare
09-23-2014, 07:24 PM
Hi, when using your tool, both smart and the Rs client, just appear black on the client, am i doing something wrong?

Warco
03-31-2015, 11:27 AM
Thank you so much for this, really helping us new developers out!

srlMW
06-04-2015, 04:17 AM
Hey again, is this the #1 (https://villavu.com/forum/usertag.php?do=list&action=hash&hash=1) recommended tool to use still?

Cheers

DeniedHacker
06-11-2015, 07:09 PM
I still use it for getting colors on OSR

DutchGamerSpot
07-11-2015, 11:19 PM
Nice script

KeepBotting
07-11-2015, 11:30 PM
Nice script

This isn't a script.

srlMW
07-11-2015, 11:44 PM
This isn't a script.

The post count boost fails :duh: hahah

DutchGamerSpot
07-12-2015, 12:01 AM
The post count boost fails :duh: hahah

I'm hoodz's goldfarm partner was just here for the lolz. Dont be agressive pl0x.

KeepBotting
07-12-2015, 12:03 AM
I'm hoodz's goldfarm partner was just her for the lolz. Dont be agressive pl0x.
hoodz;

Swag Bag
07-12-2015, 12:33 AM
Shh don't be aggressive towards the wild users KeeptBotting!

GetHyper
07-12-2015, 06:04 AM
The post count boost fails :duh: hahah

:')

Hoodz
07-12-2015, 11:17 AM
hoodz;

The sad thing is, this is actually true.

otavioafm
09-10-2015, 12:43 AM
and for higher lvl monster like laser deamon

otavioafm
07-09-2016, 11:41 PM
were's the link?

para0714
07-11-2016, 09:26 AM
where's the download link?

coralreefer
07-15-2016, 02:09 AM
Is there no longer a download link for this program?

para0714
07-15-2016, 01:25 PM
were's the link?

I find the https://villavu.com/forum/showthread.php?t=98368

It's a new version.

para0714
07-15-2016, 01:26 PM
Is there no longer a download link for this program?

Finally I find that https://villavu.com/forum/showthread.php?t=98368

It's a new version.

P1nky
07-15-2016, 02:06 PM
It's been 8+ years.. Time flies.

coralreefer
07-15-2016, 10:02 PM
Finally I find that https://villavu.com/forum/showthread.php?t=98368

It's a new version.

Thanks so much! Great Find! :)

Dan the man
07-22-2016, 02:01 PM
Am i blind or is the download link missing?

Harrier
07-22-2016, 03:23 PM
Am i blind or is the download link missing?
When moving to vb4 any old attachment from vb 3.X was removed/not added to the vb4 database

footballjds
11-12-2017, 11:46 PM
using ACA to find good colors and tolerance, find colors on mainscreen and save points to TPA, merge/split TPA...


is this still the best way to find mainscreen objects?

Joopi
11-13-2017, 12:54 PM
It all depends footballjds;
Pretty much. There hasn't been a lot of revolutionizing concepts brought to common use, at least on these forums. Of course there are the special cases for finding some object where the conventional Cluster & check length, shape etc etc doesn't work, in which case people come up with creative ways of getting the position for something.
Some guy has tried using OpenCV for botting, which seemed rather successful (don't have link to thread).

On another note, botting on OSRS has become notoriously easy now that the camera doesn't zoom/rotate randomly anymore, so you can pretty much just use MMToMS.

footballjds
11-13-2017, 11:40 PM
It all depends footballjds;
Pretty much. There hasn't been a lot of revolutionizing concepts brought to common use, at least on these forums. Of course there are the special cases for finding some object where the conventional Cluster & check length, shape etc etc doesn't work, in which case people come up with creative ways of getting the position for something.
Some guy has tried using OpenCV for botting, which seemed rather successful (don't have link to thread).

On another note, botting on OSRS has become notoriously easy now that the camera doesn't zoom/rotate randomly anymore, so you can pretty much just use MMToMS.

do you have a working up-to-date script for osrs i could look at? btw, OSRS ultimate iron man ftw...

Joopi
11-14-2017, 04:16 PM
I'll write you an example script on the weekend. Sort of tied up with tests atm footballjds;
I can't think of any proper script that I've written that isn't for my personal use (in fear of it being abused by others).

footballjds
11-14-2017, 07:37 PM
I'll write you an example script on the weekend. Sort of tied up with tests atm footballjds;
I can't think of any proper script that I've written that isn't for my personal use (in fear of it being abused by others).

feel free to chat me a private link if you don't want to post...

yeah, i have exams in college atm

razefox
01-16-2018, 07:37 PM
Virustotal says its a virus?

slacky
01-16-2018, 08:45 PM
Virustotal says its a virus?
Then it must be the case. Or.. it's a false positive:huh:

Wu-Tang Clan
01-19-2018, 12:41 AM
Virustotal says its a virus?

I'm also pretty sure ACA is a virus