Results 1 to 3 of 3

Thread: annoying...

  1. #1
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default annoying...

    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.
    makes mouse move in circle likle movement..
    (keeps my sister off my comp.)

  2. #2
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 88 is:
    Code:
    a:=a-
    change it to:
    Code:
    a:=a-a;

  3. #3
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    sorry my bad i copyed it wrong..
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. So annoying. Help!
    By BKNYKavkaz in forum OSR Help
    Replies: 4
    Last Post: 04-29-2008, 01:54 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •