SRL Archive - RS Scripts

Auto Clicker


Jag024

2006-03-07 21:56:08

This is a autoclicker I have found, I believe it is Dark Sniper's?


program autoclicker;

const
color=6717590 ;
seconds=1;

var
x, y:integer;

begin
repeat
activateclient;
if(color > 0)then
findcolorspiral(x, y, color, 0, 0, 500, 300)
if(color > 0)then
movemouse(x, y)
getmousepos(x, y)
holdmouse(x, y, true)
wait(40+random(50))
releasemouse(x, y, true)
wait(seconds * 1000)
until(false)
end.

Hopefully you will find a use for it:)

masquerader

2006-03-07 22:47:20

er.. good job on your first script?
you're making progress
i think you need some begins and ends in there some where though…

use code tags and such, and also use a better mouse procedure

like the crazy one with bezier splines

Krazy_Meerkat

2006-03-07 23:10:27

I recall someone making this script for you.. I just don't remember who it was…

Jag024

2006-03-09 10:56:08

EDIT*: I am sorry, I took the wrong autoclicker out of my file, this one was not mine. I am again, very sorry.

Krazy_Meerkat

2006-03-09 17:17:06

That's fine :) As long as you have given credit, which you have ;)

XxKanexX

2006-03-10 09:32:24

if(color > 0)then

0 is a color, Black.

You could do, if(color > -1)then ;)

timmyboy

2006-03-13 14:17:51

So does this just click in one spot?

Jag024

2006-03-14 12:32:30

Well, depending on the color you choose.

XxKanexX

2006-03-14 15:48:48

MoveMouse = ban.

Use SRL?


{.Include SRL/SRL.scar}
Const
Color = 0;

begin
if(Color < 0)then
Terminatescript;
SetupSRL;
repeat
if(FindColorSpiral(x, y, color, MSX1, MSY1, MSX2, MSY1))then
begin
Mouse(x, y, 3, 3, true);
wait(20 + random(40));
end;
wait(50 + random(20));
until(false);
end.

devilion

2006-03-15 13:27:34

it doenst work can someone help me