
BYAM BITCH!
Not too hard, but kind of :/.
Here is the link to the ACA file:
http://up.ht/tymLl4
So you can add/remove colors as you wish.
If you don't already know, learn about/download auto color aid here:
http://villavu.com/forum/showthread.php?t=26944
If you are lazy and need results NAO you can just use this code:
Simba Code:
function FrogColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.59, 0.16);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 2521930, MSX1, MSY1, MSX2, MSY2, 3);
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
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 8.05) and (X <= 13.07) and (Y >= 12.87) and (Y <= 19.35) and (Z >= 3.63) and (Z <= 5.16) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
Basically paste that into your script before your frog finding function.
And lets say you're using Findcolor, you would just enter 'FrogColor' where the color parameter is, example:
Simba Code:
If FindColor(X, Y, FrogColor, MSX1, MSY1, MSX2, MSY2) Then
Begin
Writelb('FROG!');
MMouse(x,y 1, 1);
If IsUpText('fr') Then
Mouse(X, Y, 0, 0, True)
End;
All done with your account now, feel free to change password or whatever.