Video Game point and click...over and over

[blueguyz]

[scar]program Omerta;
var
i: Integer;

begin
     ClearDeBug;
     i:= 0;
     while true do
     begin
      repeat
        i:= i + 1;
        ClickMouse (40, 422, true);
        Wait (1000);
        ClickMouse (690, 550, true);
        Wait (80000);
      Until (i= 3);
      ClickMouse (40, 422, true);
      Wait (1000);
      ClickMouse (690, 550, true);
      Wait (60000);
      ClickMouse (40, 440, true);
      Wait (1000);
      ClickMouse (690, 529, true);
      Wait(20000);
    end;
end.[/scar]