Results 1 to 13 of 13

Thread: MessUpMouse.

  1. #1
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default MessUpMouse.

    Whenever Im alching or doing a task, I noticed sometimes if my elbow sleeps then my mouse moves very fast away from my destination then I move it back to click or if someone bumps you while your moving the mouse or bout to click.I've made a function that mimics that movement. Ignore Standards -.-


    SCAR Code:
    program New;
    {.Include srl/srl.scar}


    {*******************************************************************************
    Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickString:String);
    By: BuckleyInDaHouse
    Description: Tries to move the mouse to destination messing
    up in the process as you was bumped or slipped then moves
    the mouse back and clicks in the correct place.
    X,Y : Coords.
    Rx,Ry:Random X,Y.
    Click : True to click False To Right Click.
    ClickString:Only matters if click is false and this is for ChooseOption.
    *******************************************************************************}


    Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickString:String);
    Var xx,yy:Integer;
    Begin
    If(Click)Then
     Begin
     MMouse(x,y,rx,ry);
     MouseSpeed := 1;
      Case Random(2) Of
       0 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
       1 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
      End;
       GetMousePos(xx,yy);
       WriteLn('Moved Mouse to X:'+IntToStr(xx)+',Y:'+IntToStr(yy));
       MouseSpeed := 15+Random(10);
      Mouse(x,y,0,0,True);
     End;
    If(Not(Click))Then
     Begin
     MMouse(x,y,rx,ry);
     MouseSpeed := 1;
      Case Random(2) Of
       0 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
       1 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
      End;
       GetMousePos(xx,yy);
        WriteLn('Moved Mouse to X:'+IntToStr(xx)+',Y:'+IntToStr(yy));
       MouseSpeed := 15+Random(10);
      Mouse(x,y,0,0,False);
     ChooseOption(x,y,ClickString);
     End;
    End;

    Begin
    MessUpMouse(638,192,3,3,True,'none');
    End.

    HopeFully it works out good.

  2. #2
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Looks nice

    Maybe you should get the mousespeed at the beginning and set it back at the end.

    MessUpMouse > MUM
    Hup Holland Hup!

  3. #3
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by nielsie95 View Post
    Looks nice

    Maybe you should get the mousespeed at the beginning and set it back at the end.

    MessUpMouse > MUM

    I will take you advice and see what i can do about the mouse speed. I like the code name loo MUM.

  4. #4
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Looks very nice. I do this a lot lol.


  5. #5
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Thanx.

  6. #6
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.Include srl/srl.scar}

    {*******************************************************************************
    Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickString:String);
    By: BuckleyInDaHouse
    Description: Tries to move the mouse to destination messing
    up in the process as you was bumped or slipped then moves
    the mouse back and clicks in the correct place.
    X,Y : Coords.
    Rx,Ry:Random X,Y.
    Click : True to click False To Right Click.
    ClickString:Only matters if click is false and this is for ChooseOption.
    *******************************************************************************}


    procedure MessUpMouse(x, y, rx, ry : Integer; Click : Boolean; ClickString : string);
    var xx, yy : Integer;
    begin
      if (Click) then
      begin
        MMouse(x, y, rx, ry);
        MouseSpeed := 1;
        case Random(2) of
          0 : MMouse(x + (70) - Random(5), y + (-70) - Random(5), 5, 5);
          1 : MMouse(x + (70) - Random(5), y + (-70) - Random(5), 5, 5);
        end;
        GetMousePos(xx, yy);
        WriteLn('Moved Mouse to X:' + IntToStr(xx) + ',Y:' + IntToStr(yy));
        MouseSpeed := 15 + Random(10);
        Mouse(x, y, 0, 0, True);
      end;
      if (not (Click)) then
      begin
        MMouse(x, y, rx, ry);
        MouseSpeed := 1;
        case Random(2) of
          0 : MMouse(x + (70) - Random(5), y + (-70) - Random(5), 5, 5);
          1 : MMouse(x + (70) - Random(5), y + (-70) - Random(5), 5, 5);
        end;
        GetMousePos(xx, yy);
        WriteLn('Moved Mouse to X:' + IntToStr(xx) + ',Y:' + IntToStr(yy));
        MouseSpeed := 15 + Random(10);
        Mouse(x, y, 0, 0, False);
        ChooseOption(x, y, ClickString);
      end;
    end;

    begin
      MessUpMouse(638, 192, 3, 3, True, 'none');
    end.

    Before JAD gets here
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  7. #7
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Eh, thats why i said ignore the standards. I don't care bout standards really all that much.

  8. #8
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Grr! You have no idea how long it took to put that through a formatter! Anyways, I thought 'Eh' was what I always said?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  9. #9
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    Grr! You have no idea how long it took to put that through a formatter! Anyways, I thought 'Eh' was what I always said?
    It was, until you gave me the "eh" disease. -.- i hate you.

  10. #10
    Join Date
    Nov 2006
    Location
    basingstoke(u.k woot!)
    Posts
    382
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OFFTOPIC.

    LMFAO at that black guy in your sig.

  11. #11
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by joshie View Post
    OFFTOPIC.

    LMFAO at that black guy in your sig.
    .

  12. #12
    Join Date
    May 2007
    Location
    in a pineapple under the sea
    Posts
    1,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    nice idea Buckley

    keep'em comin.
    [SIZE="4"][CENTER][URL="http://www.youtube.com/watch?v=5YsGJz3j4os"]LOL u mad bro?[/URL][/CENTER][/SIZE]

  13. #13
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Timothegreat View Post
    nice idea Buckley

    keep'em comin.
    I sure will once I think of some more .

Thread Information

Users Browsing this Thread

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

Posting Permissions

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