SRL Archive - SRL Suggestions

can i proprose that Mouse gets changed to the following, it causes no compatability problems, and it will allow us to hold down the mouse for as long as we want

{*******************************************************************************
procedure ClickMouse3(left : boolean; MinTime, MaxTime: Integer);
By: Anyone that can code
Description: Clicks the mouse in a human way on the current mouse spot while
waiting between MinTime and MaxTime.
*******************************************************************************}
procedure ClickMouse3(left : boolean; MinTime, MaxTime: Integer);
var
  a,b,c : integer;
begin
  GetMousePos(b, c);
  HoldMouse(b, c, mouseaction(left));
  Wait(RandomRange(MinTime, MaxTime));
  GetMousePos(b, c);
  ReleaseMouse(b, c, mouseaction(left));
  Wait(50+Random(50));
end;

{*******************************************************************************
procedure ClickMouse2(left : boolean);
By: Anyone that can code
Description: Clicks the mouse in a human way on the current mouse spot.
*******************************************************************************}
procedure ClickMouse2(left : boolean);
begin
  ClickMouse3(left, 100, 150);
end;

{*******************************************************************************
procedure MouseEx(mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Mutant Squirrle, with a small fix by hy71194 mdified by Shuttleu
Description: Moves then clicks mouse while waiting between MinTime and MaxTime.
*******************************************************************************}
procedure MouseEx(mousex, mousey, ranx, rany, MinTime, MaxTime: Integer; left: Boolean);
begin
  MMouse(mousex, mousey, ranx, rany);
  Wait(60 + Random(30));
  ClickMouse3(left, MinTime, MaxTime);
  Wait(50 + Random(50));
end;

{*******************************************************************************
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Mutant Squirrle, with a small fix by hy71194 modified by Shuttleu
Description: Moves then clicks mouse.
*******************************************************************************}
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
begin
  MouseEx(mousex, mousey, ranx, rany, 100, 150, left);
end;  

~shut

I say we break compatibility and do this.

Something like this is way too cluttered, and way too much like a hack.

We need to update the Mouse interfaces, lets just do it, break compatibility, and have people change some numbers around.