SRL Archive - SRL Archives

procedure MouseMM(x, y, randX, randY: Integer);
var
  p: TPoint;
begin
  if not rs_OnMinimap(x, y) then
    exit;

  p := RotatePoint(Point(x, y), 2 * pi - rs_GetCompassAngleRadians, MMCX, MMCY);
  Mouse(p.x, p.y, randX, randY, True);
end;

It wouldn't work before, does now…

Tested and confirmed. Bad Boy's version is much more accurate :)

It was supposed to be (0 - rs_GetCompassAngleRadians) which would have the same effect as ((2 * pi) - rs_GetCompassAngleRadians) as per this post by RM on the original thread but it seems it was lost when actually adding it to the include. Either way, WizzyPlugin auto increments things below 0, so either 0 - or 2*pi - would be the same, but should be added.

I was just thinking, perhaps we should take into account clicking in the area (ie RandX, RanY)
ie

procedure MouseMM(x, y, randX, randY: Integer);
var
  p, p2: TPoint;
begin
  if not rs_OnMinimap(x, y) then
    exit;

  p := RotatePoint(Point(x, y), 2 * pi - rs_GetCompassAngleRadians, MMCX, MMCY);
  p2 := RotatePoint(Point(x+RandX, y+RandY), 2 * pi - rs_GetCompassAngleRadians, MMCX, MMCY);
  Mouse(RandomRange(P.x, P2.x), RandomRange(p.y, P2.y), 0, 0, True);
end;

I remember sending a PM to Rasta Magician about this but he said it was fine. :unsure:

heh?

Sorry for the bump, but the MouseMM in SRL doesn't even work. :p It goes the opposite way.

procedure MouseMM(x, y, randX, randY: Integer);
var
  p: TPoint;
begin
  if not rs_OnMinimap(x, y) then
    Exit;

  p := RotatePoint(Point(x, y), 2 * pi - rs_GetCompassAngleRadians, MMCX, MMCY);
  Mouse(p.x, p.y, randX, randY, True);
end;

Works the best. :)