Failure
2014-04-08 18:19:12
for some odd reason, it doesn't detect any colors anymore…
What can be causing this problem?
function InHome : Boolean;
begin
Result := false;
if FindColorTolerance(X, Y, 15133439, 539, 749, 565, 787, 5) then
Result := true
end;procedure home;
begin
T.reset;
T.start;
if (InHome = false) then
begin
aPopUp;
writeLn('We are not in home, going to home.');
mouse(51, 945-20, 0, 0, MOUSE_LEFT);
wait(300);
mouse(51, 945-20, 0, 0, MOUSE_LEFT);
writeLn('Clicked home, going to wait until its true');
begin
repeat
aPopUp;
wait(100);
until (InHome = true) or (T.getTime > 30000);
writeLn('We are in home');
if (InHome = false) then
begin
mouse(51, 945-20, 0, 0, MOUSE_LEFT);
wait(5000+random(1000));
end;
end;
end;
end;What can be causing this problem?