Yoko

sub GrabContainer(idContainer, tType, Quanty)
    if UO.Count(tType,'0x0000')<=30 then 
        if UO.Count('0x0E21','0x0000') > 0 then
            UO.FindType('0x0E21','0x0000','backpack')
            UO.MoveItem('finditem','-1',idContainer)
            wait(1000)
            CheckLag()
        end if        
        UO.FindType(tType,'0x0000',idContainer)
        If UO.GetQuantity('finditem')>2 then                
            UO.Grab(Quanty,'finditem') 
            wait(1000)
            CheckLag() 
        else 
            return 1
        Endif                
    End If
    return 0
end sub

sub CheckLag()
    UO.DeleteJournal()
    UO.Click('backpack')
    repeat
        wait(50)
    until UO.InJournal('backpack')
end sub

sub ToEat(idContainer)
    UO.FindType('0x097B', '0x0000', idContainer)
    if UO.FindCount() > 0 then
        UO.MoveItem('finditem','20','backpack')
    else
        return
    end if
    repeat     
        CheckLag()
        uo.UseType('0x097B')
        while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
            wait(100)
        wend
    until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't")
    UO.FindType('0x097B', '0x0000','backpack')
    if UO.FindCount() > 0 then
        UO.MoveItem('finditem','20',idContainer)     
    end if
end sub

sub Tailor() 
VAR idContainer='0x40438A41'
    UO.UseObject(idContainer) 
    UO.CancelMenu()
    UO.UnSetReceivingContainer()    
    UO.AutoMenu('Cloth', 'Misc.')
    UO.AutoMenu('Misc.', 'body')    
    while GrabContainer(idContainer,'0x175D','200')==0
        CheckLag()
   uo.waittargettype('0x175D')
        UO.UseType('0x0F9D') 
        while NOT UO.InJournal("You put") AND NOT UO.InJournal("fail") 
            wait(200) 
        wend
   while UO.Count('0x1541','0x0000') > 0            
            uo.waittargettype('0x1541','0x0000')
         uo.findtype('0x1541','0x0000','backpack') 
   while NOT UO.InJournal("You put")
   wait(1000) 
   wend
   CheckLag()
   if uo.findcount()>0 then 
   uo.MoveItem('finditem','-1',0x404B1341) 
   wait(500)  
   end if 
      uo.findtype('0x1541','0x0000','backpack') 
   wait(200) 
   wend 
    CheckLag()
            wait(2000)
        wend
    wend 
end sub

uo.MoveItem('finditem','-1',0x404B1341) 

Sub Tailoring()
  var msg = 'ou put|fail', Pause = 100, Time, Delay = 5, id_Container = '0x12345678', id_Trash = '0x12345678', t_SewingKit = '0x1234' t_BodySash = '0x1234', t_Cloth = '0x1234', ClothNeeded = Тут кол-во тряпок на крафт однной повязки
  While UO.SkillVal('Tailoring', 1) < 1000 and not UO.Dead()
    UO.FindType(t_BodySash, -1, 'backpack')
    If UO.FindCount() then
      CheckLag()
      UO.MoveItem('finditem', -1, id_Trash)
      Wait(Pause)
     else
      If UO.Count(t_Cloth) >= ClothNeeded then
        DelJournal(msg)
        Time = UO.Timer()
        UO.WaitMenu('Cloth', 'Misc', 'Misc', 'body')
        UO.UseType(t_SewingKit)
        Repeat
          Wait(100)
        Until UO.InJournal(msg) or Time + Delay * 10 <= UO.Timer()
       else
        UO.UseObject(id_Container)
        UO.FintType(t_Cloth, -1, id_Container)
        If UO.FindCount() then
          CheckLag()
          UO.MoveItem('finditem', 100, 'backpack')
          Wait(Pause)
         else
          UO.Print('Нет тряпок в ящике!!!!!!')
          Return
        Endif
      Endif
    Endif
    EatSomeSteaks()
  Wend
Endsub

