PDA

View Full Version : lardmasters boredmouse



lardmaster
10-21-2006, 07:20 PM
here is a script that will do random circles, it isnt that good, and im working on it. any feedback would be nice!


program coolcircles;

var i,offsetsin,offsetcos:extended;
tox,toy,lastx,lasty,xmove,ymove,centerx,centery,de formx,deformy:integer;
reverse:boolean;
begin
reverse:=random(2)=1;
sleep(1000);
getmousepos(centerx,centery);
centerx:=centerx-100;
deformx:=100;
deformy:=100;
while (i<random(25)+40) and (i>-1*(random(25)+40))do begin
if random(20)=1 then begin
offsetsin:=random(round(Pi()*100/3))/100;
offsetcos:=random(round(pi()*100/3))/100;
end
if random(12)=1 then deformx:=deformx-17+random(38);
if random(12)=1 then deformy:=deformy-17+random(38);
xmove:=random(3)-1;
ymove:=random(3)-1;
tox:=round(cos(i+offsetcos)*deformx)+xmove+centerx ;
toy:=round(sin(i+offsetcos)*deformy)+ymove+centery ;
movemouse(tox,toy);
sleep(random(2)+1);
if not reverse then i:=i+20/sqrt(sqr(deformx)+sqr(deformy))
else i:=i-20/sqrt(sqr(deformx)+sqr(deformy));
getmousepos(lastx,lasty);
if random(20)=1 then begin
getmousepos(lasty,lasty);
centerx:=round(lastx-(cos(i)*deformx))+random(21)-10;
centery:=round(lasty-(sin(i)*deformy))+random(21)-10;
end
end
i:=0;
getmousepos(centerx,centery);
deformx:=200;
deformy:=5;
offsetsin:=Pi()/3;
offsetcos:=0;
if random(3)=1 then begin
reverse:=random(2)=1;
while (i<15+random(10)) and (i>-1*(15+random(10))) do begin
if random(2)=1 then begin
offsetcos:=random(round(pi*100/2))/100;
offsetsin:=random(round(pi*100/2))/100;
end
if random(60)=1 then begin
deformx:= 150+random(100);
deformy:= 3+random(10);
end
xmove:=random(3)-1;
ymove:=random(3)-1;
movemouse(round(cos(i+offsetcos)*deformx+centerx+x move),round(sin(i+offsetsin)*deformy)+centery+ymov e);
if not reverse then i:=i+0.2
else i:=1-0.2;
sleep(5);
end
end
//pickupmouse procedures but i dont want to
//include srl because compling is slow on my comp
end.

EDIT: updated, try it on a mouse event recorder (ibot) you will see its awesome humannes

EDIT: i added a little something special at the end;<--- do you see that semicolon? im used to putting one at the end of a thought, i just did so accedentally

UBERUPDATE!

Brandon1793
10-24-2006, 11:44 PM
Roflmao!!!!!!!!!!!!!!!!!!!!!!

lardmaster
10-25-2006, 12:48 AM
?

CamHart
10-25-2006, 01:52 AM
I'll take a look :D

lardmaster
10-25-2006, 10:05 PM
kool

Desert Storm
10-26-2006, 10:39 AM
kool

Thats a 1 word post
keep it up bud, and youll hit the big 404 :D
Nah.. jking... good job... i think

lardmaster
10-26-2006, 09:20 PM
ok.

jk, jk, i just wanted him to know i agnowledged his comment

X Gilli X
10-26-2006, 11:06 PM
Doesnt work for me :/

lardmaster
10-27-2006, 12:18 AM
what happens?...compileing message, does nothing, or kills the mouse i.e. crazy.

thekubis
11-14-2006, 11:52 PM
is says it does not compile and by saying err funny end or something like that

Tonekray
11-15-2006, 12:03 AM
I tried it and the mouse whizzed along the screen :)

solarwind
11-15-2006, 12:04 AM
Compile error

Edit: nice script, fixed:

program coolcircles;

var i,offsetsin,offsetcos:extended;
tox,toy,lastx,lasty,xmove,ymove,centerx,centery,de formx,deformy:integer;
reverse:boolean;
begin
reverse:=random(2)=1;
sleep(1000);
getmousepos(centerx,centery);
centerx:=centerx-100;
deformx:=100;
deformy:=100;
while (i<random(25)+40) and (i>-1*(random(25)+40))do begin if random(20)=1 then begin
offsetsin:=random(round(Pi()*100/3))/100;
offsetcos:=random(round(pi()*100/3))/100;
end if random(12)=1 then deformx:=deformx-17+random(38);
if random(12)=1 then deformy:=deformy-17+random(38);
xmove:=random(3)-1;
ymove:=random(3)-1;
tox:=round(cos(i+offsetcos)*deformx)+xmove+centerx ;
toy:=round(sin(i+offsetcos)*deformy)+ymove+centery ;
movemouse(tox,toy);
sleep(random(2)+1);
if not reverse then i:=i+20/sqrt(sqr(deformx)+sqr(deformy)) else i:=i-20/sqrt(sqr(deformx)+sqr(deformy));
getmousepos(lastx,lasty);
if random(20)=1 then begin
getmousepos(lasty,lasty);
centerx:=round(lastx-(cos(i)*deformx))+random(21)-10;
centery:=round(lasty-(sin(i)*deformy))+random(21)-10;
end end
i:=0;
getmousepos(centerx,centery);
deformx:=200;
deformy:=5;
offsetsin:=Pi()/3;
offsetcos:=0;
if random(3)=1 then begin
reverse:=random(2)=1;
while (i<15+random(10)) and (i>-1*(15+random(10))) do begin if random(2)=1 then begin
offsetcos:=random(round(pi*100/2))/100;
offsetsin:=random(round(pi*100/2))/100;
end if random(60)=1 then begin
deformx:= 150+random(100);
deformy:= 3+random(10);
end
xmove:=random(3)-1;
ymove:=random(3)-1;
movemouse(round(cos(i+offsetcos)*deformx+centerx+x move),round(sin(i+offsetsin)*deformy)+centery+ymov e);
if not reverse then i:=i+0.2 else i:=1-0.2;
sleep(5);
end end //pickupmouse procedures but i dont want to //include srl because compling is slow on my comp
end.

Junior
11-15-2006, 01:35 AM
I tried it, it circled way too fast and only for like 3 seconds.
Nice script though keep updating and it would beee crazzzyyy.

solarwind
11-15-2006, 05:24 AM
Yeah, this script is awesome. Lardmaster, can you please explain to us the theory behind it?

Hey321
11-15-2006, 12:07 PM
Awsome try it with srl included :).

lardmaster
11-16-2006, 09:04 PM
here is what is wrong, i use pentium -1, so i needed to put in a very small wait for it to move at a good speed for my comp, the theory is this:

we are moving in a circle, so x can be determined by sin, and y can be determined by cos.

sometimes when people move the mouse, the circle bulges, thus the amplitude changes.

the bulges arent always up-down or left-right, so i made an offset for sin and cos, so it will be diagonal.

the center of the circles also moves, and it does so by tracking where the center would be if there were no deformations, and randomly setting it to that. this way, it is not always circle shaped

at the end, the mouse should move quickly back and forth.

tell me any errors you get so i can fix them!