sub AutoArrow()
  dim char[2]

  char[0]='тип мужского персонажа'
  char[1]='тип женского персонажа'
  var delay = 3000

  var i
  uo.Ignore('self') # чтобы не находили себя
  uo.Set('finddistance','5') #радиус поиска
  repeat
    for i = 0 to 1
      uo.FindType(char[i],'-1','ground')
      if uo.FindCount() then
        uo.Cast('Arrow','finditem')
        wait(delay)
      else
        uo.Print('Scanning...')
        wait(1000)
      endif
    next
  until uo.Dead()
end sub