Home
2009-10-05 23:15:48
Hey there, MouseMM is not working and QuickMarch's one works perfect.
Replace or what?
P.S Is RotatePoint Scar's own Function ?
~Home
procedure MouseMM(x, y, xmod, ymod: Integer);
var
D2, R, Ang, MX, MY: Integer;
begin
Ang := Round(Degrees(ArcTan2(y - MMCY, x - MMCX)) + 90);
while Ang < 0 do Ang := Ang + 360;
D2 := Ang - Round(rs_GetCompassAngleDegrees);
R := Distance(MMCX, MMCY, x, y);
MX := MMCX + Round(R * Cos(Radians(D2 - 90)));
MY := MMCY + Round(R * Sin(Radians(D2 - 90)));
if rs_OnMiniMap(MX, MY) then Mouse(MX, MY, xmod, ymod, True);
end;Replace or what?
P.S Is RotatePoint Scar's own Function ?
~Home