Insufferable alchemy!

[Mental]

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

Code: Select all

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

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

[kostjan]

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

[Irina E]

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

Code: Select all

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: Select all

wend

и

Code: Select all

end sub

[Mental]

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

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

[Mental]

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

Code: Select all

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: Select all

wend

и

Code: Select all

end sub

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

[Irina E]

Code: Select all

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

вот пробуЙ

[Mental]

Работает как часы спосибо огромное тебе, Irina E!

[Irina E]

нез

[Dach1]

может нимнога и абисните что ано делает