Чёт нетак работает...

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Ekkie
Posts: 56
Joined: 2005-01-13 08:40:40
Contact:

Чёт нетак работает...

Post by Ekkie »

Короче скрипт то работает норм (Берёт бутылки и НС, делает пойзонии ложит их в сундук, когда кончаются бутылки или НС берёт ещё).
НО иногда он работает так :Берёт бутылки и НС , делает пойзон
ложит пойзон в сундук, берёт ещё бутылки и Т.Д!

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
Last edited by Ekkie on 2005-02-18 09:28:52, edited 1 time in total.
Ekkie
Posts: 56
Joined: 2005-01-13 08:40:40
Contact:

Post by Ekkie »

И ещё вопросик..
Как сделать чтоб место Гритер пойзенов делал простие пойзони?
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

1. указывай цвет бутылок явно, а не любой ;)
2. uo.WaitMenu('What','(2)') - Пойзон
uo.WaitMenu('What','(first)') - лессер
Ekkie
Posts: 56
Joined: 2005-01-13 08:40:40
Contact:

Post by Ekkie »

Sfagnum wrote:1. указывай цвет бутылок явно, а не любой ;)
2. uo.WaitMenu('What','(2)') - Пойзон
uo.WaitMenu('What','(first)') - лессер

А где цвет указать...скажите неюбику бедному.
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

тут вроде

Code: Select all

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

1ю строку заменить на эту:

Code: Select all

UO.FindType('0x0F0E','0x0000','backpack')
Ekkie
Posts: 56
Joined: 2005-01-13 08:40:40
Contact:

Post by Ekkie »

Sfagnum wrote:тут вроде

Code: Select all

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

1ю строку заменить на эту:

Code: Select all

UO.FindType('0x0F0E','0x0000','backpack')

Спасибобольшое вроде всё работает
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

хех... очередной косяк на Ветра ;)
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Не проверяет, выкладывает, надеется что на авторитете скрипт выедет.
Сделал дело - флуди смело !!!
Goggy
Posts: 291
Joined: 2004-11-07 01:22:35
Location: Черкассы
Contact:

Post by Goggy »

А хитрые нубики взяли и нашли баг у Ветерка :D
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

Goggy wrote:А хитрые нубики взяли и нашли баг у Ветерка :D
а чо их искать то? их куда не ткни везде есть ;)
Post Reply