Code:
sub tailor()
UO.Exec('exec Reconnect')
VAR Instrum = '0x0F9D'
Var Fak = '0x175D'
VAR k = 0
var Meshok = '0x175D' #<<<<<< Замени на id мешка.
var Bandana = '0x153F'
repeat
UO.DeleteJournal()
UO.WaitTargetType( Fak )
UO.UseType( Instrum )
UO.WaitMenu ("Headwear", "Bandana")
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 3000 )
k = k + 1
wait(500)
wend
uo.FindType(Bandana,'-1','backpack')
if uo.FindCount() then
uo.moveitem('finditem','all',Meshok)
wait(500)
end if
until UO.Dead()
end sub
Правил в окне, так что проверяй.