Results 1 to 6 of 6

Thread: Why doesnt my mouse move?

  1. #1
    Join Date
    May 2017
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Why doesnt my mouse move?

    Im really new to coding, could use help. so who helps me?

    program new;
    procedure ClickOre();
    var
    X, Y: Integer;
    begin
    if FindColorTolerance(X, Y, 4216963, 290, 190, 313, 161, 5) then
    begin
    MoveMouse(X, Y);
    wait(250);
    ClickMouse(X, Y, mouse_Left)
    end;
    end;
    it should click that location of color right?>

    I dont get ANY errors by running this script.

    If you really want to help me more skype me: live:faabsservice > i would appericiate it ALOT ! cuz this it will take you 5 mints for me already 2 hours ;/ XD

  2. #2
    Join Date
    Aug 2016
    Location
    Kentucky
    Posts
    254
    Mentioned
    3 Post(s)
    Quoted
    96 Post(s)

    Default

    Also have the script print a message out if it finds the colors to be sure it's even finding them in the first place.

    Example: writeln('we found the color!');
    Also your procedure is called ClickOre(). If this is the only code in the script, it's never actually called. It's just there.

    You would need something like

    Simba Code:
    program new;
    procedure ClickOre();
    var
    X, Y: Integer;
    begin
    if FindColorTolerance(X, Y, 4216963, 290, 190, 313, 161, 5) then
    begin
    MoveMouse(X, Y);
    wait(250);
    ClickMouse(X, Y, mouse_Left)
    end;
    end;

    begin
    ClickOre();
    end;

    To actually run the procedure.
    Last edited by Aspect; 05-23-2017 at 07:29 PM.

  3. #3
    Join Date
    Jan 2012
    Location
    Sydney, Australia
    Posts
    877
    Mentioned
    12 Post(s)
    Quoted
    368 Post(s)

    Default

    The standards! They burn my eyes!

    Don't forget your indents people

    Also, fullstop at the last end

    Simba Code:
    program new;

    procedure ClickOre();
    var
      X, Y: Integer;
    begin
      if FindColorTolerance(X, Y, 4216963, 290, 190, 313, 161, 5) then
      begin
        MoveMouse(X, Y);
        wait(250);
        ClickMouse(X, Y, mouse_Left)
      end;
    end;

    begin
      ClickOre();
    end.

  4. #4
    Join Date
    Dec 2010
    Posts
    483
    Mentioned
    30 Post(s)
    Quoted
    328 Post(s)

    Default

    Quote Originally Posted by Dan the man View Post
    The standards! They burn my eyes!

    Don't forget your indents people

    Also, fullstop at the last end

    Simba Code:
    program new;

    procedure ClickOre();
    var
      X, Y: Integer;
    begin
      if FindColorTolerance(X, Y, 4216963, 290, 190, 313, 161, 5) then
      begin
        MoveMouse(X, Y);
        wait(250);
        ClickMouse(X, Y, mouse_Left)
      end;
    end;

    begin
      ClickOre();
    end.
    Simba Code:
    program new;

    procedure ClickOre();
    var
      x, y: Integer;
    begin
      if (FindColorTolerance(x, y, 4216963, 290, 190, 313, 161, 5)) then
      begin
        MoveMouse(x, y);
        Wait(150 + Random(100));
        ClickMouse(x, y, MOUSE_LEFT);
      end;
    end;

    begin
      ClickOre();
    end.

    Just to be that guy.

  5. #5
    Join Date
    Jan 2012
    Location
    Sydney, Australia
    Posts
    877
    Mentioned
    12 Post(s)
    Quoted
    368 Post(s)

    Default

    Quote Originally Posted by the bank View Post
    Simba Code:
    program new;

    procedure ClickOre();
    var
      x, y: Integer;
    begin
      if (FindColorTolerance(x, y, 4216963, 290, 190, 313, 161, 5)) then
      begin
        MoveMouse(x, y);
        Wait(150 + Random(100));
        ClickMouse(x, y, MOUSE_LEFT);
      end;
    end;

    begin
      ClickOre();
    end.

    Just to be that guy.
    Lmao I love it!

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
  •