hope this helps.
SCAR Code:
program New;
procedure MoveMouseRadius(centerx, centery : integer; startradius, endradius, skipradius : integer; speed : integer);
var
i, a, x1, y1 : integer;
begin
if startradius <= endradius then
begin
for a := startradius to endradius do
begin
for i := 1 to 360 do
begin
x1 := Round(a * Sin(i * pi / 180)) + centerx;
y1 := Round(-a * Cos(i * pi / 180)) + centery;
MoveMouseSmooth(x1, y1);
i := i + speed;
Wait(1);
end;
a := a + skipradius;
end;
end else
begin
for a := startradius downto endradius do
begin
for i := 1 to 360 do
begin
x1 := Round(a * Sin(i * pi / 180)) + centerx;
y1 := Round(-a * Cos(i * pi / 180)) + centery;
MoveMouseSmooth(x1, y1);
i := i + speed;
Wait(1);
end;
a := a - skipradius;
end;
end;
end;
begin
MoveMouseRadius(500, 450, 130, 10, 3, 1);
end.
heres a pic to explain the function.