SRL Archive - SRL Archives

[Procedure]AWalk3

Avaphi

2007-02-01 19:24:29

This function is derived from Awalk2, because I was in love with it, but then the new engine killed it. So here is its succesor: Awalk3

Procedure AWalk3(Degree, Radius : Integer);  //Help from starblaster100
Var
  Ax, Ay : Integer;
begin
  If (Radius > 57) then
    Radius := 57;
  Ax := Round (  Radius * Sin (Degree * Pi / 180)) + 648;
  Ay := Round (- Radius * Cos (Degree * Pi / 180)) + 83;
  Mouse(Ax, Ay, 0, 0, True);
end;

To use just enter in the Degree you want to click at, and the radius of the click(distance from center of MM)

Wanted

2007-04-28 08:03:58

Great:D , do you mind of I modify this slightly and use it? (giving you and star credits of course)

Abyssal

2007-04-30 19:55:51

This is awesome!

I made something like this a while ago, but this is better & shorter :P