Code: Select all
sub main()
DIM Part[7]
Part[0]='Orcish helmet '
Part[1]='Orcish ringmail gloves'
Part[2]='Orcish platemail chest'
Part[3]='Orcish platemail legs'
Part[4]='Orcish platemail arms'
Part[5]='Orcish shield'
Part[6]='Orcish hammerpick'
UO.AutoMenu('Blacksmithing','Race armor')
wait(1000)
UO.AutoMenu('Race armor','Orcish armor')
wait(1000)
UO.AutoMenu('Orcish armor',Part[0])
repeat
while 1
while uo.count('0x1BEF') > 8
UO.DeleteJournal()
uo.exec("usetype '0x1BEF'")
while not (UO.InJournal("You have failed to make anything") or UO.InJournal("in your pack"))
wait(100)
wend
wend
wend
until UO.InJournal("You have failed to make anything")
.......