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!

А для чего уроки на сайте ? :shock:

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
:shock:

Author:  Mental [ 2010-03-03 19:03:01 ]
Post subject:  Re: Insufferable alchemy!

kostjan wrote:
А для чего уроки на сайте ? :shock:

Это не помощ!!!

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
:shock:


Спосибо за попытку помоч но я сам не смог разабратся :(

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/