SCAR Code:
procedure Circle(MidX,MidY,rad,sAngle,eAngle: Integer; accuracy,xOffset,yOffset: Extended);
// Extra credit love to n3ss3s for the heart of the script (as posted by Negaal)
var
x,y,dloop,eloop: Integer;
angle: Extended;
begin
angle := sAngle;
X := MidX + Round(xOffset * (rad * Cos(Radians(angle -90))));
Y := MidY + Round(yOffset * (rad * Sin(Radians(angle -90))));
HoldMouse(x,y,True);
Sleep(500);
if(sAngle > eAngle) then
eloop := Round((sAngle - eAngle) * (1/accuracy))
else
eloop := Round((eAngle - sAngle) * (1/accuracy));
repeat
if(sAngle < eAngle) then
angle := angle + accuracy
else
angle := angle - accuracy;
Inc(dloop);
X := MidX + Round(xOffset * (rad * Cos(Radians(angle -90))));
Y := MidY + Round(yOffset * (rad * Sin(Radians(angle -90))));
wait(5);
movemouse(x,y);
until (dloop >= eloop);
ReleaseMouse(x,y,True);
end;