Ultima Online Antares

sub Jewelcrafting()
var bag='0x40C10C26' ;сумка для продукции
var veshch='0x108A' ; собственно изготовляемый предмет
var cvet='0x0991' ; цвет изготовляемого предмета
UO.UseObject(bag)
wait(300)
UO.CancelMenu()
UO.SetReceivingContainer(bag)
UO.AutoMenu('Rings','Ruin')
UO.UseObject(bag)
wait(200)
while UO.Count('0x1BEF')>1
UO.DeleteJournal()
UO.UseType('0x0FC1');используем инструмент ювелира
while NOT UO.InJournal('You put') AND NOT UO.InJournal('failed')
wait(300) ;ждем пока скрафтится или сфейлится
wend
UO.FindType(veshch,cvet,'-1') ;ищем скрафченное
UO.Grab('1','finditem')
wait(300)
wend
UO.UnsetReceivingContainer()
end sub