Results 1 to 2 of 2

Thread: MouseCircle

  1. #1
    Join Date
    Dec 2011
    Location
    New York, USA
    Posts
    1,242
    Mentioned
    12 Post(s)
    Quoted
    193 Post(s)

    Default MouseCircle

    MouseCircle(); doesn't work, I created a whole new procedure for it.

    Clicks randomly within the circle whos midpoint is (midx, midy) and has a radius of Radius.

    Simba Code:
    Procedure MouseCircle(midx, midy, Radius: integer; button: variant);
    var
      x, y: Variant;
    begin
      x := RandomRange((midx - Radius), (midx + Radius + 1));
      case Random(2) of
        0: y := Round(sqrt(sqr(Radius) - sqr(x-midx)) + midy);                    
        1: y := midy + (midy - (Round(sqrt(sqr(Radius) - sqr(x-midx)) + midy)));  
      end;
      y := RandomRange(midy, y+ 1);
      Mouse(x, y, 0, 0, Button);
    end;

  2. #2
    Join Date
    Apr 2008
    Location
    Marquette, MI
    Posts
    15,252
    Mentioned
    138 Post(s)
    Quoted
    680 Post(s)

    Default

    What about the current one doesn't work? Also, we have MouseOval, and if that works properly, should be used for MouseCircle.

    E: Fixed in the next version. The parameters were completely off.
    Simba Code:
    procedure MouseCircle(MidX, MidY, Radius, clickType: Integer);
    begin
      MouseOval(MidX, MidY, Radius, Radius, clickType);
    end;
    Last edited by Coh3n; 03-22-2012 at 05:27 AM.

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
  •