SRL Archive - SRL Archives

Ok so ive noticed that the RandomRClick will sometimes right click and then just sit there, and if its over your minimap or some area that your surching for a DTM bitmap or color, it will block it from being found =[
Also, when someone Rightclicks they dont just let it sit there, they usualy move there mouse so it will close (atleast i do) so i thought of maby just throwing in a MMouse(x, y, 2, 2) into there to close the box.

//****************************************************************************//

{*******************************************************************************
procedure RandomRClick;
By: phantombmx
Description: Performs random right click to stay active.
*******************************************************************************}

procedure RandomRClick;
var
  M: Integer;
  
begin
  if not LoggedIn then exit;
  M := MouseSpeed;
  MouseSpeed := 7 + Random(5);
  ActivateClient;
  case Random(7) of
    0: MouseBox(533, 7, 757, 200, 2);
    1: MouseBox(521, 3, 553, 496, 2);
    2: MouseBox(743, 3, 764, 497, 2);
    3: MouseBox(4, 467, 763, 498, 2);
    4: MouseBox(499, 343, 552, 496, 2);
    5: MouseBox(3, 343, 521, 355, 2);
    6: MouseBox(2, 346, 14, 499, 2);
  end;
  GetMousePos(x, y); //I added this line
  MMouse(x - Random(200), y - Random(200), 2, 2); //I added this line
  MouseSpeed := M;
end;