Why doesn't :
SCAR Code:program New;
var
sx,sy,TTCs : string;
x,y,TTC,TC : integer;
Procedure GetCoords;
begin
sx := Readln('X coord = ');
sy := Readln('Y coord = ');
TTCs := Readln('Times to click :');
Writeln('Coords chosen : '+sx+','+sy+'.');
x := StrToInt(sx);
y := StrToInt(sy);
TTC := StrToInt(TTCs);
end;
Procedure ClickCoords;
begin
ClickMouse(x,y,true);
Wait(1/1000);
end;
begin
repeat
ClickCoords;
TC := TC+1;
until(TC >= TTC);
end.
Work properly ?




Reply With Quote






.



