Пробуй вот так. Запускай с пустым паком.
Code:
sub Cloth()
UO.Print("SELECT YOU CHEST")
UO.Exec('addobject Chest')
While UO.Targeting()
Wait(300)
Wend
UO.Set('grabdelay',STR(GrabDelay))
UO.UseObject('Chest')
Wait(300)
REPEAT
UO.FindType(Bolts,'-1','Chest')
While UO.GetQuantity('finditem')==0
UO.Print("ERROR: Low quantity of the Bolts of cloth!!!")
Wait(5000)
UO.FindType(Bolts,'-1','Chest')
Wend
UO.MoveItem('finditem',CountBolts,'backpack')
Wait(1000)
If UO.Count(Bolts) Then
UO.DeleteJournal()
UO.WaitTargetType(Bolts)
UO.UseType('0x0F9E')
REPEAT
Wait(300)
Until UO.InJournal("You put") or UO.Dead()
EndIf
UO.FindType(Cloth,'-1','backpack')
If UO.FindCount() Then
UO.MoveItem('finditem',0,'Chest')
Wait(1000)
EndIf
Until UO.Dead()
end sub