SCAR Code:
{*******************************************************************************
procedure MouseWait(mousex, mousey, ranx, rany: Integer; left: Boolean; waittime : Integer);
By: Zyt3x
Description: Added "waittime" to Mouse().
*******************************************************************************}
procedure MouseWait(mousex, mousey, ranx, rany: Integer; left: Boolean; waittime : Integer);
var
a, b, c: Integer;
begin
MMouse(mousex, mousey, ranx, rany);
Wait(60 + Random(30));
GetMousePos(b, c);
HoldMouse(b, c, left);
Wait(waittime);
GetMousePos(b, c);
ReleaseMouse(b, c, left);
Wait(100 + Random(100));
end;
{*******************************************************************************
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Mutant Squirrle, with a small fix by hy71194. Redone by Zyt3x.
Description: Moves then clicks mouse.
*******************************************************************************}
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
begin
MouseWait(mousex, mousey, ranx, rany, left, 4*(20 + random(20)));
end;
Why?
Because the human does sometime value if they want to click therefore holding down the mouse button for extra long.
MouseWait(); could be added into a script like this:
[SCAR]case random(4) of
0..2: Mouse(x, y, 5, 5, True);
3: MouseWait(x, y, 5, 5, True, 6*(20+random(20)));
end;[SCAR]And that makes the mouse click for extra long, thus making it more human like.
I am not very good to explain things, so please try to understand the tweak before posting (not posting like "What does it do?"...
)
THIS WILL NOT BREAK ANY SCRIPTS.