| Yoko http://forum.yoko.com.ua/ |
|
| ИНСКРИПТ макрос наноч :) на реклоы http://forum.yoko.com.ua/viewtopic.php?f=20&t=340 |
Page 1 of 1 |
| Author: | BOT [ 2004-05-14 18:34:31 ] |
| Post subject: | ИНСКРИПТ макрос наноч :) на реклоы |
плиззз |
|
| Author: | AntiKiller [ 2004-05-14 18:57:43 ] |
| Post subject: | Re: ИНСКРИПТ макрос наноч :) на реклоы |
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 |
|
| Author: | BOT [ 2004-05-14 20:18:39 ] |
| Post subject: | |
спасибо:) |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|