SCAR Code:
{*******************************************************************************
Function RandomMouse(Times: Integer): Boolean;
By: cycrosism
Description: Does some random mouse movements at random
mouse speeds
*******************************************************************************}
Function RandomMouse(Times :Integer): Boolean;
var
M, T: Integer;
begin
M := MouseSpeed;
MouseSpeed := RandomRange(11, 19);
//Writeln('MouseSpeed = '+IntToStr(MouseSpeed));
For T := 0 to Times+1 Do
begin
MouseBox(MSX1, MSY1, MIX2, MIY2, 3);
T := T + 1;
wait(1000+random(4000));
Result := True;
end;
If (T = Times) then Result := True;
//Writeln('Result = '+BoolToStr(result));
MouseSpeed := M;
end;
