Results 1 to 7 of 7

Thread: MMRandom Antiban

  1. #1
    Join Date
    Jan 2012
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default MMRandom Antiban

    Simba Code:
    Function MMRandom(Time:integer):boolean;
    var
      x, y, fx, fy, t:integer;
    begin
      result:= false;
      MarkTime(t);
      GetMousePos(x, y);
      repeat
        repeat
          fx := (x + random(715) - random(715));
          fy := (y +random(474) - random(474));
        until (fx > 0) and (fx < 715) and (fy > 0) and(fy < 474);
        wait(150+random(250));
        MMouse(fx, fy, 5, 5);
      until (TimeFromMark(t) >= Time);
    end;

    Thought this might be a cool antiban to have. Kinda like you bumped your mouse and it got all wild for a bit.

    MMRandom(100);
    -My Scripts-
    Dude'sFighters
    Dude'sBonfires
    Donations help with scripting Paypal!

  2. #2
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    If I may as, what would you suppose you would use this for?

  3. #3
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Perhaps instead of using the interesting random generator you've implemented, you could just use RandomRange? Also, the repeats and result really aren't necessary. The only thing that can come from repeat..until is jerking the mouse around randomly multiple times, which doesn't seem very humanlike. As for the result, mouse movements are generally procedures.

    Try something like this:

    Simba Code:
    procedure MMRandom;
    var
      x, y, rx, ry:integer;
    begin
      GetMousePos(x, y);
      rx := RandomRange(-700, 700);
      ry := RandomRange(-450, 450);
      MMouse(x + rx, y + ry, 0, 0);
      Wait(250+Random(750));
    end;

    If you want to get fancy you could add things like:

    Simba Code:
    procedure MMRandom(xRange, yRange: Integer);
    ...
      rx := RandomRange(-xRange, xRange);
      ry := RandomRange(-yRange, yRange);
    ...

    EDIT: Whoops, thanks Le Jingle
    Last edited by Runaway; 05-21-2012 at 07:38 PM.

  4. #4
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    you should take the result out lol

    also, I support more so what Runaway said. I didn't find the original function all to human like, and in addition, I find moving the mouse randomly once is better than jerking it randomly around for an amount of time (But moving the mouse in patterns seems to be a good antiban [ovals, spirals, cirlces, zig-zags - all randomed too ofcourse, to prevent "perfect" patterns lol]).

  5. #5
    Join Date
    Jan 2012
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Yeah. I like Core's last one. I just had the idea and thought I might try to implement it as best I could. Would it be possible to get something like this into the antiban procedures??
    -My Scripts-
    Dude'sFighters
    Dude'sBonfires
    Donations help with scripting Paypal!

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
  •