Yoko

Шард ДРВ, в паке у чара (или в сундуке) лежит допустим 5 кучек руды по 1 штуке, допустим Gold, 2 кучки по 2 штуки, и 3 кучки по 3 штуки. Плюс 5 кучек руды по 1 штуке, допустим Расти, 2 кучки по 2 штуки.

a Gold Ore - 1

1)делаем 2 массива, один с типами второй с цветами
2)ищем по типу, если находит запускаем поиск по цвету
3)по цвету нашли, плюсуем к переменной kolvo
4)ищем следующий тип, и так далее

sub OreCount()
   var count = 20
   var sum = 0
   var type = 0
   dim colors[20]
   dim names[20]
   
   for var i = 0 to count-1
      sum = 0
      uo.findtype(-1, colors[i], -1)
      while uo.FindCount()
         type = uo.Hex2Int(uo.GetGraphic('finditem'))
         if (type >= начало) and (type <= конец) then
            sum = sum + uo.GetQuantity('finditem')
         end if
         uo.Ignore('finditem')
         wait(10)
         uo.findtype(-1, colors[i], -1)
      wend
      if sum then
         uo.Print(names[i]+": "+str(sum))
      endif
   next
   
   uo.IgnoreRest()
end sub

sub OreCount()
   var count = 20
   var sum = 0
   var type = 0
   dim colors[20]
   dim names[20]
   
   for var i = 0 to count-1
      sum = 0
      uo.findtype(-1, colors[i], -1)
      while uo.FindCount()
         type = uo.Hex2Int(uo.GetGraphic('finditem'))
         if (type >= начало) and (type <= конец) then
            sum = sum + uo.GetQuantity('finditem')
         end if
         uo.Ignore('finditem')
         wait(10)
         uo.findtype(-1, colors[i], -1)
      wend
      if sum then
         uo.Print(names[i]+": "+str(sum))
      endif
   next
   
   uo.IgnoreRest()
end sub

ну а можно и подругому...