остановка скрипта

[Gromiz]

вот скрипт на изготовление бутылок(просто бутылки...иногда надо сделать штук 30-50..срочно)

подскажите как скрипт остановить, если кончаются инги или сломается инструмент::::?????

Code: Select all

sub bottle() 
   VAR Ingi = '0x1BEF'          ; Тип ингов 
   VAR Instrum = '0x1EBC'       ; Тип инструмента тинкера 
   VAR Bottle = '0x0F0E'        ; Тип бутылки 
   VAR k=0
    While TRUE 
        While UO.Count( Ingi ) > 0 
         ; Пока в паке есть инги 
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' ) 
         UO.DeleteJournal() 
            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

[Savage]

Так будет с ингами, на инструмент надо тоже проверку в начало цикла ставить.

вот скрипт на изготовление бутылок(просто бутылки...иногда надо сделать штук 30-50..срочно)

подскажите как скрипт остановить, если кончаются инги или сломается инструмент::::?????

Code: Select all

sub bottle() 
   VAR Ingi = '0x1BEF'          ; Тип ингов 
   VAR Instrum = '0x1EBC'       ; Тип инструмента тинкера 
   VAR Bottle = '0x0F0E'        ; Тип бутылки 
   VAR k=0
        While UO.Count( Ingi ) > 0 
         ; Пока в паке есть инги 
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' ) 
         UO.DeleteJournal() 
            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
end sub

[Gromiz]

опа, сенк