SRL Archive - SRL Archives

LookLikeAFK ~ Antiban.scar

Tickyy

2009-08-30 12:38:35


{*******************************************************************************
Procedure LookLikeAFK(WaitFrom, Wto : integer);
By: Tickyy
Description: Acts like you were Away from keyboard, It'll move the mouse to a
random place and wait for a Random-Range of WaitFrom and Wto + small random
waiting.

Recommended wait time: 20 Seconds or more...
*******************************************************************************}
Procedure LookLikeAFK(WaitFrom, Wto : integer);
begin
  if (not(LoggedIn)) then Exit;
  
  Case Random(9) of
    0: MMouse(RandomRange(-100, 800), RandomRange(-100, 800), 0, 0);
    1: MMouse(543, 142, 5, 5);
    2: MMouse(657, 187, 5, 5);
    3: MMouse(566, 485, 5, 5);
    4: MMouse(458, 491, 5, 5);
    5: MMouse(627, 68, 5, 5);
    6: MMouse(722, 70, 5, 5);
    7: MMouse(-3, -3, 1, 1);
    8: RandomRClick;
  end;
  
  Wait(RandomRange(WaitFrom + Random(2000), Wto  + RandomRange(2001, 5000)));
  PickUpMouse;
end;

Not much to say about it….

E: Added a Random R click.
E2: changed some coords.

Home

2009-08-30 12:59:20

Why not just :

{*******************************************************************************
Procedure LookLikeAFK(WaitFrom, Wto : integer);
By: Tickyy
Description: Acts like you were Away from keyboard, It'll move the mouse to a
random place and wait for a Random-Range of WaitFrom and Wto + small random
waiting.

Recommended wait time: 20 Seconds or more...
*******************************************************************************}
Procedure LookLikeAFK(WaitFrom, Wto : integer);
begin
  if (not(LoggedIn)) then Exit;
  MMouse(Random(MSX2), Random(MSY2), 0, 0);
  Wait(RandomRange(WaitFrom + Random(2000), Wto  + RandomRange(2001, 5000)));
  PickUpMouse;
end;

But anyways good job :)

~Home

Tickyy

2009-08-30 13:03:33

From: Home
Why not just :

{*******************************************************************************
Procedure LookLikeAFK(WaitFrom, Wto : integer);
By: Tickyy
Description: Acts like you were Away from keyboard, It'll move the mouse to a
random place and wait for a Random-Range of WaitFrom and Wto + small random
waiting.

Recommended wait time: 20 Seconds or more...
*******************************************************************************}
Procedure LookLikeAFK(WaitFrom, Wto : integer);
begin
  if (not(LoggedIn)) then Exit;
  MMouse(Random(MSX2), Random(MSY2), 0, 0);
  Wait(RandomRange(WaitFrom + Random(2000), Wto  + RandomRange(2001, 5000)));
  PickUpMouse;
end;

But anyways good job :)

~Home

Most of these positions are like buttons or tabs… like the quick prayer button, i did that because that makes you look like you really are afk, imo. Moving the mouse to a blank place is just like you switched to something else, like msn or something :p.

Naum

2009-08-30 13:07:08

Wouldn't this:

    7: MMouse(-38, 13, 5, 5);

Give a DIB Handle error in SMART?

Tickyy

2009-08-30 13:10:18

From: NaumanAkhlaQ
Wouldn't this:
    7: MMouse(-38, 13, 5, 5);
Give a DIB Handle error in SMART?

Not really… not asap.