sub tailor() 
uo.Set('finddistance','3')
var leather=' type '
var color=' color of leather '
var scroll=' type of crafted item '
var sunduk=' where to put scrolls '
  while not uo.Dead()
    uo.FindType(leather,color,'backpack')
    while uo.FindCount()
      ;Как шьет не написал-вставляй сюда сам 
      if uo.InJournal('You put') then
        uo.FindType(scroll,'-1','backpack')
        if uo.FindCOunt() then
          uo.moveitem('finditem','100',sunduk)
          wait(500)
        end if
      end if
      uo.FindType(leather,color,'backpack')
    wend  
    uo.FindType(leather,color,'ground')
    uo.moveitem('finditem','200')
    wait(500)
  wend   
end sub     

sub tailor2()
   VAR Sunduk = "0x40007E49"
   VAR Kozha = "0x1067"
   VAR Kit = "0x0F9D"
   VAR Scrol = "0x0E34"
   VAR k
   UO.CancelMenu()
   wait(500)
   UO.AutoMenu( "Leather", "blank scroll" ) 
   While TRUE
      If UO.Count( Kozha ) == 0 Then
         UO.FindType( Kozha, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print("Leathers not found, script terminated")
            return
         Endif
         UO.Grab( '1', 'finditem' )
         wait(200)
         while UO.Count( Kozha ) == 0
            wait(100)
         wend
      Endif
      UO.DeleteJournal()
      UO.WaitTargetType( Kozha )
      UO.UseType( Kit )
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
         k = k + 1
         wait(150)
      wend
      if UO.Count( Scrol ) > 0 then
         UO.FindType( Scrol )
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait( 200 )
         while UO.Count( Scrol ) > 0
            wait(100)
         wend
      endif
   Wend
   UO.CancelMenu()
end sub

      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND(k < 50 )
         k = k + 1
         wait(150)
      wend
      

repeat
 k=k+1
 wait(100)
until UO.InJournal("You put|fail") or k>=50