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

Помогите, что я делаю не так?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4406		 Page 1 of 1
Author:  GeVoRG [ 2005-07-04 18:38:49 ]
Post subject:  Помогите, что я делаю не так?
Вот есть такой скрипт. Тинкер - ожерелья, объясните, что я делаю не так. Почему он не делает ожерелья... Что интересно бутылочки этот же скрипт делает =((
sub tinker()
VAR Ingi = '0x1BEF'
VAR Instrum = '0x1ebc'
VAR necklace = '0x1085'
VAR k = 0
While TRUE
While UO.Count( Ingi ) > 3
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'jewelry', 'jewelry', 'necklace' ) // ИМЕЕТСЯ ЛИ ЗДЕСЬ ОШИКА
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
Wend
Wend
end sub
Author:  kexwer [ 2005-07-04 19:37:16 ]
Post subject:  Re: Помогите, что я делаю не так?
GeVoRG wrote:
Вот есть такой скрипт. Тинкер - ожерелья, объясните, что я делаю не так. Почему он не делает ожерелья... Что интересно бутылочки этот же скрипт делает =((
sub tinker()
VAR Ingi = '0x1BEF'
VAR Instrum = '0x1ebc'
VAR necklace = '0x1085'; ID бутылочек
VAR k = 0
While TRUE
While UO.Count( Ingi ) > 3
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'Empty Bottle' ) // ИМЕЕТСЯ ЛИ ЗДЕСЬ ОШИКА
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
Wend
Wend
end sub
Author:  Arsuri [ 2005-07-05 00:33:32 ]
Post subject:  Re: Помогите, что я делаю не так?
GeVoRG wrote:
Вот есть такой скрипт. Тинкер - ожерелья, объясните, что я делаю не так. Почему он не делает ожерелья... Что интересно бутылочки этот же скрипт делает =((


Code:
sub tinker() 
VAR Ingi = '0x1BEF' 
VAR Instrum = '0x1ebc' 
VAR necklace = '0x1085' 
VAR k = 0 
While TRUE 
While UO.Count( Ingi ) > 3 
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' ) 
UO.DeleteJournal() 
UO.CancelMenu() 
UO.WaitMenu ('Tinkering', 'Jewelry', 'Jewelry', 'necklace' ) // Меню Jewelry с заглавной буквы пишется 
UO.UseType( Instrum ) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
k = k + 1 
wait(500) 
wend 
Wend 
Wend 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/