Ultima Online Antares

######################################################################################################
###########################################################################################
#############################################################################

sub Tailoring()
  Dim t_Resources[2]
    t_Resources[0] = '0x175D';??? ?????
    t_Resources[1] = '0x0F9D';??? ?????
  var t_SewingKit = '0x0F9D', t_Robe = '0x1f01', t_Bag = '0x0e76', t_Steaks = '0x0c77'
  var id_Container = '0x40B0977D', id_RecContainer = '0x40B0977D'
  var Delay = 10, Pause = 1000, ThreadsNeed = 1, ClothNeed = 20, ClothMove = 500, ThreadsMove = 50
  var msg = 'ou put|fail', Time, id_Bag, ResMove, i
  UO.UseObject(id_Container)
  UO.UseObject(id_RecContainer)
  While true
    If UO.Count(t_Resources[0]) >= ClothNeed and UO.Count(t_Resources[1]) >= ThreadsNeed then
      If UO.Targeting() then
        UO.CancelTarget()
      Endif
      DelJournal(msg)
      Time = UO.Timer()
      UO.WaitMenu('Cloth', 'Tops', 'Tops', 'Jesters Suit')
      UO.WaitTargetType(t_Resources[0])
      UO.UseType(t_SewingKit)
      Repeat
        Wait(100)
      Until UO.InJournal(msg) or Time + Delay * 10 <= UO.Timer()
     else
      While UO.Count(t_Robe)
        UO.FindType(t_Bag, -1, id_RecContainer)
        If UO.FindCount() then
          id_Bag = UO.GetSerial('finditem')
          UO.UseObject(id_Bag)
          Wait(100)
          UO.FindType(-1, -1, id_Bag)
          If UO.FindCount() < 255 then
            UO.FindType(t_Robe, -1, 'backpack')
            If UO.FindCount() then
              CheckLag()
              UO.MoveItem('finditem', -1, id_Bag)
              Wait(Pause)
             else
              UO.Print('?????????? ?????? 404 :?')
              Return
            Endif
           else
            UO.Ignore(id_Bag)
          Endif
         else
          UO.Print('????? ??? ??????????? ?????? ?????')
          Return
        Endif
      Wend
      UO.IgnoreReset()
      For i = 0 to 1
        UO.FindType(t_Resources[i], -1, id_Container)
        If UO.FindCount() then
          If i > 0 then
            ResMove = ThreadsMove
           else
            ResMove = ClothMove
          Endif
          CheckLag()
          UO.MoveItem('finditem', ResMove - UO.Count(t_Resources[i]), 'backpack')
          Wait(Pause)
         else
          UO.Print('? ' + id_Container + ' ?? ?????? ???? ?? ????????.')
          Return
        Endif
      Next
    Endif
    Eat(id_Container, t_Steaks, Pause)
  Wend
Endsub

Sub Eat(id, type, pause)
  var msg = 'simply|ou can|full', Time, Delay = 10
  DelJournal(msg)
  Time = UO.Timer()
  Repeat
    If UO.Count(type) then
      UO.UseType(type)
      Wait(100)
     else
      UO.FindType(type, -1, id)
      If UO.FindCount() then
        CheckLag()
        UO.MoveItem('finditem', 20, 'backpack')
        Wait(Pause)
       else
        UO.Print('??? ????')
        Return
      Endif
    Endif
  Until UO.InJournal(msg) or Time + Delay * 10 <= UO.Timer()
Endif

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

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

UO.WaitMenu("Cloth", "Tops", "Tops", "Jester's Suit")

sub tailoring_scroll()
    var bag1 = '0x406810D1'; id my backpack
    var cutleather   = '0x1067'
    var sewingkit   = '0x0F9D'
repeat
    uo.findtype( cutleather, '-1', bag1 )
    if uo.findcount() < 1 then
    uo.exec('terminate tailoring_scroll')
endif
    if uo.count(cutleather)<5 then
    uo.Grab(5,'finditem', 'backpack')
wait(300)
endif
wait(300)
    uo.usetype(sewingkit)
    uo.waittargettype(cutleather)
    uo.waitmenu('Miscellaneous','Blank Scroll')
    uo.deletejournal()
repeat
wait(300)
    until uo.injournal('You put') or uo.injournal('fail') or uo.injournal('target')
    until uo.dead()
end sub

UO.WaitMenu("Cloth", "Tops", "Tops", "(4)"