Здравствуйте! Помогите плз со скриптом, все работает норм, но проходит мин 5-10 и скрипт "тормозится" не работает, перезапуск не помогает, приходится перезапускать УО...
Code: sub BowCraft() VAR Sunduk = '0x40011A4B' VAR Logs = '0x1BDD' VAR Instrum = '0x0F51' VAR Shaft = '0x1BD4' VAR Kolvo = 7 VAR k = 0 UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) ) While TRUE UO.FindType( Logs, -1, Sunduk ) If UO.FindCount() == 0 Then UO.Print("Logs not found, script terminated") return Endif UO.Grab( Str( Kolvo ), 'finditem' ) wait( 250 ) While UO.Count( Logs ) > 2 ; Iiea a iaea anou eiae ; UO.CancelMenu() Uo.Print( str( Uo.count( '0x1BDD', '0x0000', '0x40011A4B' ) ) + " Ostalos logov..." ) UO.DeleteJournal() UO.WaitMenu ('What do you want','Bowyer Items','Bowyer Items','Shafts') uo.waittargettype(Logs) UO.UseType( Instrum ) k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('You fail') AND ( k < 30 ) k = k + 1 wait(150) wend if UO.Count( Shaft ) > 0 then UO.FindType( Shaft, -1, -1 ) UO.MoveItem( 'finditem', 0, Sunduk ) wait( 150 ) ; UO.Print( 'Shafts moved' ) end if Wend Wend end sub
|