Page 1 of 1
Alchemy
Posted: 2004-12-28 03:10:08
by PARASITE
Вместо того чтобы делать поизоны, он делает лезер поизон, если кто знает в чём проблема помогите плиз
Code: Select all
sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Сундук с регами и бутылками')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Сундук куда бутылки бросать')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('500','finditem')
wait(1000)
Endif
UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x0F88')
uo.WaitMenu('What','Poison')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
Posted: 2004-12-28 04:49:40
by PARASITE
Предложили заменить строчку uo.WaitMenu('What',Poison) на uo.WaitMenu('What',(2)) , щас буду тестить
Posted: 2004-12-28 06:09:38
by Askaneli
PARASITE wrote:Предложили заменить строчку uo.WaitMenu('What',Poison) на uo.WaitMenu('What',(2)) , щас буду тестить
я те уже говорил по моему
Posted: 2004-12-28 06:26:44
by PARASITE
Наверно не мне
Posted: 2004-12-28 14:28:23
by PARASITE
НЕ РАБОТАЕТ!!!
Я пробовал вставлять uo.WaitMenu('What',(2)) и пробовал uo.WaitMenu('What',(last)) тоже не работает
Кто поможет?
Posted: 2004-12-28 14:36:25
by BETEPAH
PARASITE wrote:НЕ РАБОТАЕТ!!!
Я пробовал вставлять uo.WaitMenu('What',(2)) и пробовал uo.WaitMenu('What',(last)) тоже не работает
Кто поможет?
Попробуй оставить Ласт ……но перед запуском скрипта один раз сделай все в ручную.
Еще не знаю попробуй удалить строчку удаления авто меню (вдруг влияет )
Posted: 2004-12-28 14:40:32
by Askaneli
BETEPAH wrote:PARASITE wrote:НЕ РАБОТАЕТ!!!
Я пробовал вставлять uo.WaitMenu('What',(2)) и пробовал uo.WaitMenu('What',(last)) тоже не работает
Кто поможет?
Попробуй оставить Ласт ……но перед запуском скрипта один раз сделай все в ручную.
Еще не знаю попробуй удалить строчку удаления авто меню (вдруг влияет )
В кавычки просто забыл взять (last) !!!
Posted: 2004-12-29 09:05:16
by PARASITE
Вот вообщем рабочий вариант
Вместо того чтобы делать поизоны, он делает лезер поизон, если кто знает в чём проблема помогите плиз
Code: Select all
sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Сундук с регами и бутылками')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Сундук куда бутылки бросать')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('500','finditem')
wait(1000)
Endif
UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x0F88')
uo.WaitMenu('What','(last)')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
Posted: 2004-12-29 09:11:35
by Sfagnum
PARASITE wrote:Вот вообщем рабочий вариант
Вместо того чтобы делать поизоны, он делает лезер поизон, если кто знает в чём проблема помогите плиз
а ты пойзоны то делать могёшь?
Posted: 2004-12-29 09:14:03
by Askaneli
PARASITE wrote:Вот вообщем рабочий вариант
Вместо того чтобы делать поизоны, он делает лезер поизон, если кто знает в чём проблема помогите плиз
Чёт я тебя не понял, по асе говоришь что пашет, а в форуме что нет !!!
Posted: 2004-12-30 09:15:38
by zarg
А у меня почемут о после каждого крафта бутылки берет новую партию бутылок.. как исправить?
Posted: 2005-01-03 12:22:48
by zarg
Помогите исправить что бы он не брал бутылки после того как скрафтит пойзон...
Posted: 2005-01-04 05:00:11
by PARASITE
Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
Posted: 2005-02-10 21:34:56
by Ekkie
PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...
Posted: 2005-02-11 06:20:01
by Askaneli
Ekkie wrote:PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...
http://yoko.netroof.net/forum/viewtopic ... a15b#15194
Posted: 2005-02-11 07:19:08
by Ekkie
Askaneli wrote:Ekkie wrote:PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...
http://yoko.netroof.net/forum/viewtopic ... a15b#15194
А без тинкера можете сделать?
Posted: 2005-02-11 07:54:12
by Askaneli
Ekkie wrote:
А без тинкера можете сделать?
Просто алхимию запусти, тинкер там не обязательно запускать.