Results 1 to 6 of 6

Thread: Click the mouse without moving it?

  1. #1
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Click the mouse without moving it?

    Is this possible?

    What's the command?

    Thanks in advanced.

  2. #2
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

  3. #3
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you can move it at light speed... v (don't see it move though...)

    SCAR Code:
    Var
      X, Y, Xr, Yr: Integer;

    Begin
      X := 100;
      Y := 100;
      GetMousePos(Xr, Yr);
      MoveMouse(X, Y);
      ClickMouse(X, Y, True);
      MoveMouse(Xr, Yr);
    End.

  4. #4
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry bad standards just removed some things.

    Basically so it first checks if the mouse is already positioned on a rock, then i want it to click the mouse WITHOUT moving it, because otherwise i get a little shaking thing, which is really detectable and bot-like.

    SCAR Code:
    Begin
      SetUpSRL;
      repeat
        If IsUpText('ocks') Then
        // CLICK MOUSE WITHOUT MOVING IT
        FindColorsSpiralTolerance(Cx, Cy, TPA, ClayColor1, MSX1, MSY1, MSX2, MSY2, 10);
            ATPA := SplitTPA(TPA, 10);
        For I := 0 To High(ATPA) Do
        begin                          
          MiddleTPAEX(ATPA[i], Cx, Cy);
          MMouse(Cx, Cy, 4, 4);    
          If IsUpText('ocks') Then
          Begin
            Mouse(Cx, Cy, 0, 0, True);
            Result := True;
            wait(5000 +random(3000))
            Break;
                       end else
                    WriteLn('Could not find Clay.');
           
        end;
      until false
    end;

  5. #5
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Guess the only way is..

    SCAR Code:
    program New;

    var
      x, y : Integer;

    begin

    HoldMouse(x, y, true)
    wait(5 +random(20))
    ReleaseMouse(x, y, true)
    wait(5 +random(20))
    end.

  6. #6
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by orange View Post
    Guess the only way is..

    SCAR Code:
    program New;

    var
      x, y : Integer;

    begin

    HoldMouse(x, y, true)
    wait(5 +random(20))
    ReleaseMouse(x, y, true)
    wait(5 +random(20))
    end.
    Dont' double post, use the edit button instead.

    Do like this:

    SCAR Code:
    if FindWhateverYouWantTo then
    begin
      MMouse(X, Y, 15, 15); // 15, 15, are X and Y randoms.
      Wait(150 + Random(175));
      If IsUpText('sheep') then
      begin
        GetMousePos(X, Y); // <-- !!!111 Gets the position of the mouse.
        Mouse(X, Y, 0, 0, True); // 0 randomness. :)
      end;
    end;

    Example. Understand?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. help with moving mouse? again?
    By joshdabest01 in forum OSR Help
    Replies: 3
    Last Post: 11-01-2008, 12:54 PM
  2. help with moving mouse?
    By joshdabest01 in forum OSR Help
    Replies: 2
    Last Post: 11-01-2008, 09:52 AM
  3. [help] Moving mouse in a circle.
    By enig.ma in forum OSR Help
    Replies: 5
    Last Post: 12-26-2007, 02:37 PM
  4. Moving the mouse...
    By Jason2gs in forum Delphi/FPC Help and Tutorials
    Replies: 8
    Last Post: 08-10-2007, 05:48 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
  •