БлэкСмитинг,помогите исправить скрипт.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

БлэкСмитинг,помогите исправить скрипт.

Post by ДРВ »

Исправте в скрипте чтоб он как скувал катану,сразу плавил ее!

Code: Select all

sub BS() 
   VAR Cont='0x402FD3E0' #ID ñíäóêà ñ èíãàìè 
   var ing = '0x1BEF'   #Òèï èíãîâ 
   var color = '0x0750' #Öâåò èíãîâ 
   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 Katana") 
;  UO.Automenu("Rusty Katana") 
   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('0x402423ED') #ID Ôîðæè 
wait(500) 
Endif 
wait(5000) 

UO.UseSkill('Spirit Speak') 
wait(5000) 
Wend 
end sub
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Re: БлэкСмитинг,помогите исправить скрипт.

Post by BigMouseI »

ДРВ wrote:Исправте в скрипте чтоб он как скувал катану,сразу плавил ее!

Code: Select all

sub BS() 
   VAR Cont='0x402FD3E0' #ID ñíäóêà ñ èíãàìè 
   var ing = '0x1BEF'   #Òèï èíãîâ 
   var color = '0x0750' #Öâåò èíãîâ 
   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 Katana") 
;  UO.Automenu("Rusty Katana") 
   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('0x402423ED') #ID Ôîðæè 
wait(500) 
Endif 
wait(5000) 

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

Code: Select all

UO.FindType('0x0F51',-1,'backpack')  
wait(500) 
поставь вместо 0x0F51 тайп катаны...
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Re: БлэкСмитинг,помогите исправить скрипт.

Post by ДРВ »

BigMouseI wrote: поставь вместо 0x0F51 тайп катаны...
пробывал,показывает ошибку... :(
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

какую ошибку. =\ Делай через вейт меню, имхо надёжнее.
Post Reply