Yoko
http://forum.yoko.com.ua/

БлэкСмитинг,помогите исправить скрипт.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7572
Page 1 of 1

Author:  ДРВ [ 2006-05-03 18:28:57 ]
Post subject:  БлэкСмитинг,помогите исправить скрипт.

Исправте в скрипте чтоб он как скувал катану,сразу плавил ее!
Code:
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

Author:  BigMouseI [ 2006-05-03 18:31:06 ]
Post subject:  Re: БлэкСмитинг,помогите исправить скрипт.

ДРВ wrote:
Исправте в скрипте чтоб он как скувал катану,сразу плавил ее!
Code:
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:
UO.FindType('0x0F51',-1,'backpack')  
wait(500)


поставь вместо 0x0F51 тайп катаны...

Author:  ДРВ [ 2006-05-03 18:38:21 ]
Post subject:  Re: БлэкСмитинг,помогите исправить скрипт.

BigMouseI wrote:
поставь вместо 0x0F51 тайп катаны...
пробывал,показывает ошибку... :(

Author:  Scripts Writer [ 2006-05-03 20:11:06 ]
Post subject: 

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/