Code:
sub home()
  var home=' id of rune '
  uo.Cast('Recall',home)
end sub
Code:
sub place()
  var place=' id of rune '
  uo.Cast('Recall',place)
end sub
Code:
sub Find()
var type =' type of container '
uo.Set('finddistance','5')
  while not uo.Dead()
    while uo.Weight < 500
      uo.FindType(type,'-1','ground')
      if uo.Count() > 0 then
        uo.UseType('finditem')
        Loot()
        wait(100)
        uo.Ignore('lastcontainer')
      else
        uo.Print(' No container')
      end if
    wend
    home()
    wait(1000)
    razgryzka()
    place()
    uo.IgnoreReset()
  wend
end sub
Луталку и разгрузку вещей сам добавь.