Yoko

Code: Select all

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