Pancakes
2007-08-30 00:41:03
Strange error, no idea what to do with it.
procedure PickFlax;
var X, Y, I, J : Integer;
var FlaxFound : Boolean;
begin
for I := 0 to 20 do
begin
for J := 0 to GetArrayLength(FlaxColors) - 1 do //LINE 245!
begin
X := MSX2 / 2;
Y := MSY2 / 2;
if (FindColorSpiralTolerance(X, Y, FlaxColors[j], MSX1, MSY1, MSX2, MSY2, 3)) then
begin
MMouse(X, Y, 3, 3);
Wait(100 + Random(100));
if (IsUpText('lax')) then
begin
FlaxFound := True;
Break;
end;
end;
end;
if (FlaxFound) then Exit;
if (Not(FlaxFound)) then Compass(VK_LEFT);
end;
Mouse(X, Y, 3, 3, True);
end;