SCAR Code:
Procedure HumanMouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
var
OrigSpeed: integer;
begin
OrigSpeed:= MouseSpeed;
MouseSpeed:= MouseSpeed - 2 + random(5); //new random speed
Case Random(5) of
0-1:begin
MMouse(mousex - Random(10), mousey - Random(10), ranx, rany);
Mouse(mousex, mousey, ranx, rany,left);
end;
2-3:begin
MMouse(mousex + Random(10), mousey + Random(10), ranx, rany);
Mouse(mousex, mousey, ranx, rany,left);
end;
4:Mouse(mousex, mousey, ranx, rany,left);
end;
MouseSpeed:= OrigSpeed //back to original mousespeed
end;
Procedure HumanMouseBox(x1, y1, x2, y2, clicktype: Integer);
var
OrigSpeed: integer;
begin
OrigSpeed:= MouseSpeed;
MouseSpeed:= MouseSpeed - 2 + random(5); //new random speed
Case Random(5) of
0-1:begin
MMouse(x1 - Random(10), y1 - Random(10),0,0);
MouseBox(x1, y1, x2, y2, clicktype);
end;
2-3:begin
MMouse(x2 + Random(10), y2 + Random(10),0,0);
MouseBox(x1, y1, x2, y2, clicktype);
end;
4:MouseBox(x1, y1, x2, y2, clicktype);
end;
MouseSpeed:= OrigSpeed //back to original mousespeed
end;