SRL Archive - Other Scripts

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.

makes mouse move in circle likle movement..
(keeps my sister off my comp.)

Line 88 is:

a:=a-

change it to:

a:=a-a;

:D

sorry my bad i copyed it wrong..