Results 1 to 6 of 6

Thread: Procedure MmmWeGotOff(RedTu, LeWait, rWait: Integer);

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

    Default Procedure MmmWeGotOff(RedTu, LeWait, rWait: Integer);

    Simba Code:
    Procedure MmmWeGotOff(RedTu, LeWait, rWait: Integer);

    going right as I post this, will look back asap

    Simba Code:
    (*
    MmmWeGotOff
    ~~~~~~~~

    .. code-block:: pascal

        Procedure MmmWeGotOff(RedTu: Variant);

    Moves the mouse to the choosen side of the screen, replicating
    the use of a human to move thier mouse "off-screen" as if
    browsing another part of their computer.
    (What do you do when you browsing "other websites?")
    Int Type:

        1 = Go top side, off-screen
        2 = Go bottom side, off-screen
        3 = Go left side, off-screen
        4 = Go right side, off-screen

    .. note::

      by Le Jingle.

    Example:

    .. code-block:: pascal

      MmmWeGotOff(Random(4), 0, 0);

    *)

    Procedure MmmWeGotOff(RedTu, LeWait, rWait: Integer);
    Var
      w, h, rx, ry: Integer;
    Begin
      GetClientDimensions(w, h);
      rx := RandomRange(0, w);
      ry := RandomRange(0, h);
      Case (RedTu) Of
        0..1: MMouse(w, -10, rx, 0);
        2: MMouse(w, h+10, rx, 0);
        3: MMouse(-10, h, 0, ry);
        4: MMouse(w+10, h, 0, ry);
      End;
      Wait(LeWait+Random(rWait));
    End;

  2. #2
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Simba Code:
    begin
                  GetMousePos(x, y);
                  if InRange(x, MSx1, MIx2) then
                    if Random(2) = 1 then
                      while (not (x > MIx2)) do
                        x := x + 20
                    else
                      while (not (x < MSx1)) do
                        x := x - 20;

                  if InRange(y, MSy1, MIy2) then
                    if Random(2) = 1 then
                      while (not (y > MIy2)) do
                        y := y + 20
                    else
                      while (not (y < MSy1)) do
                        y := y - 20;

                  MMouse(x, y, 0, 0);
                end;
    That's what MSI uses for the same thing. It could be done in less code and quicker, but I haven't bothered to do it yet.

  3. #3
    Join Date
    Dec 2011
    Location
    -bash
    Posts
    515
    Mentioned
    0 Post(s)
    Quoted
    27 Post(s)

    Default

    Looks like a nice antiban, although I think we already have one like this...

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

    Default

    MmmWeGotOff

    Just me being slightly immature, or does anyone else see it?
    <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.

  5. #5
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    Quote Originally Posted by Rich View Post
    MmmWeGotOff

    Just me being slightly immature, or does anyone else see it?
    I think we all see it. <3

    I'm not a huge fan of this. Doesn't seem like there's too much point unless you actually make rs leave the foreground, but even then I don't think it's too useful.

    Debbie Downer in the house.

  6. #6
    Join Date
    May 2008
    Location
    ;)
    Posts
    576
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by i luffs yeww View Post
    I think we all see it. <3

    I'm not a huge fan of this. Doesn't seem like there's too much point unless you actually make rs leave the foreground, but even then I don't think it's too useful.

    Debbie Downer in the house.
    This can be done already, if I'm not mistaken. And, it's antiban. If this isn't useful, then most of the other antiban isn't either.

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
  •