sub Yohoho() 
   var Chest='0x4034A3D9'
   var RegsQuanity = 65 
   var GreaterHealQuanity = 10 
   var TotalManaQuanity = 20 
   var TotalRefreshQuanity = 10 
   var DeadlyPoisonQuanity = 3 
   var InvisibilitylQuanity = 5 
   var BandageQuanity = 120 
   var ParalyzeScrollQuanity = 20
   var FlameStrikeScrollQuanity = 20 
   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