Encontre esto, talvez te sirve..
{.Script Info:
# ScriptName = Uclix
# Author = Sean R
# Description = A safe autoclicker. Choose four spots to autoclick!
# Version = v1.0
# Date = January 7th 2008
# Comments = I chose not to use SRL becuase it really wasnt necassary.
/Script Info}
program Uclix;
/////////////HOW TO OPERATE//////////////////////////
{
step 1: press the start button on scar
step 2: to set the four mouse click positions move your mouse to the first click spot
and press q for the second press w for the third press e for the fourth press r.
step 3: press a to begin clicking.
step 4: when you are done HOLD a until the movement stops to stop the script and
show report.
note: im not sure why but sometimes if its your first time running this script it
will automaticly start clicking. to fix this just restart the script.
}
/////////////HOW TO OPERATE//////////////////////////
const
o = 1000; //time to wait before the second click
oo = 1000; //time to wait before the third click
ooo = 1000; //time to wait before the fourth click
oooo = 1000; //time to wait before the first click (before the loop reapeats)
var
clicks,a,b,c,d,e,f,g,h:integer;
procedure pos;
begin
repeat
if (iskeydown('q')) then
getmousepos(a,b)
if (iskeydown('w')) then
getmousepos(c,d)
if (iskeydown('e')) then
getmousepos(e,f)
if (iskeydown('r')) then
getmousepos(g,h)
until(iskeydown('a'))
end;
procedure click;
begin
repeat
movemousesplineex(a,b,1,1,10,35,65)
clickmousespline(a,b,1,1,true)
wait(o + random(100))
movemousesplineex(c,d,1,1,10,35,65)
clickmousespline(c,d,1,1,true)
wait(oo + random(100))
movemousesplineex(e,f,1,1,10,35,65)
clickmousespline(e,f,1,1,true)
wait(ooo + random(100))
movemousesplineex(g,h,1,1,10,35,65)
clickmousespline(g,h,1,1,true)
wait(ooo + random(100))
clicks:= clicks + 4
until(iskeydown('a'))
end;
begin
pos;
click;
writeln('clicked a total of' + inttostr(clicks) + ' times')
end.
