Yoko

All sides of Injection
It is currently 2025-11-11 15:15:22

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 11 posts ] 
  Print view Previous topic | Next topic 
Author Message
KTO nyKHyJI???
PostPosted: 2005-08-21 17:22:41 
Offline
User avatar

Joined: 2004-12-28 19:31:44
Posts: 143
Здравствуйте! облазил весь форум, и нашёл лишь парочку скриптов на тинкер (для крафта бутылок). подскажите пожалуйста как мне их изменить, чтобы скрипт был на изготовление ключей из айрона.

заранее спасибо.

P.S. вот скрипт



Code:
##################################################################### 
; Tinker. v.1.00b (c) Edred 
; 
; Чар берет из сундука инготы, крафтит из них бутылки 
; и складывает эти бутылки в этот же сундук. 
; Если инги закончились - выход. 
; 
sub tinker() 
   VAR Sunduk = '0x4042B1A1'       ; Сериал сундука 
   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
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-21 17:27:45 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Изменяй:

строчку
Code:
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' )

на
Code:
UO.WaitMenu ('Tinkering', 'Keys', 'Keys', 'iron key' )



Code:
VAR Bottle = '0x0F0E' ; Тип бутылки

Тут тип бутылки замени на тип ключа.
Top
   
Reply with quote  
KTO nyKHyJI???
 Post subject:
PostPosted: 2005-08-21 17:58:54 
Offline
User avatar

Joined: 2004-12-28 19:31:44
Posts: 143
спасибо, всё работает но есть одно НО
каждый раз, когда перс изготавливает ключ
пишется
ostalos *** ingots (так и должно быть)
а ниже появляется ошибка : Error: no menu to cancel
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2005-08-21 18:00:09 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Не обращай внимание.
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-21 18:03:54 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
KTO nyKHyJI??? wrote:
спасибо, всё работает но есть одно НО
каждый раз, когда перс изготавливает ключ
пишется
ostalos *** ingots (так и должно быть)
а ниже появляется ошибка : Error: no menu to cancel


Если тебя смущает то, что пишется скока ингов в паке у тебя осталось, то удали эту строчку:
Code:
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
Top
   
Reply with quote  
KTO nyKHyJI???
 Post subject:
PostPosted: 2005-08-21 18:09:17 
Offline
User avatar

Joined: 2004-12-28 19:31:44
Posts: 143
Quote:
Не обращай внимание.
понял.. спасибо всем.
Top
   
Reply with quote  
KTO nyKHyJI???
 Post subject:
PostPosted: 2005-08-21 18:54:51 
Offline
User avatar

Joined: 2004-12-28 19:31:44
Posts: 143
если нетрудно, немоглибы вы написать скрипт на перетаскивание айрон ключей в пак??
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-21 19:00:04 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Code:
sub Key()
UO.FindType('тип ключа', '-1', 'ID сундука')
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1','backpack')
Wait(1000)
wend 
end sub
Top
   
Reply with quote  
KTO nyKHyJI???
 Post subject:
PostPosted: 2005-08-21 20:15:57 
Offline
User avatar

Joined: 2004-12-28 19:31:44
Posts: 143
Leo wrote:
Code:
sub Key()
UO.FindType('тип ключа', '-1', 'ID сундука')
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1','backpack')
Wait(1000)
wend 
end sub

может быть я что0то делаю нетак но этот скрипт почемуто берёт 1 ключ и кидает его по всем углам пака.
Top
   
Reply with quote  
Deathclaw
 Post subject:
PostPosted: 2006-11-13 17:56:38 
Offline

Joined: 2005-01-21 15:45:19
Posts: 31
Вот ура я конечно дуб будом но я переделал скрипт и у меня таскает ключи из сундука!
Quote:
sub Key()
while not uo.Dead()
UO.FindType('0x1010', '-1', '0x40190380')
wait(100)
UO.MoveItem('finditem','-1','backpack')
Wait(200)
wend
end sub
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-11-13 18:07:29 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
KTO nyKHyJI??? wrote:
Leo wrote:
Code:
sub Key()
UO.FindType('тип ключа', '-1', 'ID сундука')
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1','backpack')
Wait(1000)
wend 
end sub

может быть я что0то делаю нетак но этот скрипт почемуто берёт 1 ключ и кидает его по всем углам пака.


Code:
sub Key() 
  UO.FindType('тип ключа', '-1', 'ID сундука') 
  while UO.FindCount()
    uo.MoveItem('finditem','-1','backpack') 
    Wait(1000) 
    UO.FindType('тип ключа', '-1', 'ID сундука') 
  wend 
end sub


Вот перекладываем ключи из сундука в бекпек, пока все не переложим.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 11 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: Bing [Bot] and 7 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