Сомневаюсь что искал...
Code:
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
Редактируй сообщения под свой шард.