so im going to learn color and use it in tpas.
Problem is..
Every tutorial ive done so far ended up failing..
After realizing they are from 2008 etc.
And things were outdated =\
Anyone know a current tut?
something 2010+ mybe lol
so im going to learn color and use it in tpas.
Problem is..
Every tutorial ive done so far ended up failing..
After realizing they are from 2008 etc.
And things were outdated =\
Anyone know a current tut?
something 2010+ mybe lol
what are you trying to do?
(:
I'd be happy to help. Also any thread by n3ss3s about TPA's would be good.
http://villavu.com/forum/showthread.php?t=21786
Last edited by footballjds; 03-30-2011 at 02:48 PM.
Trying to click a giant rat.
I just need a working example.
Even a tree clicking one.
Just none of them seem to work. =\
I will make you one. Can you give me 10 mins? im at work lol.
2am.
I'm sure i'll survive for 10 more minutes.
Thankyou!
I appreciate it.
Stand by a tree.SCAR Code:program New;
{.include SRL\SRL.scar}
function AutoColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
R, G, B: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.39);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 5608325, MSX1, MSY1, MSX2, MSY2, 13);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToRGB(arC[i], R, G, B);
if (R >= 93) and (R <= 167) and (G >= 101) and (G <= 183) and (B >= 64) and (B <= 115) then
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 10.30) and (X <= 35.51) and (Y >= 12.24) and (Y <= 42.80) and (Z >= 6.80) and (Z <= 22.32) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
function FindTreeColors: TPointArray;
var
x, y: integer;
begin
FindColorsSpiralTolerance(x, y, result, AutoColor, MSX1, MSY1, MSX2, MSY2, 3);
Writeln(Length(result));
for x := 0 to high(result) do
begin
MoveMouse(result[x].x, result[x].y);
wait(1000);
end;
end;
begin
SetupSRL;
FindTreeColors;
end.
Worst way to use TPA's but you didn't ask for the best![]()
*High 5's iTry*
Okay cool.
The structure is what i was struggling with.
=D
thx
hhaha
never ending clicks.
took me a while to figure out how to stop it
Last edited by beats-; 03-30-2011 at 03:40 PM.
Simba Code:Function FindIrons: TPointArray;
var
TPAA: array of TPointArray;
TPA: TPointArray;
CTS, I: Integer;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.22, 0.23);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2964577, 20, 20, MSX2 - 20, MSY2 - 20, 3);
TPAA := TPAToATPAEx(TPA, 20, 19);//Creats a 2D tpa 20 by 19 big
for I := 0 To High(TPAA) do
if GetArrayLength(TPAA[i]) > 7 then
begin
SetArrayLength(Result, GetArrayLength(Result) + 1);
Result[High(Result)] := MiddleTPA(TPAA[i]);
end;
SortTPAFrom(Result, IntToPoint(259, 160));
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(cts);
end;
taken out of my old varrock east miner.
that is legit there,
i don't remember even writing that code o.O
That converts a TPA to an ATPA, Checks to see if there are 7 or more points
There are currently 1 users browsing this thread. (0 members and 1 guests)