Yoko :: Insufferable alchemy!

Yoko http://forum.yoko.com.ua/

Insufferable alchemy! http://forum.yoko.com.ua/viewtopic.php?f=20&t=15611	Page 1 of 1

Author:

Mental [ 2010-02-25 18:55:58 ]

Post subject:

Insufferable alchemy!

Здраствуйте!
Начну со скрипта

Code:

sub main() 
uo.print('Мусорка') 
uo.exec('addobject musor') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Сумка') 
uo.exec('addobject bag') 
while uo.targeting() 
wait(100) 
wend 
while not UO.Dead() 
reload() 
alchemy() 
sliv() 

#Bootle 0x0f0e
#MR 0x0F86
#Keg 0x1940
#Strenght Potion 0x0f09
#NS 0x0f88
#Great Poison Bottle 0x0f0a

sub alchemy() 
while uo.count('0x0f0e') > 1 and UO.Count('0x0f88') > 1 
UO.DeleteJournal() 
ChekLag() 
UO.WaitMenu('What',(4)) 
UO.UseType(0x0f88)
UO.DeleteJournal() 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы") 
wait(100) 
wend 
wend 
end sub 

sub keg() 
var keg=1-uo.count('0x1940') ;Keg
UO.FindType('0x1940','-1','backpack') 
UO.DeleteJournal() 
UO.SetCatchbag('musor') 
uo.exec("grab "+str(keg)+" finditem") 
wait(3500) 
UO.UnSetReceivingContainer() 
UO.UnSetCatchBag() 
ChekLag() 
end sub 

sub sliv() 
while uo.count('0x0f0a') > 0 
UO.UseType(0x1940) 
UO.DeleteJournal() 
UO.waittargettype(0x0f0a) 
wait (100) 
wend 
keg() 
end sub 

sub reload() 
UO.UnSetReceivingContainer() 
UO.UnSetCatchBag() 
var keg=1-uo.count('0x1940') 
UO.findtype('0x1940', '-1', 'bag') 
uo.exec("grab "+str(keg)+" finditem") 
wait(3500) 

var MR=800-uo.count('0x0f88') ;Nightshade
if MR > 0 then 
UO.findtype('0x0f88', '-1', 'bag') 
uo.exec("grab "+str(MR)+" finditem") 
ChekLag() 
wait(3500) 
end if 
end sub 

sub ChekLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub

Берет из сундука ресурсы и кег, делает бутылки и заливает в кег.
Проблема в том что он один раз сделает и остонавливается.
Скрипт брал из пойска и переделовал для себя, но сделать чтоб он постоянно работал, не смог.
Может кто-то хорошо понимает и может зацыклить его или решить проблему?

Author:	kostjan [ 2010-02-28 16:33:24 ]
Post subject:	Re: Insufferable alchemy!
А для чего уроки на сайте ?

Author:

Irina E [ 2010-03-01 21:23:18 ]

Post subject:

Re: Insufferable alchemy!

страна как он вопще работает

Code:

sub main()
uo.print('Мусорка')
uo.exec('addobject musor')
while uo.targeting()
wait(100)
wend
uo.print('Сумка')
uo.exec('addobject bag')
while uo.targeting()
wait(100)
wend
while not UO.Dead()
reload()
alchemy()
sliv()

а где

Code:

wend

Code:

end sub

Author:	Mental [ 2010-03-03 19:03:01 ]
Post subject:	Re: Insufferable alchemy!
kostjan wrote: А для чего уроки на сайте ? Это не помощ!!!

Author:	Mental [ 2010-03-03 19:04:22 ]
Post subject:	Re: Insufferable alchemy!
Irina E wrote: страна как он вопще работает Code: sub main() uo.print('Мусорка') uo.exec('addobject musor') while uo.targeting() wait(100) wend uo.print('Сумка') uo.exec('addobject bag') while uo.targeting() wait(100) wend while not UO.Dead() reload() alchemy() sliv() а где Code: wend и Code: end sub Спосибо за попытку помоч но я сам не смог разабратся

Author:

Irina E [ 2010-03-03 23:16:17 ]

Post subject:

Re: Insufferable alchemy!

Code:

sub main()
uo.print('Мусорка')
uo.exec('addobject musor')
while uo.targeting()
wait(100)
wend
uo.print('Сумка')
uo.exec('addobject bag')
while uo.targeting()
wait(100)
wend
while not UO.Dead()
reload()
alchemy()
sliv()
wend
end sub

#Bootle 0x0f0e
#MR 0x0F86
#Keg 0x1940
#Strenght Potion 0x0f09
#NS 0x0f88
#Great Poison Bottle 0x0f0a

sub alchemy()
while uo.count('0x0f0e') > 1 and UO.Count('0x0f88') > 1
UO.DeleteJournal()
ChekLag()
UO.WaitMenu('What',(4))
UO.UseType(0x0f88)
UO.DeleteJournal()
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы")
wait(100)
wend
wend
end sub

sub keg()
var keg=1-uo.count('0x1940') ;Keg
UO.FindType('0x1940','-1','backpack')
UO.DeleteJournal()
UO.SetCatchbag('musor')
uo.exec("grab "+str(keg)+" finditem")
wait(3500)
UO.UnSetReceivingContainer()
UO.UnSetCatchBag()
ChekLag()
end sub

sub sliv()
while uo.count('0x0f0a') > 0
UO.UseType(0x1940)
UO.DeleteJournal()
UO.waittargettype(0x0f0a)
wait (100)
wend
keg()
end sub

sub reload()
UO.UnSetReceivingContainer()
UO.UnSetCatchBag()
var keg=1-uo.count('0x1940')
UO.findtype('0x1940', '-1', 'bag')
uo.exec("grab "+str(keg)+" finditem")
wait(3500)

var MR=800-uo.count('0x0f88') ;Nightshade
if MR > 0 then
UO.findtype('0x0f88', '-1', 'bag')
uo.exec("grab "+str(MR)+" finditem")
ChekLag()
wait(3500)
end if
end sub

sub ChekLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

вот пробуЙ

Author:	Mental [ 2010-03-04 22:57:33 ]
Post subject:	Re: Insufferable alchemy!
Работает как часы спосибо огромное тебе, Irina E!

Author:	Irina E [ 2010-03-04 23:04:42 ]
Post subject:	Re: Insufferable alchemy!
нез

Author:	Dach1 [ 2011-01-30 17:01:37 ]
Post subject:	Re: Insufferable alchemy!
может нимнога и абисните что ано делает

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/