sub razbor() 
   DIM Loots[10]
Loots[0] = '0x0F26' ; гранаты
Loots[1] = '0x0F25' ; амберы
Loots[2] = '0x0F13' ; рубины
Loots[3] = '0x0F11' ; спафиры
Loots[4] = '0x0F18' ; турмалины
Loots[5] = '0x0F15' ; цытрины
Loots[6] = '0x0F10' ; эмералды
Loots[7] = '0x0F16' ; аметисты
Loots[8] = '0x0F26' ; алмазы
Loots[9] = '0x09AA' ; пандорки
Loots[9] = '0x14EF' ; диды
   VAR i 
   For i = 0 To 9
UO.Print('Выбери ИСТОЧНИК') 
UO.Exec('addobject istok') 
while UO.Targeting() 
wait(100) 
wend 
UO.UseObject('istok') 

UO.Print('Выбери ПРИЕМНИК') 
UO.Exec('addobject priem') 
while UO.Targeting() 
wait(100) 
wend 

UO.FindType(Loots[ i ],'-1','istok') 
If UO.FindCount() > 0 then 
repeat 
UO.MoveItem('finditem', '0', 'priem') 
wait(100) 
UO.FindType(Loots[ i ],'-1','istok') 
until not UO.FindCount() 
UO.Print('Закончили...') 
else 
UO.Print('А кидать то нечего...') 
endif 
end sub