t4q
2012-02-12 12:43:55
Hi, im new to this and I cant get this to work.. It just right clicks one place and doesn't move to color :(
program pick;
var
x, y: integer;
procedure Pick;
begin
if (FindColor (x, y, 12415048, 3, 25, 505, 353)) then
begin
ClickMouse(x, y, mouse_Right);
wait(1300);
end;
end;
begin
repeat
Pick;
until (False);
end.