Yoko

В рюкзаке руда, стоим возле форжи, запускаем скрипт ... (На DRW нет смысла плавить руду по одной, поэтому плавим все что есть)

sub smelt()
var i
DIM ore[4]
ore[1]='0x19B9'
ore[2]='0x19B8'
ore[3]='0x19BA'
ore[4]='0x19B7'
for i=1 to 4
   UO.FindType(ore[i],-1,'backpack')
   if UO.FindCount()>0 then
      repeat
         UO.DeleteJournal()
                        UO.Useobject('finditem')
         while not uo.InJournal("You smelt")
            wait(100)
         wend
         wait (500)
         UO.FindType(ore[1],-1,'backpack')
      until UO.FindCount() == 0
   end if
next
Uo.Print('No ore to smelt')
end sub

... выгружаем инги.