ИНСКРИПТ макрос наноч :) на реклоы

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
BOT
Posts: 5
Joined: 2004-04-05 18:46:19

ИНСКРИПТ макрос наноч :) на реклоы

Post by BOT »

плиззз
AntiKiller
Posts: 51
Joined: 2004-04-12 13:16:17

Re: ИНСКРИПТ макрос наноч :) на реклоы

Post by AntiKiller »

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
BOT
Posts: 5
Joined: 2004-04-05 18:46:19

Post by BOT »

спасибо:)
Post Reply