BOT wrote:
плиззз
Вот мой Скрипт переделай под свой шард.
sub Inscript()
While UO.Mana < UO.Int
UO.UseSkill("Meditation")
Wait(2500)
Wend
Repeat
If UO.Count('0x0F7B', '0x0000')<1 or UO.Count('0x0F7A', '0x0000')<1 or UO.Count('0x0F86', '0x0000')<1 or UO.Count('0x0E34', '0x0000')<1 then
UO.FindType("0x0F7B", "0x0000", "0x4001B921") #BM
UO.Grab("100","finditem")
wait(1000)
UO.FindType("0x0F7A", "0x0000", "0x4001B921") #BP
UO.Grab("100","finditem")
wait(1000)
UO.FindType("0x0F86", "0x0000", "0x4001B921") #MR
UO.Grab("100","finditem")
wait(1000)
UO.FindType("0x0E34", "0x0000", "0x4001B921") #scroll
UO.Grab("100","finditem")
wait(1000)
endif
UO.UseType('0x0E34') # Ñêðîëë
UO.Waitmenu('Spell Circles','Spell Circle 4','Spell Circle 4','Recall')
Wait(6000)
Until UO.Mana<12
Inscript()
end sub