sub tailor1() 
VAR Sunduk = '0x41DC7700' 
VAR Tkan = '0x175D' 
VAR Spools = '0x0FA0' 
VAR Instrum = '0x0F9D' 
VAR Dress = '0x1EFF'
VAR Fak = '0x175D' 
VAR Kolvo = 200 ;
VAR Vzat = 150 
VAR k = 0
While TRUE 
UO.FindType( Spools, -1, Sunduk ) ; 
If UO.FindCount() == 0 Then 
UO.Print("Spools not found, script terminated") 
return 
Endif 
UO.Grab( Str( Vzat ), 'finditem' ) 
wait( 2000 )
While UO.Count( Spools ) > 10 
UO.Print('Ostalos ' + Str( UO.Count( Spools ) ) + ' Spools' ) 
While TRUE 
UO.FindType( Tkan, -1, Sunduk ) ; 
If UO.FindCount() == 0 Then 
UO.Print("Tkan not found, script terminated") 
return 
Endif 
UO.Grab( Str( Kolvo ), 'finditem' ) 
wait( 2000 ) 
While UO.Count( Tkan ) > 12 
UO.Print('Ostalos ' + Str( UO.Count( Tkan ) ) + ' Tkan' ) 
UO.DeleteJournal() 
UO.CancelMenu()
UO.WaitTargetType( Fak ) 
UO.WaitMenu ('Cloth', 'Shirts', 'Shirts', 'fancy dress' ) 
UO.UseType( Instrum ) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('Плохой') AND ( k < 30 ) 
k = k + 1 
wait(500) 
wend 
if UO.Count( Dress ) > 0 then 
UO.FindType( Dress, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Sunduk ) 
wait( 1000 ) 
UO.Print( 'Dress moved' ) 
end if 
Wend 
Wend 
end sub 

UO.Grab( Str( Vzat ), 'finditem' )

UO.Grab(Vzat, 'finditem' )