Anything and all.
Moderators: Murderator+, Murderator
-
ДРВ
- 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
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
Post
by ДРВ »
BigMouseI wrote:поставь вместо 0x0F51 тайп катаны...
пробывал,показывает ошибку...

-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
-
Contact:
Post
by Scripts Writer »
какую ошибку. =\ Делай через вейт меню, имхо надёжнее.