sub Yohoho()
   var Chest='0x40112118'
   var RegsQuanity = 65
   var GreaterHealQuanity = 22
   var TotalManaQuanity = 28
   var TotalRefreshQuanity = 16
   var DeadlyPoisonQuanity = 7
   var InvisibilitylQuanity = 1
   var BandageQuanity = 120
   var ParalyzeScrollQuanity = 30
   var FlameStrikeScrollQuanity = 10
   var k = 0, n
   uo.useobject(Chest)
   Checklag()
   dim Regs[8]
   Regs = RegsMassive(Regs)
   for n = 1 to 8
      uo.findtype(Regs[n],-1,Chest)
      Checklag()
      if uo.findcount() >= 1 then
         uo.moveitem('finditem',RegsQuanity,'backpack', 150, 25, 0)
         wait(700)
         Checklag()
      end if
   next
   uo.print('Реги Есть =ъ')
   uo.useobject(Chest)
   dim BottlesColor[5]
   BottlesColor = BottlesColorMassive(BottlesColor)
   for k = 1 to 5
      uo.findtype('0x0F0E',BottlesColor[k],Chest)
      Checklag()
      if uo.findcount() >= 1 then
         if k == 1 then
            uo.moveitem('finditem',GreaterHealQuanity,'backpack', 96, 26, 0)
            wait(700)
            Checklag()
         end if
         if k == 2 then
            uo.moveitem('finditem',TotalManaQuanity,'backpack', 103, 26, 0)
            wait(700)
            Checklag()
         end if
         if k == 3 then
            uo.moveitem('finditem',TotalRefreshQuanity,'backpack', 110, 26, 0)
            wait(700)
            Checklag()
         end if
         if k == 4 then
            uo.moveitem('finditem',DeadlyPoisonQuanity,'backpack', 117, 26, 0)
            wait(700)
            Checklag()
         end if
         if k == 5 then
            uo.moveitem('finditem',InvisibilitylQuanity,'backpack', 124, 26, 0)
            wait(700)
            Checklag()
         end if
      end if
   next
   uo.print('Бутылки тоже =]')
   uo.findtype('0x0E21',-1,Chest)
   if uo.findcount() then
      uo.moveitem('finditem',BandageQuanity,'backpack', 79, 26, 0)
      wait(700)
      Checklag()
   end if
   uo.findtype('0x1F5F',-1,Chest)
   if uo.findcount() then
      uo.moveitem('finditem',FlameStrikeScrollQuanity,'backpack', 69, 26, 0)
      wait(700)
      Checklag()
   end if
   uo.findtype('0x1F52',-1,Chest)
   if uo.findcount() then
      uo.moveitem('finditem',ParalyzeScrollQuanity,'backpack', 69, 26, 0)
      wait(700)
      Checklag()
      uo.print('Ну и Бинты со Скроллами =]')
   end if
   CheckCount()
end sub

Sub RegsMassive(Regs)
   Regs[1]='0x0F86'
   Regs[2]='0x0F8D'
   Regs[3]='0x0F88'
   Regs[4]='0x0F7A'
   Regs[5]='0x0F85'
   Regs[6]='0x0F84'
   Regs[7]='0x0F8C'
   Regs[8]='0x0F7B'
   return Regs
end sub


Sub BottlesColorMassive(BottlesColor)
   BottlesColor[1]='0x09BB'
   BottlesColor[2]='0x09DF'
   BottlesColor[3]='0x0997'
   BottlesColor[4]='0x0998'
   BottlesColor[5]='0x0631'
   return BottlesColor
end sub

Sub Checklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(100)
   until uo.injournal('backpack')
end sub

sub CheckCount()
   uo.useobject('backpack')
   wait(500)
   uo.concolor('0x0000')
   uo.print(str(uo.count('0x0F0E','0x09BB'))+" Great Heals")
   wait(100)
   uo.print(str(uo.count('0x0F0E','0x09DF'))+" Total Mana")
   wait(100)
   uo.print(str(uo.count('0x0F0E','0x0997'))+" Total Refresh")
   wait(100)
   uo.print(str(uo.count('0x0F0E','0x0998'))+" Deadly Poison")
   wait(100)
   uo.print(str(uo.count('0x0F0E','0x0631'))+" Invisibility")
   wait(100)
   uo.print(str(uo.count('0x0F0E','0x09A6'))+" Greater Cure")
   wait(100)
   uo.print(str(uo.count('0x0E21','0x0000'))+" Bandages")
   wait(100)
   uo.print(str(uo.count('0x1F52','0x0000'))+" Paralyze Scroll")
end sub

var Chest='0x40112118'