sub Reagents() 
   VAR StoreRegCont=0x401DF3E9 # ID мешка (сундука) с регами.
   VAR CharRegBag='CharRegBag' # Выбор смки в которую он их будет ложить рэги
   VAR CountReg=20 # По сколько рэгов брать
   VAR WaitTime=600 # Задержка
   VAR MainSafe=0x401DF3E9 # Если у тя мешок с рэгами в сундуке то
# ID сундука сюда, если нет то просто ID мешка (сундука) с регами как у мя.

uo.print('Выбери Мешок:') 
uo.exec('addobject CharRegBag') 
while uo.targeting() 
wait(100) 
wend 

   UO.UseObject(MainSafe) 
   UO.UseObject(StoreRegCont) 
    
   UO.SetReceivingContainer(CharRegBag) 
   wait(WaitTime) 

   if UO.BM<CountReg then 
      UO.FindType('0x0F7B','-1',StoreRegCont) ; BM 
      UO.Grab(STR((CountReg-UO.BM)),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.BP<CountReg then 
      UO.FindType('0x0F7A','-1',StoreRegCont) ; BP 
      UO.Grab(STR(CountReg-UO.BP),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.GA<CountReg then 
      UO.FindType('0x0F84','-1',StoreRegCont) ; GA 
      UO.Grab(STR(CountReg-UO.GA),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.GS<CountReg then 
      UO.FindType('0x0F85','-1',StoreRegCont) ; GS 
      UO.Grab(STR(CountReg-UO.GS),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.MR<CountReg then 
      UO.FindType('0x0F86','-1',StoreRegCont) ; MR 
      UO.Grab(STR(CountReg-UO.MR),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.NS<CountReg then 
      UO.FindType('0x0F88','-1',StoreRegCont) ; NS 
      UO.Grab(STR(CountReg-UO.NS),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.SA<CountReg then 
      UO.FindType('0x0F8C','-1',StoreRegCont) ; SA 
      UO.Grab(STR(CountReg-UO.SA),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.SS<CountReg then 
      UO.FindType('0x0F8D','-1',StoreRegCont) ; SS 
      UO.Grab(STR(CountReg-UO.SS),'finditem') 
   endif 
end: 
   UO.UnsetReceivingContainer() 
end sub 
# Made in " BETEPAH™ " 

sub grab_reagents()
 DIM Reagents[11]
  Reagents[0] = '0x0F7B' ; Blood Moss
  Reagents[1] = '0x0F7A' ; Black Pearl
  Reagents[2] = '0x0F84' ; Garlic
  Reagents[3] = '0x0F85' ; Ginseng
  Reagents[4] = '0x0F86' ; Mandrake Roots
  Reagents[5] = '0x0F88' ; Nightshade
  Reagents[6] = '0x0F8C' ; Sulfurous Ash
  Reagents[7] = '0x0F8D' ; Spider's Silk
  Reagents[8] = '0x0F81' ; Fertile Dirt
  Reagents[9] = '0x0F7D' ; Vial of Blood
  Reagents[10] = '0x0F7E' ; Bone
  
  var i
  var RegBox = 0x54CEBD4A ; ИД контейнера с регами
  var RegsCount = 50 ; количество регов для граба

     UO.AddObject("GrabTo") ; выбирай сумку
     UO.Print("Choose container for reagents!")
     while UO.Targeting()
     wait(100)
     wend
  
    UO.Setcatchbag("GrabTo")
    UO.UseObject("RegBox")
    wait(1000) ; когда лагает контейнер не успевает открываться
    
  for i=0 to 10
  UO.FindType(Reagents[i],-1,'RegBox')
  wait(100)
   If UO.GetQuantity('finditem') > RegsCount then
   UO.Grab(RegsCount,'finditem')
   UO.Print("Gained 50 "+UO.GetGraphic('finditem'))
   wait(100)
   endif
  next
  wait(500)
  UO.Unsetcatchbag()
end sub