Кароче буду краток (длинные топики не кто не читает):
как нипасть скриптик чтоб чар брал из сундуки по 20 всех регов??
PS. пытался взять похожее из скрипта на ламбер но что то не выходит у мня!
ВЕТЕРАН нужен твой совет!
Moderators: Murderator+, Murderator
ВЕТЕРАН нужен твой совет!
Я ЛЮБЛЮ ИНЖЕКТ ЗА его простоту.....
Re: ВЕТЕРАН нужен твой совет!
AHTOH wrote:Кароче буду краток (длинные топики не кто не читает):
как нипасть скриптик чтоб чар брал из сундуки по 20 всех регов??
PS. пытался взять похожее из скрипта на ламбер но что то не выходит у мня!
) Я всетаки скажу ))
Code: Select all
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™ "
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!
Что то я не вьеду ......а как же ты Грабишь не открыв .... Сав просто тогда что мешает сделать скрипт на проверку айди и ставки +1 с айдишнику......а потом и грабить .......так можно будет сграбить все что угодно .....а если что то сграбил то сбрасывать айдишник в файлик для памяти ))))....
Все просто.
BETEPAH ™
BETEPAH ™
Code: Select all
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ПРАВКА : Стырил несколько фич из верхних скриптов, имхо, мой удобнее чем их.
Типы регов сам надеюсь поменяешь/удалишь/допишешь в массиве.
Кол-во забираемых тоже сам изменишь
ЗЫ
2Savage & BETEPAH
Баг какойто у вас на шарде:)