SRL Archive - SRL Archives

Hey I will be adding a lot of stuff to the antiban.scar. I'll start with this simple thing I made last night.

{*******************************************************************************
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;

I will be making more today

Why does it return boolean? This could be a procedure as well