Помогите, что я делаю не так?

[GeVoRG]

Вот есть такой скрипт. Тинкер - ожерелья, объясните, что я делаю не так. Почему он не делает ожерелья... Что интересно бутылочки этот же скрипт делает =((
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

[kexwer]

Вот есть такой скрипт. Тинкер - ожерелья, объясните, что я делаю не так. Почему он не делает ожерелья... Что интересно бутылочки этот же скрипт делает =((
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

[Arsuri]

Вот есть такой скрипт. Тинкер - ожерелья, объясните, что я делаю не так. Почему он не делает ожерелья... Что интересно бутылочки этот же скрипт делает =((

Code: Select all

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