sub tailor2()
var Meshok = '0x4012D158'
VAR Instrum = '0x0F9D'
Var Fak = '0x175D'
VAR k = 0
var Bandana = '0x1766'
repeat
if uo.skillval("Tailoring",1)==1000 then
uo.closeuo()
end if
UO.DeleteJournal()
UO.WaitTargetType( Fak )
UO.WaitMenu ('Cloth', 'Pattern')
UO.UseType( Instrum )
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() > 200 then
       uo.moveitem('Bandana','all', 'Meshok')
       wait(500)
     end if
until UO.Dead()
end sub