Code
sub Blacksmithing()
var Exit=0, LastTimer
while Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()
uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
uo.UseType(' 0x1BEF')
while not uo.InJournal('You put') and not uo.InJournal('You have failed')
wait(500)
wend
if uo.InJournal('You have failed') then
repeat
wait(100)
until uo.Timer()>=LastTimer+100
end if
uo.FindType('0x0F51',-1,'backpack')
wait(2500)
if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject('0x403A36EA') ; Форж
end if
uo.FindType('0x1BEF',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF','0x0000','0x403FC17F') ;Cундук с ингами
wait(1000)
uo.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub