//put_death=path_start(put,3,1,1)

//put_death=true

mode=mode_base
mode_change=false

x_put=656
y_put=128

povorot_death=1
radius=200

xx=o_mag.x
yy=o_mag.y

go=false

atk=true//используется при сохранение точки возврата
ppt=0//для хранения позиции пути
vosvrat=false//для ограничения. не начинает занова нападать при возврате

depth=-y

if (distance_to_object(o_mag)<radius) and mode=mode_base and vosvrat=true   {mode=mode_attack}// vosvrat=true - не начинает занова нападать при возврате
if (distance_to_object(o_mag)<radius) and mode=mode_walt   {ppt=path_position//сохранение позиции пути
vosvrat=false//запрет на нападение до возврата
path_end(); mode=mode_attack}
if (distance_to_object(o_mag)>radius) and mode=mode_attack {mode=mode_base}

switch(mode)
   {    
      case mode_walt:
      {
          if (mode_change) {
          vosvrat=true
          x=656//после достижение точки перемещение в точку начала пути
          y=128
          path_start(put,1,1,false);   
         path_position=ppt//перемещение на нужное нам положение пути
          mode_change=false}
          break;
      }
         
      case mode_attack:
      {  if atk=true{
      x_put=x
      y_put=y}//сохранение точек возврата
        
           if (x<o_mag.x) povorot_death=-1
           else povorot_death=1     
        
           go=true
          if (x>o_mag.x-5 && x<o_mag.x+5) // ��� �� �� ����� ������ �����, � ����� �� ���� � �����������
          if (y>o_mag.y-5 && y<o_mag.y+5)
          go=false
            
          atk=false//для того чтобы точки сохранились один раз
                           
          break;
      }     
      case mode_base:
        
      {   atk=true
      go=false   
         if x>656 povorot_death=1
              else povorot_death=-1
         if (x!=x_put and y!=y_put) mp_potential_step(x_put,y_put,1,true)
         else
         mode=mode_walt
         mode_change=true
         break;
      }
   }     
          if go=true mp_potential_step(o_mag.x,o_mag.y,2,true)

if (distance_to_object(o_mag)<radius) and mode=mode_base and vosvrat=true   {mode=mode_attack}
if (distance_to_object(o_mag)<radius) and mode=mode_walt   {ppt=path_position
        x_put=x
        y_put=y
path_end(); mode=mode_attack}
if (distance_to_object(o_mag)>radius) and mode=mode_attack {mode=mode_base}