Alchemy

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Alchemy

Post 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

Правлено Ветром(небыло тяг
Top
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post by PARASITE »

Предложили заменить строчку uo.WaitMenu('What',Poison) на uo.WaitMenu('What',(2)) , щас буду тестить
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

PARASITE wrote:Предложили заменить строчку uo.WaitMenu('What',Poison) на uo.WaitMenu('What',(2)) , щас буду тестить

Code: Select all

uo.WaitMenu('What','(last)')

я те уже говорил по моему
Last edited by Askaneli on 2004-12-28 14:39:47, edited 1 time in total.
Сделал дело - флуди смело !!!
Top
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post by PARASITE »

Наверно не мне
Top
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post by PARASITE »

НЕ РАБОТАЕТ!!!
Я пробовал вставлять uo.WaitMenu('What',(2)) и пробовал uo.WaitMenu('What',(last)) тоже не работает
Кто поможет?
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

PARASITE wrote:НЕ РАБОТАЕТ!!!
Я пробовал вставлять uo.WaitMenu('What',(2)) и пробовал uo.WaitMenu('What',(last)) тоже не работает
Кто поможет?
Попробуй оставить Ласт ……но перед запуском скрипта один раз сделай все в ручную.
Еще не знаю попробуй удалить строчку удаления авто меню (вдруг влияет )
Все просто.
BETEPAH ™
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

BETEPAH wrote:
PARASITE wrote:НЕ РАБОТАЕТ!!!
Я пробовал вставлять uo.WaitMenu('What',(2)) и пробовал uo.WaitMenu('What',(last)) тоже не работает
Кто поможет?
Попробуй оставить Ласт ……но перед запуском скрипта один раз сделай все в ручную.
Еще не знаю попробуй удалить строчку удаления авто меню (вдруг влияет )

В кавычки просто забыл взять (last) !!!
Сделал дело - флуди смело !!!
Top
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post 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

Правлено Ветром(небыло тяг)
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

PARASITE wrote:Вот вообщем рабочий вариант

Вместо того чтобы делать поизоны, он делает лезер поизон, если кто знает в чём проблема помогите плиз
а ты пойзоны то делать могёшь?
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

PARASITE wrote:Вот вообщем рабочий вариант

Вместо того чтобы делать поизоны, он делает лезер поизон, если кто знает в чём проблема помогите плиз

Чёт я тебя не понял, по асе говоришь что пашет, а в форуме что нет !!!
Сделал дело - флуди смело !!!
Top
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Post by zarg »

А у меня почемут о после каждого крафта бутылки берет новую партию бутылок.. как исправить?
Top
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Post by zarg »

Помогите исправить что бы он не брал бутылки после того как скрафтит пойзон...
Top
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post by PARASITE »

Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
Top
Ekkie
Posts: 56
Joined: 2005-01-13 08:40:40
Contact:
Contact Ekkie

Post by Ekkie »

PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Ekkie wrote:
PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...

http://yoko.netroof.net/forum/viewtopic ... a15b#15194
Сделал дело - флуди смело !!!
Top
Ekkie
Posts: 56
Joined: 2005-01-13 08:40:40
Contact:
Contact Ekkie

Post by Ekkie »

Askaneli wrote:
Ekkie wrote:
PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...

http://yoko.netroof.net/forum/viewtopic ... a15b#15194

А без тинкера можете сделать?
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Ekkie wrote:
Askaneli wrote:
Ekkie wrote:
PARASITE wrote:Askaneli извеняюсь там оппечатка вышла, выше лежит рабочий вариант, а насчёт того что бутылки берёт каждый раз я не знаю у меня всё нормально, правда я сейчас вообще на другом макросе качаю, он после того как сделает поизон сразу его на дагер использует.
даи скрипт...

http://yoko.netroof.net/forum/viewtopic ... a15b#15194

А без тинкера можете сделать?

Просто алхимию запусти, тинкер там не обязательно запускать.
Сделал дело - флуди смело !!!
Top
Post Reply

Return to “Scripting Ore”