Results 1 to 4 of 4

Thread: help with moving mouse? again?

  1. #1
    Join Date
    Oct 2008
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help with moving mouse? again?

    program New;

    {.include SRL/SRL.Scar}

    var
    x,y: Integer;

    begin
    setupsrl;
    wait (5000)
    MMouse(x,y, 288, -37);
    wait(1000+random(50));
    Mouse(x,y, 288, -37, true);
    wait(3000+random(1000))
    end.


    what i'm trying to do is run this script to press the red stop button on scar it's self, as test

    Full screen

    any help would be appreciated

  2. #2
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    SCAR Code:
    program New;

    {.include SRL/SRL.Scar}

    var
      x,y: Integer;

    begin
      SetupsSRL;
      Wait(5000)
      MMouse(288, -37, 5, 5);
      Wait(1000 + Random(50));
      Mouse(288, -37, 5, 5, True);
      Wait(3000 + Random(1000))
    end.

    Try that.
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  3. #3
    Join Date
    Oct 2007
    Location
    If (Online) then Loc := ('On comp') else Loc := ('Somewhere else!');
    Posts
    2,020
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    here ya go 1 is a li off but the other makes up for it and clicks the red button

    fullscreen ya wanted it wasnt it??

    justtry and tell me if it worked

    SCAR Code:
    program New;
    {.include SRL/SRL.Scar}


    begin
      SetupSRL;
      ClearDebug;
      Wait(1200)
      MMouse(292, 45, 0, 0);
      writeLn('Moveing mouse just a lil  off the stop button');
      Wait(1000 + Random(50));
      WriteLn('Now Clicking the stop button');
      Mouse(292, 55, 0, 0, True);
      Wait(3000 + Random(1000))
    end.

    here another example moves mouse to the right then clicks stop jus mess with the numbers after mmouse or mouse see what ya come up with

    SCAR Code:
    program New;
    {.include SRL/SRL.Scar}


    begin
      SetupSRL;
      ClearDebug;
      Wait(1200)
      MMouse(980, 45, 0, 0);
      writeLn('Moveing mouse just a lil  off the stop button');
      Wait(1000 + Random(50));
      WriteLn('Now Clicking the stop button');
      Mouse(292, 55, 2, 2, True);
      Wait(3000 + Random(1000))
    end.

  4. #4
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    To use Variables x and y as i saw :

    SCAR Code:
    program New;

    {.include SRL/SRL.Scar}

    var
    x,y: Integer;

    begin
    setupsrl;
    wait (5000)
    MMouse(x,y, 288, -37);//here
    wait(1000+random(50));
    Mouse(x,y, 288, -37, true);//here
    wait(3000+random(1000))
    end.

    You must define x and y.
    For example , here it would be :

    SCAR Code:
    program New;

    {.include SRL/SRL.Scar}

    var
    x,y: Integer;

    begin
      SetupSRL;
      If FindColor(x,y,ColorOfTheStopButton,BX,BY,BXX,BYY) then //BX,BY,BXX,BYY stand for BetweenX,Y,XX,YY...
      begin
        Wait (5000)
        MMouse(x,y, 288, -37);
        Wait(1000+random(50));
        Mouse(x,y, 288, -37, true);
        Wait(3000+random(1000));//You forgot the semicolon here
      end;
    end.

    That way it compiles even though i'm quite sure it won't click the button because of the randomisation being big...

    Thanks.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mouse moving wierd...
    By Aser in forum OSR Help
    Replies: 0
    Last Post: 01-17-2009, 11:46 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
  •