noidea
2009-03-22 00:35:42
function FindRockColor2: Integer;
var
GC, a, l, TestColor, OtherTestColor: integer;
var
P:array of Tpoint;
begin
GC := 4343623;
Flag;
FindColorsSpiralTolerance(MMCX,MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 100);
DebugTPA(P, 'sdf'); //2960941
l:=GetArrayLength(P);
for a:= 0 to l-1 do
begin
TestColor := GetColor(P[a].x,P[a].y);
OtherTestColor := GetColor(P[a].x-1,P[a].y);
if TestColor - OtherTestColor = 1250837 then
begin
Result := TestColor;
Writeln('Rock Color = ' + IntToStr(TestColor));
Exit;
end;
end;
Writeln('Could not find Rock Color!');
Result := 0;
end;
After awhile of using this, (On SMART) It doesnt seem to work. I used DebugTPA(), and it showed that it wasnt finding the color, even with 80 tolerance! This after 10 - 20 minutes.
Please Help!