БлэкСмитинг,помогите исправить скрипт.
Posted: 2006-05-03 18:28:57
Исправте в скрипте чтоб он как скувал катану,сразу плавил ее!
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