SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
RadialWalkAutoColour didn't work at all, So we(ReadySteady made the GetMode function, took him a ton of time to get that working and fast) just made a working autocolor function:
SCAR Code:function GetMode(Arr: TIntegerArray): Integer;
var
i, count, tCount, r: Integer;
begin
QuickSort(Arr);
for i := 1 to High(Arr) do
if Arr[i] = Arr[i - 1] then
begin
tCount := tCount + 1;
if i = High(Arr) then
if Count < tCount then
begin
r := i - 1;
end;
end else
begin
if Count < tCount then
begin
r := i - 1;
Count := tCount;
end;
tCount := 0;
end;
Result := Arr[r]
end;
Function AutoColorRight(Which:Integer):Integer;
var
color:Integer;
Colors:TIntegerArray;
TPA:TPointArray;
begin
Color:=AutoColor(which);
FindColorsTolerance(TPA, Color, MMX1, MMY1, MMX2, MMY2, 15);
Colors:=GetColors(TPA);
Result:=getmode(Colors);
end;
Last edited by MylesMadness; 07-01-2010 at 01:57 AM.
myles, you had the idea that time, i helped you out. but previously, i have had the idea and you have helped me out. i shouldn't have snapped (it sounds like snapping online). it works both ways, i didn't give you the credit. I'm sorry.
edit: I just triple posted.But i've had a really bad night. I lost my driving licence a while ago so i had no id and the hot spanish barmaid wouldn't serve me, but i reckon she fancied me because she would serve me every now and again, she just liked winding me up. any way, sorry myles!
Last edited by ReadySteadyGo; 07-01-2010 at 02:17 AM.
I should have you gave you the credit in the first place. No harm no foul
I don't even understand. He gave you credit, you gave him credit. Where is the drunken tell-off...
Yeah sorry about that. Not sure why I came on SRL... I feel pretty rough this morning. I saw a guy Autofellatio last night. Was mental.
I see no reason why yours would work and SRL's wouldn't. Actually, you're using SRL's AutoColor in your function...
SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
It gives you the actual colour. You don't have to use tol. It doesn't work for rocks or trees. But it's very useful for roads.
Last time I checked, FindColorsTolerance uses tolerance, and what's GetMode suppose to do?SCAR Code:Function AutoColorRight(Which:Integer):Integer;
var
color:Integer;
Colors:TIntegerArray;
TPA:TPointArray;
begin
Color:=AutoColor(which);
FindColorsTolerance(TPA, Color, MMX1, MMY1, MMX2, MMY2, 15);
Colors:=GetColors(TPA);
Result:=getmode(Colors);
end;
I'll try to explain things a little better for you. No matter what kind of autocolouring you use, it's going to tell you whether or not you've found a colour on the minimap. Just because it's found, doesn't mean it was found in the exact spot you want.
Also, by calling that function "AutoColorRight" are you insinuating that we did it wrong?
SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
It uses the same autocolor but returns the actual colour of the road when using tolerance. It's not actually changing anything you've already done. I think it's useful because when using radial walk if it finds a colour within the tolerance before it gets to the actual colour, it will use it.
I don't think myles was trying to undermine 'AutoColour' by calling it that. Say if I wanted open bank procedure with an extra feature, I might use the name FindBankBoothRight. There was no insult aimed with the naming of that function.
You're using it the way it was meant to be used.I'm not sure why RadialWalkAutoColor/RadialWalkTolerance wasn't working for you, but I've had no problems with it since this has been written.
Lol I didn't think so, I was just wondering.![]()
SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
lol i hope you aint making a air crafter cus i just got the walking sorted for mine and yer the autocolor's off but it works with tol as 20
SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
No one appears to be using it right!
Use the darn TAutoColor and use the freaking tolerances!
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

I was really curious about this so I quickly made this:
SCAR Code:program new;
{$i srl/srl.scar}
{$i srl/srl/misc/debug.scar}
procedure Test;
var
TPA: TPointArray;
TACI: TAutoColorInfo;
x, y: Integer;
begin
TACI := AutoColorEx(srl_VarrockRoadColor);
x := MMCX;
y := MMCY;
SetColorToleranceSpeed(2);
SetColorspeed2Modifiers(TACI.HueMod, TACI.SatMod);
FindColorsSpiralTolerance(x, y, TPA, TACI.Color, MMX1, MMY1, MMX2, MMY2, TACI.LumTol);
DebugTPA(TPA, '');
end;
begin
SetupSRL;
ActivateClient;
Test;
FreeSRL;
end.
Not sure if I'm using it right or not but it gave nice results(a bit too much tho).
Until I tried it with rock. It highlighted everything. When I used a lower tolerance it highlighted everything, except the rock :S. And the color wasn't even near the actual rock color.
Display mode is safe mode, right? And how should we exactly use the new AutoColoring? (I have read the Newly Added thread)
You are using a tolerance though. You're using a tolerance of 15 to get the points of the colour found from SRL's autocolor function.
I noticed that a few days after I initially released the new system. I have absolutely no idea what would cause it to highlight the whole minimap, and I haven't had the time to check. It doesn't make much sense because when you open all the rock colours in ACA, it highlights just the rocks. When I originally tested these, the rock colour was working perfect. I also tested it south of Lumbridge (although that shouldn't make a difference).
Oh, and yeah you're using it right. That's actually one of the ways I tested everything.![]()
SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
Abzi, you are the first I've seen to use the system to it's full capability![]()
Also, the Rick colour iirc, is really really dynamic and rather than being related to a colour the colours are all related to each other in their own ways.
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

There isn't really that big of a reason to autocolor a rock though (although I found that FindRockColor() actually still works in most cases). A simple FindColorSpiral with tolerance works just fine too. I have a weird way of autocoloring that hasn't failed me yet, it simply just looks for the closest matching color on the screen to the color given (which is relatively easy to make to be honest). If you want it or you want to base something better off it let me know.
“Ignorance, the root and the stem of every evil.”

I was only testing the new system.
But in the future I will remember your offer if I will need it.
SRL's F.A.Q. (Error fixes) | How to Convert SRL-5 Scripts to SRL-6 | Draynor Chop N' Bank (RS3)| AIO Superheater (RS3)
T - E - A - MTogether Everyone Achieves More
There are currently 1 users browsing this thread. (0 members and 1 guests)