Ну хз с плавилкой я не знаю, но предлогаю просто кидать итемы с массива под ноги...
Code:
sub Drops()
var n
Dim Item[5]
Item[1] = '0x0000'
Item[2] = '0x0000'
Item[3] = '0x0000'
Item[4] = '0x0000'
Item[5] = '0x0000'
For n = 1 TO 5
REPEAT
UO.FindType(Item[n],'-1','-1')
If UO.FindCount() Then
UO.DropHere('finditem')
Wait(1000)
EndIf
Until UO.FindCount()==0 or UO.Dead()
Next
end sub
Или вотакой как ты хотел плавить все итемы в паке
Code:
sub Remove()
REPEAT
UO.FindType('-1','-1','-1')
If UO.FindCount() Then
UO.WaitTargetObject('finditem')
UO.UseObject('0x00000000') ; ID Форжи
UO.DeleteJournal()
REPEAT
Wait(300)
Until UO.InJournal('You put') or UO.InJournal('useful') or UO.Dead()
EndIf
Until UO.FindCount()==0 or UO.Dead()
end sub