var GuardName:string;
  var CenterX,CenterY,CenterZ,NowRadius,NowAngle: integer;
   Obj:Tl2Live;
procedure GoToPoint(X,Y,Z,Radius,Angle:integer);

begin
Engine.MoveTo(X+trunc(Radius*sin(Angle)),Y+trunc(Radius*cos(Angle)),Z+20);
end;


begin
GuardName:='z2'; //Имя защитника (вокруг кого бегать)
NowRadius:=300; //Радиус, по которому бегать вокруг Защитника

NowAngle:=0; //Начальный угол (можно не трогать)


while Engine.Status = lsOnline do begin
if (not user.dead) then begin  //Бесконечный цикл
CharList.ByName(GuardName,Obj); //В каждом цикле обновляем координаты защитника
CenterX:=Obj.X; //X
CenterY:=Obj.Y; //Y
CenterZ:=Obj.Z; //Z

GoToPoint(CenterX,CenterY,CenterZ,NowRadius,NowAngle); //Двигаемся вокруг защитника с изменяющимся углом
engine.duseskill(982,true,true);

NowAngle:=NowAngle+20; //Шаг угла
if NowAngle>=340 then NowAngle:=0; //Если перевалило за 340 градусов, обнуляем (360 лучше не ставить)
end;
end;

end.