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

Инженер
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17188		 Page 1 of 1
Author:  dubd [ 2013-02-04 19:54:05 ]
Post subject:  Инженер
привет народ, вот скрипт на тинкеринг. чар почему то не грабит, после того как использовал инги в бекпаке из сундука!
Code:
sub tinker()
   VAR Sunduk = '0x40071B17'       ; Сериал сундука
   VAR Ingi = '0x1BEF'          ; Тип ингов
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   VAR Bottle = '0x0F0E'          ; Тип бутылки
   VAR Kolvo = 200          ; Брать ингов
   VAR k = 0
   While TRUE
      UO.FindType( Ingi, -1, Sunduk )   ; Ищем инги в сундуке
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Пока в паке есть инги
         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
         if UO.Count( Bottle ) > 0 then
            UO.FindType( Bottle, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Bottle moved' )
         end if
      Wend
   Wend
end sub
Author:  ZeroDX [ 2013-02-04 20:10:06 ]
Post subject:  Re: Инженер
а сколько ингов нужно для крафта?
Author:  dubd [ 2013-02-04 20:30:36 ]
Post subject:  Re: Инженер
3
Author:  ZeroDX [ 2013-02-04 22:07:30 ]
Post subject:  Re: Инженер
Code:
      While UO.Count( Ingi ) > 0
=>
Code:
      While UO.Count( Ingi ) > 2
Author:  dubd [ 2013-02-05 00:06:42 ]
Post subject:  Re: Инженер
спасибо мил человек.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/