Help with new script

[Daymare]

I'm a total scripting noob. All I want to do is for the script to see if a color is in a certain area, then click that area, then do it again for a second area. Basically just an auto login for a private server.

I've put one together using the findcolor method, and even if the color isn't there at the time, it still clicks on the area. I just don't get it.

Program AutoLogin;
var x,y:integer;

procedure LoginClick;
begin
if(FindColor(x,y,4044681,289,429,324,437))then
begin
ClickMouse (307,435,True);
end;
end;

procedure LoginClick2;
begin
if(FindColor(x,y,3315569,462,384,480,396))then
begin
ClickMouse (472,391,True);
end;
end;

begin
repeat
LoginClick;
wait(1000)
LoginClick2;
wait(3000)
until(false)
end.

What am I doing wrong?

 

[cazax]

Remove your loop (repeat - until(false)) and see how far it goes.