I'm actually using this in a script I am making, I believe the function is:
function RadialWalk(TheColor:Integer; StartRadial, EndRadial:Integer; Radius:Integer; Xmod, Ymod:integer): Boolean;// By Wizzup? and WT-Fakawi.
Here is a simulation by WT-Fakawi to show you how it works. Just drag the cross hairs on simba to paint and run the script and you will fall in love with radial walk, there is also linear walk 0.o:
program RadialWalk;
var x, y:integer;
//----------------------------------------------------------------------------//
function RadialWalk(TheColor:Integer; StartRadial, EndRadial:Integer; Radius:Integer; Xmod, Ymod:integer): Boolean;// By Wizzup? and WT-Fakawi.
var i: Integer;
var X1, Y1: integer;
begin
if StartRadial < EndRadial then
begin
repeat
for i:=StartRadial to EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
MoveMouse(X1, Y1);
HoldMouse(X1, Y1, 1);
ReleaseMouse(X1, Y1, 1);
end;
Radius:= Radius - 4;
until Radius <= 1 ;
end;
if StartRadial > EndRadial then
begin
repeat
for i:=StartRadial Downto EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
MoveMouse(X1, Y1);
HoldMouse(X1, Y1, 1);
ReleaseMouse(X1, Y1, 1);
end;
Radius := Radius - 4;
until Radius <= 1;
end
end;
//----------------------------------------------------------------------------//
function LinearWalk(TheColor : Integer; Direction : Integer; Radius : Integer; Xmod, Ymod : Integer) : Boolean;// By Wizzup? and WT-Fakawi.
var
i, j, StartRadial, EndRadial, InitRadius : Integer;
var
X1, Y1, Count : Integer;
begin
InitRadius := Radius;
repeat
StartRadial := 360 + Direction - Count;
EndRadial := 360 + Direction + Count;
repeat
for i := StartRadial to EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
MoveMouse(X1, Y1);
HoldMouse(x1, y1, 1);
ReleaseMouse(x1, y1, 1);
end;
for i := EndRadial downto StartRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
MoveMouse(X1,Y1);
HoldMouse(X1, Y1, 1);
ReleaseMouse(X1, Y1, 1);
end;
Radius := Radius - 4;
until Radius <= 10;
Radius := InitRadius;
Count := Count + 2;
until ((StartRadial < 2) or (EndRadial > 720));
end;
//----------------------------------------------------------------------------//
begin
RadialWalk(0, 0, 80, 40, -1, -1);
RadialWalk(0, 40, 50, 70, 0, -1);}
RadialWalk(0, 165, 180, 70, -1, 0);
RadialWalk(0,200, 130, 70, -1, -1);
RadialWalk(0, 260, 140, 40, -1, -1);
RadialWalk(0, 420, 300, 70, -1, -1);
LinearWalk(0, 320, 70, 1, 1);}
end.