[SRL4] AutoClicker

No problem.

 

try this no srl needed

Code:

{
Time usage recomendation: as long as you want
Class of script: AutoClicker
Complexity 1-10: 1
Bugs: None
Notes: I dont expect you to love this, but i just figured, why not.

.Script Info:
# ScriptName  = Clixer
# Author      = GMK
# Description = Simply clicks in one place for you repeatedly
# Version     = 1.0
# Date        = November 6th 2007
# Comments    = Simple.Short.Enjoy.
/Script Info}

program Clixer;

const
waitz = 1000;//time to wait between clicks
fkey  = 2;// fkey to use to set the position.



var
c1,l1:integer;
x,y:integer;



procedure Welcome;
begin
l1:=0
c1:=0
x:=0
y:=0
cleardebug;
writeln('clixer. Made by GMK. Enjoy.')
end;

Procedure Clicset;
begin
if isfkeydown(fkey) then
begin
getmousepos(x,y)
c1:=x
l1:=y
end;
end;

Procedure Clic;
begin
if c1>0 then
begin
repeat
Wait(waitz)
clickmouse(c1,l1,true)
until(false)
end;
end;

begin
Welcome;
repeat
wait(2)
Clicset;
clic;
until(false)
end.

 

hello