Yoko

All sides of Injection
It is currently 2025-12-22 18:46:31

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 7 posts ] 
  Print view Previous topic | Next topic 
Author Message
MAKC
 Post subject: БС )
PostPosted: 2006-03-14 16:02:15 
Offline
User avatar

Joined: 2005-05-06 16:07:12
Posts: 23
Location: none
Добавте сюда пожалуйста функцию чтобы чар плавил дагеры, а не кидал их в сундук. За рание спасибо
Code:
sub BS() 
   VAR Cont='0x400BE929' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Colored Armor & Weapons") 
   UO.Automenu("Colored Armor & Weapons","Rusty Weapons") 
   UO.Automenu("Rusty Weapons","Rusty Swords & Blades") 
   UO.Automenu("Rusty Swords & Blades","Rusty Dagger") 
;  UO.Automenu("Rusty Dagger") 
   while True 
      UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте 
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте 
         UO.MoveItem('finditem',0,Cont) 
         wait(1000) 
      endif 
   Wend 
end sub
Top
   
Reply with quote  
ghost_hnt
 Post subject:
PostPosted: 2006-03-14 16:58:25 
Offline

Joined: 2006-02-03 19:32:33
Posts: 156
вот вставь в скриптик
Code:
UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; Форж 
wait(500) 
Endif     
Top
   
Reply with quote  
MAKC
 Post subject:
PostPosted: 2006-03-14 17:09:31 
Offline
User avatar

Joined: 2005-05-06 16:07:12
Posts: 23
Location: none
ghost_hnt wrote:
вот вставь в скриптик
Code:
UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; Форж 
wait(500) 
Endif     

Code:
sub BS() 
   VAR Cont='0x400BE929' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Colored Armor & Weapons") 
   UO.Automenu("Colored Armor & Weapons","Rusty Weapons") 
   UO.Automenu("Rusty Weapons","Rusty Swords & Blades") 
   UO.Automenu("Rusty Swords & Blades","Rusty Dagger") 
;  UO.Automenu("Rusty Dagger") 
   while True 
   UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40072029) ; Форж 
wait(500) 
Endif
      UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте 
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте 
         UO.MoveItem('finditem',0,Cont) 
         wait(1000) 
      endif 
   Wend 
end sub
Так ?
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2006-03-14 19:13:30 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
MAKC wrote:
ghost_hnt wrote:
вот вставь в скриптик
Code:
UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; Форж 
wait(500) 
Endif     

Code:
sub BS() 
   VAR Cont='0x400BE929' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Colored Armor & Weapons") 
   UO.Automenu("Colored Armor & Weapons","Rusty Weapons") 
   UO.Automenu("Rusty Weapons","Rusty Swords & Blades") 
   UO.Automenu("Rusty Swords & Blades","Rusty Dagger") 
;  UO.Automenu("Rusty Dagger") 
   while True 
   UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40072029) ; Форж 
wait(500) 
Endif
      UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте 
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте 
         UO.MoveItem('finditem',0,Cont) 
         wait(1000) 
      endif 
   Wend 
end sub
Так ?


Нет Вот так:

Code:
sub BS() 
   VAR Cont='0x400BE929' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Colored Armor & Weapons") 
   UO.Automenu("Colored Armor & Weapons","Rusty Weapons") 
   UO.Automenu("Rusty Weapons","Rusty Swords & Blades") 
   UO.Automenu("Rusty Swords & Blades","Rusty Dagger") 
;  UO.Automenu("Rusty Dagger") 
   while True 
         UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      
UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40072029) ; Форж 
wait(500) 
Endif
Wend 
end sub
Top
   
Reply with quote  
MAKC
 Post subject:
PostPosted: 2006-03-14 21:07:35 
Offline
User avatar

Joined: 2005-05-06 16:07:12
Posts: 23
Location: none
Cooper wrote:
....

ок)
Top
   
Reply with quote  
MAKC
 Post subject:
PostPosted: 2006-04-14 13:01:22 
Offline
User avatar

Joined: 2005-05-06 16:07:12
Posts: 23
Location: none
Умеюшие люди, подскажите, как сюда ещё прокачку Спирит Спика впихнуть :roll:
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2006-04-14 13:12:41 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
MAKC wrote:
Умеюшие люди, подскажите, как сюда ещё прокачку Спирит Спика впихнуть :roll:


Вот со спиритом:
Code:
sub BS() 
   VAR Cont='0x400BE929' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Colored Armor & Weapons") 
   UO.Automenu("Colored Armor & Weapons","Rusty Weapons") 
   UO.Automenu("Rusty Weapons","Rusty Swords & Blades") 
   UO.Automenu("Rusty Swords & Blades","Rusty Dagger") 
;  UO.Automenu("Rusty Dagger") 
   while True 
         UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      
UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40072029) ; Форж 
wait(500) 
Endif 
wait(2000)

UO.UseSkill('Spirit Speak')
wait(4000)
Wend 
end sub


Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 7 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 11 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:  
Powered by phpBB® Forum Software © phpBB Limited