Помогите доработать скрипт БСа

[Shamus]

Sub Blacksmithing()
var menu1,chouse1,menu2,chouse2,menu3,chouse3
var humer='0x13E3'
var suply='0x41555049'
var anvel='0x4029D981'
var iron='0x1BEF'
var made='0x13FE'
var madereq=45
var req=8
Uo.UseObject(suply)
Uo.UnSetReceivingContainer()
While fc('iron','suply') or fc('iron','my')
While fc('made','my')
Uo.WaitTargetObject('finditem')
Uo.UseObject(anvel)
Wait(500)
Wend
If Uo.count(iron)<madereq Then
Uo.findtype('iron','-1','suply')
Uo.Grab('req','finditem')
wait(500)
End If
Uo.UseType(humer)
Repeat
wait(400)
Until UO.ObjAtLayer('Rhand')
While UO.Count(iron)>req
Uo.WaitMenu('Blacksmithing','weapons','weapons','Swords&Blades','Swords&Blades','katana')
Uo.UseType(iron)
Uo.DeleteJournal()
Repeat
Wait(300)
Until UO.InJournal('You')
WEnd
Wend
End Sub

почемуто циклит на переплавке, не могу понять в чем дело, помогите доработать. Заранее спаасибо