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

помогите исправить
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7818		 Page 1 of 1
Author:  hol [ 2006-05-31 10:57:25 ]
Post subject:  помогите исправить
помогите пож-та исправить данный скрипт на лхимию, менея не ругайте:лепил из 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
Author:  Grin [ 2006-05-31 11:03:26 ]
Post subject: 
Code:
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
Author:  hol [ 2006-05-31 12:45:52 ]
Post subject: 
вроде норм, но вот ещё 1 проблема, когда он мешает неправильно иногда зависает и непрерывно пытается сделать поизон и пишет неправильно смешали, и так до бесконечности и очень быстро :(
Author:  Nmy [ 2006-05-31 13:51:42 ]
Post subject: 
Code:
If UO.InJournal
исправь
Author:  hol [ 2006-05-31 17:09:06 ]
Post subject: 
всё равно на меню крафта иногда останавливается
Author:  Rijo [ 2006-05-31 18:06:28 ]
Post subject: 
hol wrote:
всё равно на меню крафта иногда останавливается

Code:
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мс
Author:  hol [ 2006-05-31 19:38:19 ]
Post subject: 
Пасибо :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/