sub Tailor_Bag()

  UO.Print("Укажите Sewing Kit")
  UO.Exec('addobject sewingkit') 
  While UO.Targeting() 
    Wait(100) 
  Wend 
  
   uo.cancelmenu()
   wait(100)
   uo.automenu('Leather','Misc')
   wait(100)
   uo.automenu('Packs','bag')
   wait(100)

uo.findtype('0x1067','0x0491','backpack')
while uo.findcount()<2
wait(500)
uo.waittargettype('0x1067')
uo.useobject('sewingkit')
wait(1000)
uo.deletejournal()
repeat
Wait(100)
until UO.InJournal('You put the') OR UO.InJournal('fail')
wend
end sub

sub pereklad() 
#****ДРВ*****# 
# (C) Cooper 
#****v1.0****# 
VAR Ttov 

UO.Print('Выбери ИСТОЧНИК') 
UO.Exec('addobject istok') 
while UO.Targeting() 
wait(100) 
wend 
UO.UseObject('istok') 

UO.Print('Выбери ПРИЕМНИК') 
UO.Exec('addobject priem') 
while UO.Targeting() 
wait(100) 
wend 

UO.Print('Выбери ТОВАР') 
UO.Exec('addobject tovar') 
while UO.Targeting() 
wait(100) 
wend 

TTov = UO.GetGraphic('tovar') 
UO.FindType(Ttov,'-1','istok') 
If UO.FindCount() > 0 then 
repeat 
UO.MoveItem('finditem', '0', 'priem') 
wait(700) 
UO.FindType(Ttov,'-1','istok') 
until not UO.FindCount() 
UO.Print('Закончили...') 
else 
UO.Print('А кидать то нечего...') 
endif 
end sub

Sub cheklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(100)
   until uo.InJournal("backpack")
end sub

sub ControlOfDanger()
  while 1
   wait(200)
   If UO.Life < 155 Then
    UO.closeuo()
    end if  
  wend
end sub