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!
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!