script na bs!!!

[smileme]

Pomofite pls!!!
sub BS()
VAR Cont='0x40043F56' #ID ñíäóêà ñ èíãàìè
var ing = '0x1BEF' #Òèï èíãîâ
var color = '0x0000 ' #Öâåò èíãîâ
UO.CancelMenu()
UO.SetReceivingContainer('backpack')
UO.Automenu("Blacksmithing","Colored Armor & Weapons")
UO.Automenu("Colored Armor & Weapons","Copper Weapons")
UO.Automenu("Copper Weapons","Copper Swords & Blades")
UO.Automenu("Copper Swords & Blades","Copper Dagger")
; UO.Automenu("Copper 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('0x4021FCAC') #ID Ôîðæè
wait(500)
Endif
wait(1000)
Wend
end sub
Mozet kto nibudj peredelatj script tak 4tobi char iscal ingi v sunduke ne po cvetu i tape'u, a po ID??? Zaranee spasibo!!!

[Nmy]

ужас...

[mez]

а ты не знаеш что если ты допустим из кучи возмеш 20 ингов у него айди сменица! даже хоть 1 отнимиш или прибавиш айди меняеться!

[smileme]

Mlin a kakoj vihod najti mozno??? gljuk s copper ingami pokazivaet chto ih cvet 0x0000 vpisivaju etot cvet i tape ingov sctipt pishet "item not found" Mozet kto nitj posovetuet kak s etim borotsja???