Sub EatSomeSteaks()
  var t_Steaks = '0x1234', msg = 'simply|full', Time, Delay = 10, id_Container = '0x12345678', Pause = 100
  DelJounal(msg)
  Time = UO.Timer()
  Repeat
    If Count(t_Steaks) then
      UO.UseType(t_Steaks)
      Wait(100)
     else
      UO.UseObject(id_Container)
      UO.FindType(t_Steaks, -1, id_Container)
      If UO.FindCount() then
        CheckLag()
        UO.MoveItem('finditem', 10, 'backpack')
        Wait(Pause)
       else
        UO.Print('Нет хавки в ящике!!! ЗАСАДА!!!')
        Return
      Endif
    Endif
  Until UO.InJournal(msg) or Time + Delay * 10 <= UO.Timer()
Endsub

Sub DelJournal(msg)
  While uo.injournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, '')
  Wend
Endsub

Sub CheckLag()
  DelJournal('ackpack')
  UO.Click('backpack')
  Repeat
    Wait(100)
  Until UO.InJournal('ackpack')
Endsub

####################################################################################
var Box = '0x40438A41' # ID сундука
var Tools = '0x0F9D' # Type итема тайлора
var Sash = '0x1541' # Type изделия
var SashC = '0x0000' # Color изделия
var Quote = '200' # Сколько ткани брать
var Trash = '0x404B1341' # ID трешки
var Item = '0x175D' # ID ткани
var ItemC = '0x0000' # Color ткани

sub Tailor()
var Time
var Mess = 'put|fail'
 while not uo.dead()
   if uo.count(Item)>3 then 
    Time = uo.timer()
      uo.waitmenu('Cloth','Misc.','Misc.','body')
      uo.waittargettype(Item) 
      uo.usetype(Tools)
    repeat
    wait (100)
    until uo.injournal(Mess) or Time + 50 < uo.timer()
    Trash()
     else
    TakeItem()
  endif
  uo.deletejournal()
 wend
end sub

sub Trash()
 uo.findtype(Sash,SashC,'backpack')
  uo.moveitem('finditem',0,Trash)
 wait (500)
endsub

sub TakeItem()
 uo.findtype(Item,ItemC,Box)
 if uo.findcount() then
  uo.moveitem('finditem',Quote,'backpack')
  wait (500)
   else
  uo.print('Кончилась ткань!')
  uo.playwav('C:\Alarm.wav')
  uo.exec('terminate all')
 endif
endsub
####################################################################################

Скрипт убрал - автор ругается.

[code]####################################################################################
var Box = '0x40438A41' # ID сундука
var Tools = '0x0F9D' # Type итема тайлора
var Sash = '0x1541' # Type изделия
var SashC = '0x0000' # Color изделия
var Quote = '200' # Сколько ткани брать
var Trash = '0x404B1341' # ID трешки
var Item = '0x175D' # Type ткани
var ItemC = '0x0000' # Color ткани

sub Tailor()
var Time
var Mess = 'put|fail'
 while not uo.dead()
   uo.deletejournal()
   if uo.count(Item)>3 then 
    Time = uo.timer()
      uo.waitmenu('Cloth','Misc.','Misc.','body')
      uo.waittargettype(Item) 
      uo.usetype(Tools)
    repeat
    wait (100)
    until uo.injournal(Mess) or Time + 50 < uo.timer()
    Trash()
     else
    TakeItem()
  endif
 wend
end sub

sub Trash()
 uo.findtype(Sash,SashC,'backpack')
 if uo.findcount()
 uo.moveitem('finditem',0,Trash)
 wait (500)
 endif
endsub

sub TakeItem()
 uo.findtype(Item,ItemC,Box)
 if uo.findcount() then
  uo.moveitem('finditem',Quote,'backpack')
  wait (500)
   else
  uo.print('Кончилась ткань!')
  uo.playwav('C:\Alarm.wav')
  uo.exec('terminate all')
 endif
endsub
####################################################################################[/code]