Суббота, 25.01.2025, 02:56 Приветствую Вас Гость


Ultima-Online (AoP)

Главная | Регистрация | Вход | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Begging
imbaqДата: Среда, 12.03.2008, 14:56 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 52
Репутация: 1
Статус: Offline
Макрос роботает нормально практически не збиваетсо единственое быть синим а то гварды будут вытаптывать стамину и макрос будет иногда зависать. А так впринцепе больше нечево по кординатам оприделите место де будете качатсо ето дето в Серпенс Холе берете чару хавку в пак и вперед:

initevents
Begin:
move 3029 3387 0 \\ ?????????? ???????, ??? ???????
gosub strt
move 3025 3383 0 \\ ?????????? ???????, ??? ???????
gosub strt
move 3031 3380 0 \\ ?????????? ???????, ??? ???????
gosub strt
move 3023 3388 0 \\ ?????????? ???????, ??? ???????
gosub strt
move 3034 3385 0 \\ ?????????? ???????, ??? ???????
gosub strt
move 3035 3387 0 \\ ?????????? ???????, ??? ???????
gosub strt
move 3036 3379 0 \\ ?????????? ???????, ??? ???????
gosub strt
Goto Begin
Sub strt
Start:
FindItem IS_HS
If #FindDist <> 1
{
Ignoreitem #Findid
Goto Start
}
set #ltargetkind 1
Set #Ltargetid #Findid
Event Macro 13 6
target
Event Macro 22 0
wait 3s
ScanJournal 1
If Annoy IN #Journal
{
IgnoreItem Reset
RETURN
}
ScanJournal 2
IF Annoy in #Journal
{
IgnoreItem Reset
return
}
Goto Start

 
  • Страница 1 из 1
  • 1
Поиск: