SRL Archive - Other Scripts

CircleMouse(x,y,Size,Times,Speed:Integer;Hold,Clic k,Left:Boolean);


Pentti

2007-02-03 14:35:43

I was trying to find a procedure which makes a circle with your mouse, but I didnt find any so I decided to make this…

Version 2:
Picture of it's perfect circle movements:
Now it's almost or IS just like circle. :D

Version 1:
Heres a picture of its movements.
it's not 100% like a circle, but something like that. And bullshit, Now it is, in version 2!!! :D

Please comment.

lardmaster

2007-02-03 15:05:15

try doing numtimes *20… it will be a lot more circular.

i made something similar to this, but it moved the mouse in ovals too, and it had randomness, and the center randomly moved.

good job!

Buckleyindahouse

2007-02-03 15:30:17

Nice, we can probly integrate this into anti-ban, like when I get bored I personally move this mouse in small random circles.

Pentti

2007-02-03 15:48:07

Thanks for your comments. :D I'll try to make that x and y coordinates more accurated (X and y would be in the middle of the circle)

LardMaster, *7 does one time whole circle, *20 does it about 3 times…
:D

Boreas

2007-02-03 16:01:29

Look here for how to make more smaller intervals.


As for anti ban, do what you do while bored on paint. It will actually be further from a circle than you think, and pretty hard to emulate.

lardmaster

2007-02-03 21:43:33

gahhhhhhhhhh….must i LINK… this is the exact thought process i went through, and i this is what i made:

http://www.villavu.com/forum/showthread.php?t=3080?t=3753

i think solarwind fixed it for normal-speed computers.

and yes, it is a hawt idea.

Pentti

2007-02-06 12:09:14

Haha! You guys got to love this! Look at my new CircleMouse!!! Perfect circle. :D Please comment about it.

Starblaster100

2007-02-06 12:25:51

may i ask the uses of this function?

Pentti

2007-02-06 12:26:25

heh, I dont know yet. :D

Starblaster100

2007-02-06 12:32:20

hmm ok, well perfect circles have been made along time ago in SCAR


Procedure SpiralMouse(StartAngle, EndAngle, MiddleOfCircleX, MiddleOfCircleY, Radius : Integer); //By Starblaster100, Maths by Wizzup and Fawki
Var
i, X1, Y1 : Integer;
begin
For I := StartAngle to EndAngle do
Begin
Wait(1);
X1 := Round ( Radius * Sin (I * Pi / 180)) + MiddleOfCircleX;
Y1 := Round (- Radius * Cos (I * Pi / 180)) + MiddleOfCircleY;
MoveMouse(X1, Y1);
end;
end;

BTW, i have already created a procedure / Function called CircleMouse.

Pentti

2007-02-06 12:36:41

umm.. When have you made these? i haven't seen them before…

Starblaster100

2007-02-06 12:38:24

heh, i made these a long time ago and released them at Kaitnieks.com.

Not sure if you were around then?

My CircleMouse is a very large part of my ess miner.

Anyway, they are good functions, always nice to create something old in a new way. Good job

Pentti

2007-02-06 12:41:24

Ok cool, your spiralmouse looks very nice man. :D
And I had nothing to do with Scar when Kaitnieks.com was on.

lardmaster

2007-02-13 21:16:59

its funny how we all made kind of the same thing… mine is more random… yours are more perfect… if scar ever starts working for linux, i will perfect mine.