Page 1 of 1
Insufferable alchemy!
Posted: 2010-02-25 18:55:58
by 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
Берет из сундука ресурсы и кег, делает бутылки и заливает в кег.
Проблема в том что он один раз сделает и остонавливается.
Скрипт брал из пойска и переделовал для себя, но сделать чтоб он постоянно работал, не смог.
Может кто-то хорошо понимает и может зацыклить его или решить проблему?
Re: Insufferable alchemy!
Posted: 2010-02-28 16:33:24
by kostjan
А для чего уроки на сайте ?
Re: Insufferable alchemy!
Posted: 2010-03-01 21:23:18
by 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()
а где
и
Re: Insufferable alchemy!
Posted: 2010-03-03 19:03:01
by Mental
kostjan wrote:А для чего уроки на сайте ?
Это не помощ!!!
Re: Insufferable alchemy!
Posted: 2010-03-03 19:04:22
by Mental
Irina E wrote:страна как он вопще работает
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()
а где
и
Спосибо за попытку помоч но я сам не смог разабратся
Re: Insufferable alchemy!
Posted: 2010-03-03 23:16:17
by 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
вот пробуЙ
Re: Insufferable alchemy!
Posted: 2010-03-04 22:57:33
by Mental
Работает как часы
спосибо огромное тебе, Irina E!
Re: Insufferable alchemy!
Posted: 2010-03-04 23:04:42
by Irina E
нез
Re: Insufferable alchemy!
Posted: 2011-01-30 17:01:37
by Dach1
может нимнога и абисните что ано делает