makes mouse move in circle likle movement..Code:const circle=24;//the bigger the number the bigger the circle. procedure mouse_random; var a,x,y:integer; begin repeat a:=a+1 getmousepos(x,y) x:=x-1 y:=y wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x-1 y:=y+1 wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x y:=y+1 wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x+1 y:=y+1 wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x+1 y:=y wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x+1 y:=y-1 wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x y:=y-1 wait(10) movemouse(x,y) until(a=circle) a:=a-a repeat a:=a+1 getmousepos(x,y) x:=x-1 y:=y-1 wait(10) movemouse(x,y) until(a=circle) a:=a-a end; procedure stop; begin if(iskeydown('a'))then begin if(iskeydown('s'))then begin if(iskeydown('d'))then begin if(iskeydown('f'))then begin Terminatescript; end; end; end; end; end; begin repeat mouse_random; stop; until(false) End.
(keeps my sister off my comp.)




Reply With Quote

