Yoko

Posted: **2006-05-31 10:57:25**

помогите пож-та исправить данный скрипт на лхимию, менея не ругайте:лепил из 2 скриатов:ветра и ещё какого-то. ошибок море, но вот , что созлдаёт мне проблему: когда делаешь поизоны иногда меню поизонов заввисает, тоестьвидно только менюшку, а сам скрипт ничего не выбирает, помогите плз исправить, чтобы он не зависал на емю крафта

зы: а вот и сам скрипт

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
uo.print('Ãäå ïóñòûå êåãè')
uo.exec('addobject kegs')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F88','-1','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','-1','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

UO.UseType('0x0F88')
uo.WaitMenu('What',(2))
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Âû ñìåøàëè èíãðèäèåíòû íåâåðíî")
wait(500)
wend
UO.usetype("0x1940")
UO.waittargettype("0x0F0A")
wait(300)
If UO.InJournal("This keg is too full") then
wait(1000)
podbor()

Else
If UO.InJournal("Âû ñìåøàëè èíãðèäèåíòû íåâåðíî") then
repeat
wait(100)

endif
endif
wend
end sub

sub podbor()
UO.FindType('0x1940','-1','backpack')
wait(2000)
uo.MoveItem('finditem','0','Bag2')
wait(2000)
UO.findtype('0x1940','-1','kegs')
wait(2000)
uo.Grab('0','finditem')
wait(2000)
Endif
end sub

Posted: **2006-05-31 11:03:26**

Code: Select all

sub alchemy() 
# BETEP™ # 
VAR Exit=0, LastTimer 
   uo.print('Noiaoe n ?aaaie e aooueeaie') 
   uo.exec('addobject Bag') 
   while uo.targeting() 
      wait(100) 
   wend 
   uo.print('Noiaoe eoaa aooueee a?inaou') 
   uo.exec('addobject Bag2') 
   while uo.targeting() 
      wait(100) 
   wend 
   uo.print('Aaa ionoua eaae') 
   uo.exec('addobject kegs') 
   while uo.targeting() 
      wait(100) 
   wend 
   while Exit<>1 
      UO.DeleteJournal() 
      UO.FindType('0x0F88','-1','backpack') 
      If UO.GetQuantity('finditem')<20 then 
         UO.FindType('0x0F88','-1','Bag') 
         wait(1000) 
         UO.Grab('400','finditem') 
         wait(1000) 
      Endif 
      LastTimer=UO.Timer() 
      UO.DeleteJournal() 
      uo.WaitMenu('What',(2)) 
      UO.UseType('0x0F88')
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("Au niaoaee eia?eaeaiou iaaa?ii") 
         wait(500) 
      wend 
      UO.waittargettype("0x0F0A") 
      UO.usetype("0x1940")
      wait(300) 
      If UO.InJournal("This keg is too full") then 
         wait(1000) 
         podbor() 
         Else 
         If UO.InJournal("Au niaoaee eia?eaeaiou iaaa?ii") then 
            wait(100) 
         endif 
      endif 
   wend 
end sub 

sub podbor() 
   UO.FindType('0x1940','-1','backpack') 
   wait(2000) 
   uo.MoveItem('finditem','0','Bag2') 
   wait(2000) 
   UO.findtype('0x1940','-1','kegs') 
   wait(2000) 
   uo.Grab('0','finditem') 
   wait(2000) 
end sub

Posted: **2006-05-31 12:45:52**

вроде норм, но вот ещё 1 проблема, когда он мешает неправильно иногда зависает и непрерывно пытается сделать поизон и пишет неправильно смешали, и так до бесконечности и очень быстро

Posted: **2006-05-31 13:51:42**

Code: Select all

If UO.InJournal

исправь

Posted: **2006-05-31 17:09:06**

всё равно на меню крафта иногда останавливается

Posted: **2006-05-31 18:06:28**

hol wrote:всё равно на меню крафта иногда останавливается

Code: Select all

var schetchik = 0
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Au niaoaee eia?eaeaiou iaaa?ii") ot schetchik > 20
  schetchik = schetchik + 1
  wait(500) 
wend

вот с добавлением счетчика.. т.е. если скрипт встал и тупит, то по истечению какого то времени, которое указано в счетчике schetchik > 20 скрипт продолжит свою работу. В данном случае у тебя скрипт будет жать около 20*500мс

Posted: **2006-05-31 19:38:19**

Пасибо

Yoko

помогите исправить

помогите исправить