sub smelt()
# В паке должен быть мешочек !!!!!!!!!
# ---- ID плавилки ---------------------------
var forg=0x40D81F1F
# ---- ID плавилки ---------------------------
var LastTimer, mechok

UO.FindType(0x0E76, -1, 'backpack')
mechok=UO.GetSerial('finditem')
UO.UseObject(mechok)
UO.FindType(0x19B9, -1, 'backpack')
UO.MoveItem('finditem', 0, mechok)

repeat
 F_DeleteJournal( "You put " )
 F_DeleteJournal( "You smelt the " )
 LastTimer=UO.Timer()
 UO.FindType(0x19B9, -1, mechok)
 UO.MoveItem('finditem', 2, 'backpack', 100, 50, 0)
 wait(500)
 UO.WaitTargetType(0x19BA)
 UO.UseObject(forg)
 repeat
  wait(50)
 until UO.InJournal("You put |You smelt the ") or UO.Timer()>LastTimer+5
 wait(300)
 if UO.Count(0x19B7) then
  UO.FindType(0x19B7, -1, 'backpack')
  UO.MoveItem('finditem', 1, mechok)
 endif
until not UO.Count(0x19B9)
if UO.Count(0x19B8) then
 UO.FindType(0x19B8, -1, 'backpack')
 UO.MoveItem('finditem', 1, mechok)
endif
if UO.Count(0x19BA) then
 UO.FindType(0x19BA, -1, 'backpack')
 UO.MoveItem('finditem', 1, mechok)
endif
end sub

Sub F_DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
 UO.SetJournalLine( Nom - 1, 'string replaced' )
 F_DeleteJournal( string1 )
Endif
endsub