sub main()
var bs_hammer='0x13e3', ingots='0x1bf2', bplate='0x1415' # platemail breastplate
var f=UO.count(bplate), i
wait(500)
if uo.count(bplate)>0 then 
wait(500)
smelt(bplate,1)
endif
while uo.count(ingots)>30
if uo.count(bplate)>0 then 
wait(500)
smelt(bplate,1)
endif
f=UO.count(bplate)
wait(500)
while f<30 and uo.count(ingots)>30
i=uo.count(ingots)
UO.Exec("waitmenu 'like to make' 'Armors' 'armor' 'Platemail' 'like' 'Breastplate'")
UO.waittargettype(ingots)
uo.deletejournal()
UO.usetype(bs_hammer)
repeat
wait(100)
until i<>uo.count(ingots) or f<>uo.count(bplate)
repeat
wait(100)
until uo.injournal('You stop.')
f=UO.count(bplate)
wend
wend
end sub


sub smelt(item, loop)
var forge='0x0fb1', tongs='0x0fbb', count1,count2
count1=uo.count(item)
if count1>0 then
if loop then 
count2=0
else
count2=count1-1
endif
repeat
uo.waittargettype(item)
uo.usetype(tongs)
uo.deletejournal()
repeat
wait(10)
until uo.injournal('What')
uo.waittargetground(forge)
uo.deletejournal()
repeat
wait(100)
until uo.injournal('failed') or uo.injournal('turned')
wait(500)
until uo.count(item)<=count2
endif
end sub