cyberclick by denial

current version: 1.0, and its prolly gona stay that way for awhile.
once again, please post any bugs suggestions etc

Code:

/////////////////////////////////////////////////////////////////////
//////////////////////////////DENIAL/////////////////////////////////
//////////////////////////CYBERCLICK  1.0////////////////////////////
//////////////////////////<(-.-<)|(>-.-)>////////////////////////////
/////////////////////////////////////////////////////////////////////
// cyberclick:
//an autoclicker by denial
// how to use?
//use the setup below to set everything you need!
//setup..




program Cyberclick;

const

Clickinterval = 1000;//how long between each click.

Random1 = 1500;
//a basic anti-ban feature, with default settings, the script will
//click every 1000 seconds plus a random amount of milliseconds from
//0 to 1500.

Initialwait = 5000;//this is how long before this script will start
//giving you a chance to move your mouse to were you want to click.

Clicktimes = 10;//how many times to click, set as false for unlimited.

Lock = 0;//what the lock does is allow you to lock the mouse to a certain position
//or unlock it so you can move the mouse while the script clicks. briefly:
//set lock to 0 for locked mouse (unable to move)
//set lock to 1 for unlocked mouse ( so you can move mouse if you want
//to click elsewhere)


var

x, y, i, j: integer;


begin
wait(initialwait)
getmousepos(x, y);

repeat
i:= i + 1
j:= Lock
if j = 1 then
getmousepos(x, y) else
i:= i + 1
writeln('click number ' + IntToStr(i));
clickmouse(x, y, true);
wait(clickinterval+random(Random1));


until i = Clicktimes;
Writeln('autoclicking succesful, executing script...');
end.

 

Don't use ClickMouse, instead use Mouse from the SRL.

 

i know, im doing a small update to make it less detectable today