SRL Archive - Research & Development Lounge

Ok so idk if this would work as and antiban but its what i do every once and a while while waiting

{*******************************************************************************
Procedure Shimmymouse(Times : integer);
By: J_Pizzle
Description: Shimmys the mouse around the screen
*******************************************************************************}
Procedure Shimmymouse(Times : integer);
var
  tx, ty, stop : integer;
begin
  repeat
    getmousepos(tx, ty);
    if (random(2) = 0) then
      MMouse(tx + random(84), ty + random(10), 5, 5)
    else
    MMouse(tx - random(84), ty - random(10), 5, 5);
    inc(Stop);
  until ( stop >= Times + random(5));
end;

you have tx/ty with two +'s and -'s, what about a minus/plus and a plus/minus, I think that would just add to it to make it better. also can't it be shortened to just be:

MMouse(randomrange(tx-random(84), tx+random(84)), randomrange(ty-random(84), ty+random(84)), 5, 5);

then take out the if/then/else.

and also, that would take care of what I said could be added.

Good idea for an antiban, but I think it's been done before, like pickupmouse, and I see lots of people do MMouse(random(xx), random(yy), 0, 0) but it's still a good idea.