БС )

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
MAKC
Posts: 23
Joined: 2005-05-06 16:07:12
Location: none
Contact:
Contact MAKC

БС )

Post by MAKC »

Добавте сюда пожалуйста функцию чтобы чар плавил дагеры, а не кидал их в сундук. За рание спасибо

Code: Select all

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
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

вот вставь в скриптик

Code: Select all

UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; Форж 
wait(500) 
Endif
Top
MAKC
Posts: 23
Joined: 2005-05-06 16:07:12
Location: none
Contact:
Contact MAKC

Post by MAKC »

ghost_hnt wrote:вот вставь в скриптик

Code: Select all

UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

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

Code: Select all

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
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

MAKC wrote:
ghost_hnt wrote:вот вставь в скриптик

Code: Select all

UO.FindType('0x0F51',-1,'backpack')  #укажи здесь тип того чего хочешь делать, в твоем случае тип расти дагера
wait(500) 

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

Code: Select all

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: Select all

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
MAKC
Posts: 23
Joined: 2005-05-06 16:07:12
Location: none
Contact:
Contact MAKC

Post by MAKC »

Cooper wrote:....
ок)
Top
MAKC
Posts: 23
Joined: 2005-05-06 16:07:12
Location: none
Contact:
Contact MAKC

Post by MAKC »

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

Post by Kynep »

MAKC wrote:Умеюшие люди, подскажите, как сюда ещё прокачку Спирит Спика впихнуть :roll:
Вот со спиритом:

Code: Select all

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
Post Reply

Return to “Scripting Ore”