######################################
### Reagent's Tax / Сбор Реагентов ###
######################################
### Шард Dragon World / www.drw.ru ###
######################################
### Авторы:
######################################
############################
### Описание и настройка ###
############################
###
##################
### Переменные ###
##########################################################################
### var StoreRegCont=0x4000122A ## - ID сумки с регами.
### var CharRegBag
### var CountReg=60 ## - Количество регов которые будем складывать в пак.
### var WaitTime=600 ## - Ждем.
### var MainSafe=0x40001229 ## - ID своего Багпака.
##########################################################################
######################
### Меню / Options ###
######################
var StoreRegCont=0x4000122A
var CharRegBag
var CountReg=50
var WaitTime=600
var MainSafe=0x40001229 sub ReagentTax()
uo.FindType('0x09B0','0x0044','backpack')
if uo.GetQuantity('finditem')>0 Then
CharRegBag='finditem'
else
CharRegBag='0x400C7242' ## - Бак куда из бака чара будут складываться реги.
end if uo.UseObject(MainSafe)
uo.UseObject(StoreRegCont)
uo.SetReceivingContainer(CharRegBag)
wait(WaitTime) if uo.BM<CountReg then
uo.FindType('0x0F7B','-1',StoreRegCont) ## - Blood Moss.
uo.Grab(STR((CountReg-uo.BM)),'finditem')
wait(WaitTime)
endif if uo.BP<CountReg then
uo.FindType('0x0F7A','-1',StoreRegCont) ## - Black Pearls.
uo.Grab(STR(CountReg-uo.BP),'finditem')
wait(WaitTime)
endif if uo.GA<CountReg then
uo.FindType('0x0F84','-1',StoreRegCont) ## - Garlic.
uo.Grab(STR(CountReg-uo.GA),'finditem')
wait(WaitTime)
endif if uo.GS<CountReg then
uo.FindType('0x0F85','-1',StoreRegCont) ## - Ginseng.
uo.Grab(STR(CountReg-uo.GS),'finditem')
wait(WaitTime)
endif if uo.MR<CountReg then
uo.FindType('0x0F86','-1',StoreRegCont) ## - Mandrake Roots.
uo.Grab(STR(CountReg-uo.MR),'finditem')
wait(WaitTime)
endif if uo.NS<CountReg then
uo.FindType('0x0F88','-1',StoreRegCont) ## - Night Shade.
uo.Grab(STR(CountReg-uo.NS),'finditem')
wait(WaitTime)
endif if uo.SA<CountReg then
uo.FindType('0x0F8C','-1',StoreRegCont) ## - Sulfurous Ash.
uo.Grab(STR(CountReg-uo.SA),'finditem')
wait(WaitTime)
endif if uo.SS<CountReg then
uo.FindType('0x0F8D','-1',StoreRegCont) ## - Spiders Slick's.
uo.Grab(STR(CountReg-uo.SS),'finditem')
endif
end:
uo.UnsetReceivingContainer()
end sub
| 
