Test this little piece of script in general exchange and tell me what it says..
SCAR Code:
program New;
{.Include SRL/SRL.Scar}
Function FindGERoadColor: Integer;
Var
L, A, GC, TestColor, Red, Green, Blue : integer;
P: TPointArray;
Begin
GC := 6515307;
FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
L := High(P);
For a := 0 To L Do
Begin
If(Not rs_OnMinimap(p[a].x, p[a].y))Then Continue;
TestColor := GetColor(P[a].X, P[a].Y);
If(Not SimilarColors(TestColor, GC, 50))Then Continue;
Red := (TestColor mod 256);
Green := ((TestColor / 256) mod 256);
Blue := ((TestColor / 256) / 256);
If(Red - Green < 10)Then //1 - always. 10 is just a fail safe.
If(Red - Blue < 15)Then // below 10 pretty often has once been 11.
If(Green - Blue < 15)Then //varies between 8 - 11
Begin
Result := TestColor;
Writeln('GE floor color = ' +
IntToStr(Result));
Exit;
End;
End;
Writeln('Could not find GE floor color!');
Result := 0;
End;
var
T: Integer;
Begin
SetupSRL;
ActivateClient;
Wait(300);
T := GetSystemTime;
FindGERoadColor;
Writeln('Took = ' + IntToStr( GetSystemTime - T)+ ' msec');
End.
Stand in middle of general exchange at the bankers and run this script. This wont move ur mouse at all, I just wanna see how well it works.