SRL Archive - SRL Suggestions

MultiMouse

{*******************************************************************************
procedure MultiMouse(ClickTimes, mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Dynamite
Description: Moves then clicks mouse the amount of (Times)
*******************************************************************************}
procedure MultiMouse(ClickTimes, mousex, mousey, ranx, rany: Integer; left: Boolean);
begin
  for I := 1 to ClickTimes do
  Mouse(x, y, 0, 0, True);
end;

MouseUpText

function MouseUpText(TP, rXY: TPoint; Left: Boolean; UpText: String): boolean;
var
  mTP: TPoint;
begin
  MMouse(TP.x, TP.y, rXY.x, rXY.y);
  Result := WaitUpText(UpText, 500);

  if not Result then exit;

  GetMouseTP(mTP);
  Mouse(mTP.x, mTP.y, 0, 0, Left);

  Result := GetUpText = UpText;
end;

MChooseOption

function MChooseOption(TP, rXY: TPoint; UpText, option: string): boolean;
begin
  if not MouseUpText(TP, rXY, false, UpText) then
   exit;
  result := waitchooseoption(option, 500);
end;

I will add all of the requested mouse functions here.

-Boom

This looks like a good thread :)

The other one is now focused on QuickMouse ;)

~RM

From: Sir R. M8gic1an
This looks like a good thread :)

The other one is now focused on QuickMouse ;)

~RM

Ok sounds good :)
I am currently making a Boom.Simba with a load of different functions :)

-Boom