Yoko

All sides of Injection
It is currently 2024-03-28 18:55:13

All times are UTC+02:00




Post new topic  Reply to topic  [ 5 posts ] 
Author Message
 Post subject: Инженер
PostPosted: 2013-02-04 19:54:05 
Offline

Joined: 2012-07-27 23:43:14
Posts: 249
привет народ, вот скрипт на тинкеринг. чар почему то не грабит, после того как использовал инги в бекпаке из сундука!
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


Top
   
 Post subject: Re: Инженер
PostPosted: 2013-02-04 20:10:06 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
а сколько ингов нужно для крафта?


Top
   
 Post subject: Re: Инженер
PostPosted: 2013-02-04 20:30:36 
Offline

Joined: 2012-07-27 23:43:14
Posts: 249
3


Top
   
 Post subject: Re: Инженер
PostPosted: 2013-02-04 22:07:30 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Code:
      While UO.Count( Ingi ) > 0
=>
Code:
      While UO.Count( Ingi ) > 2


Top
   
 Post subject: Re: Инженер
PostPosted: 2013-02-05 00:06:42 
Offline

Joined: 2012-07-27 23:43:14
Posts: 249
спасибо мил человек.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 5 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 12 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited