JuKKa
2008-04-24 12:47:03
Test this little piece of script in general exchange and tell me what it says..
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.
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.