SRL Archive - SRL Suggestions

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

going right as I post this, will look back asap :p

(*
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; 

            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.

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

MmmWeGotOff

Just me being slightly immature, or does anyone else see it?

From: Rich
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.

From: i luffs yeww
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.