RO-fan

Клуб любителей пляски с бубном вокруг OpenKore
https://ro-fan.ru/

макрос на печати!{1-2 печать готова, другие в скором времен}

https://ro-fan.ru/viewtopic.php?f=32&t=6619

Страница 1 из 4

макрос на печати!{1-2 печать готова, другие в скором времен}

Добавлено: Пн дек 22, 2008 6:11 pm
prifits
Всем трям, вот решил сделать макросы на печати ибо достало ждать когда откроються сами, наскока я помню их нет или ненашол =)

Нужна будет помощь разбирающиеся в макрописание (посмотрел на чёрта с кликом :roll: ) для того чтобы превести в порядок, дописать нехватающих честей и т.д. самого макросы.

Ну и помощь в тестирование =)

Сегодня постараюсь выложить макрос на 1 печать.

И так написал, всё проверене пашет на ура. если какието ошибки пишите.

Код: Выделить всё

# Не удаляйте эти строки, они нужны для корректной работы с UTF-8.
# Пишите ваши макросы в этом файле, ниже этих строк.
# Гайд по macro плагину:
# http://www.openkore.com/wiki/index.php/Macro_plugin_Russian
#Макро для прохождения 1 печати на rRO
#Версия от 23.12.2008
#Автор prifits
## Выражаю блогадарность за помощь в разьеснение вопросов Святой Инквизитор,SmOOve,Click,4epT
### и так нам надо чтоб мы были в юно и при нас был лут, лвл перса 70+, и немного зеней на варп 
## нужный лут надо всего по 9 шт
## Панцирь краба
## Панцирь малюска
## Острая чешуйка
## Рыбий хвост
## Плавник
## Губы древней рыбы
## Детонатор
## Сухожилие
## Чернила кальмара
## Клетка   Вес   
## Клешня краба   
## Жабры
## Щупальца
## Сердце русалки
## Морская раковина



automacro Sleipnir { 
	location yuno    
	inventory "Crab Shell" > 8
	inventory "Clam Shell" > 8
	inventory "Sharp Scale" > 8
	inventory "Fish Tail" > 8
	inventory "Fin" > 8
	inventory "Ancient Lips" > 8
	inventory "Detonator" > 8
	inventory "Tendon" > 8
	inventory "Squid Ink" > 8
	inventory "Single Cell" > 8
	inventory "Nipper" > 8
	inventory "Gill" > 8
	inventory "Tentacle" > 8
	inventory "Heart of Mermaid" > 8
	inventory "Conch" > 8
	run-once 1 
	call Sleipnir-1 
}

### говорим с неписом Нойей

macro Sleipnir-1 { 
	do move 162 200
	pause @rand(1,5)
	do conf autoTalkCont 0
	do talknpc 164 200 c c 
	call Sleipnir-1-1
}

### идём в лабороторию и говорим с менеджером

macro Sleipnir-1-1 { 
	do move 218 180
	pause @rand(1,5)
	do move 97 96
	pause @rand(1,5)
	do talknpc 98 98 c c c c r1 c c c
	pause @rand(1,5) 
	call Sleipnir-1-2
}

### идём к 1 учёному и говорим с ним

macro Sleipnir-1-2 { 
	do conf autoTalkCont 1
	do move 85 92
	pause @rand(1,5)
	do move 45 97
	pause @rand(1,5)
	do move 64 120
	do conf autoTalkCont 0
	do talknpc 66 125 c c c c c
	pause @rand(1,5)
	do talknpc 66 125 c c
	pause @rand(1,5)
	do move 62 117
	pause @rand(1,5)
	do move 64 89
	pause @rand(1,5)
	do move 99 82 
	pause @rand(1,5)
	call Sleipnir-1-3
}

### Проходим квест на 10 гемов(если он пройден то над переписать в последнем блоке с call Sleipnir-1-3 на Sleipnir-1-8)


macro Sleipnir-1-3 {
 	do move 196 138
	pause @rand(1,5)
	do conf autoTalkCont 1
	do move 23 33
	do conf autoTalkCont 0
	pause @rand(1,5)
	do talknpc 17 30 c c c r0 c r0 c
	pause @rand(1,5)
	do move 32 35 
	call Sleipnir-1-4
}

### говорим с мето и идём к Стенглу

macro Sleipnir-1-4 { 
	do move 278 292
	do move 25 39
	pause @rand(1,5)
	do talknpc 26 39 c
	do move 25 11
	pause @rand(1,5)
	do move 48 150
	pause @rand(1,5)
	do move 19 92
	do talknpc 17 95 c r0 c c c c c
	pause @rand(1,5)
	do move 34 100
	call Sleipnir-1-5
}

### говорим с мето и идём к Капто

macro Sleipnir-1-5 { 
	pause @rand(1,5)
	do move 278 292
	pause @rand(1,5)
	do move 25 39
	do talknpc 26 39 c c
	pause @rand(1,5)
	do move 25 11
	pause @rand(1,5)
	do move 46 106
	pause @rand(1,5)
	do move 21 180
	do talknpc 19 183 c r0 c
	pause @rand(1,5)
	do talknpc 19 183 c
	pause @rand(1,5)
	do talknpc 19 183 c
	do move 40 177
	call Sleipnir-1-6
}

### говорим с мето и идём к Шиши

macro Sleipnir-1-6 { 
	do move 278 292
	pause @rand(1,5)
	do move 25 39
	pause @rand(1,5)
	do talknpc 26 39 c c
	do move 25 11
	pause @rand(1,5)
	do move 323 285
	pause @rand(1,5)
	do move 179 41
	do talknpc 178 43 c c r0 c
	do move 166 20
	pause @rand(1,5)
	do move 278 292
	pause @rand(1,5)
	do move 25 39
	do talknpc 26 39 c c c
	do move 25 11
	call Sleipnir-1-7
}

### Идём к Вейгону и получаем 10 гемов (квест окончен)

macro Sleipnir-1-7 { 
	pause @rand(1,5)
	do move 196 138
	pause @rand(1,5)
	do conf autoTalkCont 1
	do move 23 33
	pause @rand(1,5)
	do conf autoTalkCont 0
	do talknpc 17 30 c
	pause @rand(1,5)
	do talknpc 17 30 c
	pause @rand(1,5)
	do move 32 35
	call Sleipnir-1-8
}

### говорим с мето
	
macro Sleipnir-1-8 { 
	pause @rand(1,5)
	do move 278 292
	pause @rand(1,5)
	do move 25 39
	do talknpc 26 39 c
	pause @rand(1,5)
	do talknpc 26 39 c
	do move 25 11
	pause @rand(1,5)
	call Sleipnir-1-9
}

### Возрощаемся к 1 учёному и говорим с ним

macro Sleipnir-1-9 { 
	do move 218 180
	pause @rand(1,5)
	do conf autoTalkCont 1
	do move 85 92
	pause @rand(1,5)
	do move 45 97
	pause @rand(1,5)
	do move 64 120
	pause @rand(1,5)
	do conf autoTalkCont 0
	do talknpc 66 125 c c
	call Sleipnir-1-10
}

###начинаем говорить с нпц

macro Sleipnir-1-10 { 
	do conf autoTalkCont 1
	do talknpc 66 125 c
}     
    
### всё тоже самое говорит

automacro Sleipnir-1-101 { 
	console /Еще минутку./
	call Sleipnir-1-102 
}

automacro Sleipnir-1-103 { 
	console /Ты вернулся./ 
	run-once 1 
	call Sleipnir-1-11 
}
    
### снова говорим

macro Sleipnir-1-102 { 
	pause @rand(1,5)
	do talknpc 66 125 c
	pause @rand(1,5)
	release Sleipnir-1-101 
}



### говорим с ним дальше и 1 УЧЁНЫЙ ПРОЙДЕН

macro Sleipnir-1-11 {
	do conf autoTalkCont 1
	do talk @npc(66 125)
	pause @rand(1,5)
	do talk @npc(66 125)
	pause @rand(1,5)
	do talk @npc(66 125)
	do move 62 117
	pause @rand(1,5)
	do conf autoTalkCont 0
	call Sleipnir-2-1
}

### идём к 2 учёному (про плиту) и проходим его

macro Sleipnir-2-1 { 
	do conf autoTalkCont 1
	pause @rand(1,5)
	do move 16 80
	do conf autoTalkCont 0
	do talknpc 14 47 c c c
	do talknpc 20 48 c
	do talknpc 14 47 c c c c c c
	do talknpc 20 48 c c c t=dirdnl c c t=tkaryf c c t=ghswka c c c c c
	do talknpc 14 47 c c
	do talknpc 14 47 c
	do move 12 55
	pause @rand(1,5)
	call Sleipnir-3-1
}

### идём к 3 учёному (с лутом) и проходим его
	
macro Sleipnir-3-1 { 
	do conf autoTalkCont 1
	do move 46 80
	do conf autoTalkCont 0
	do talknpc 55 47 c c c c c c
	do talknpc 55 47 c c c
	do talknpc 55 47 c c
	do talknpc 55 47 c
	pause @rand(1,5)
	do move 50 55
	call Sleipnir-4-1
}

### идём к 4 учёному (с мотанием до пайона) 

macro Sleipnir-4-1 { 
	do conf autoTalkCont 1
	pause @rand(1,5)
	do move 16 97
	pause @rand(1,5)
	do move 6 137
	do conf autoTalkCont 0
	do talknpc 11 136 c c c c c c c
	do talknpc 11 136 c
	do move 11 117
	pause @rand(1,5)
	do move 64 89
	pause @rand(1,5)
	do move 99 82 
	pause @rand(1,5)
	call Sleipnir-4-2
}

### идём в пайон

macro Sleipnir-4-2 { 
	do move 155 179
	pause @rand(1,5)
	do talknpc 152 187 c r2 c r0
	do move 140 111
	pause @rand(1,5)
	do talknpc 143 119 c r2 c r0
	do move 116 61
	pause @rand(1,5)
	do talknpc 120 62 c r2 c r0
	do move 138 90
	pause @rand(1,5)
	do talknpc 146 89 c r2 c r2
	call Sleipnir-4-3
}

### идём к нпц и болтаем с ним

macro Sleipnir-4-3 { 
	pause @rand(1,5)
	do move 80 171
	do talknpc 79 171 c r0 c c r1 c c c c c c c c c c c r1 c c c c c r2 c c c c c c c r1 c c c c c r1 c c c c r2 c c c c c
	do talknpc 79 171 c
	call Sleipnir-4-4
}

### идём в юно

macro Sleipnir-4-4 { 
	pause @rand(1,5)
	do move 182 102
	do talknpc 181 104 c r2 c r0
	pause @rand(1,5)
	do move 136 91
	do talknpc 146 89 c r2 c r0
	pause @rand(1,5)
	do move 128 90
	do talknpc 134 88 c r2 c r3
	pause @rand(1,5)
	do move 140 113
	do talknpc 143 119 c r2 c r1
	pause @rand(1,5)
	call Sleipnir-4-5
}
	
### идём в к учёному и говорим с ним

macro Sleipnir-4-5 { 
	do move 218 180
	do conf autoTalkCont 1
	pause @rand(1,5)
	do move 85 92
	do move 16 97
	pause @rand(1,5)
	do move 6 137
	do conf autoTalkCont 1
	do talknpc 11 136 c c c c c c c c c c c c c
	do talknpc 11 136 c
	pause @rand(1,5)
	do move 11 117
	pause @rand(1,5)
	do move 64 89
	pause @rand(1,5)
	do move 99 82 
	call Sleipnir-4-6
}

### идём в пайон

macro Sleipnir-4-6 { 
	pause @rand(1,5)
	do move 155 179
	do talknpc 152 187 c r2 c r0
	pause @rand(1,5)
	do move 140 111
	do talknpc 143 119 c r2 c r0
	pause @rand(1,5)
	do move 116 61
	do talknpc 120 62 c r2 c r0
	pause @rand(1,5)
	do move 138 90
	do talknpc 146 89 c r2 c r2
	pause @rand(1,5)
	call Sleipnir-4-7
}

### идём к нпц и болтаем с ним

macro Sleipnir-4-7 { 
	do move 80 171
	do talknpc 79 171 c r0 c c r1 c c c c c c c c c c c r1 c c c c c r2 c c c c c c c r1 c c c c c r1 c c c c r2 c c c c c
	do talknpc 79 171 c
	call Sleipnir-4-8
}

### идём в юно

macro Sleipnir-4-8 { 
	pause @rand(1,5)
	do move 182 102
	do talknpc 181 104 c r2 c r0
	pause @rand(1,5)
	do move 136 91
	do talknpc 146 89 c r2 c r0
	pause @rand(1,5)
	do move 128 90
	do talknpc 134 88 c r2 c r3
	pause @rand(1,5)
	do move 140 113
	do talknpc 143 119 c r2 c r1
	pause @rand(1,5)
	call Sleipnir-4-9
}

### идём в к учёному и говорим с ним (всё пройден)
	
macro Sleipnir-4-9 { 
	do move 218 180
	do conf autoTalkCont 1
	pause @rand(1,5)
	do move 85 92
	pause @rand(1,5)
	do move 16 97
	pause @rand(1,5)
	do move 6 137
	do conf autoTalkCont 1
	do talknpc 11 136 c c c c c c c c c c c c
	do talknpc 11 136 c
	pause @rand(1,5)
	do move 11 117
	pause @rand(1,5)
	do move 64 89
	call Sleipnir-5-0
}

### всё получаем награду и печать пройдена
	
macro Sleipnir-5-0 { 
	pause @rand(1,5)
	do talknpc 98 98 c c c c c c c
	do talknpc 98 98 c
	pause @rand(1,5)
	do move 99 82
	pause @rand(1,5)
	do move 154 181
	do sit
	log Я прошол 1 печать
}

Код: Выделить всё

# Не удаляйте эти строки, они нужны для корректной работы с UTF-8.
# Пишите ваши макросы в этом файле, ниже этих строк.
# Гайд по macro плагину:
# http://www.openkore.com/wiki/index.php/Macro_plugin_Russian
#Макро для прохождения 2 печати на rRO
#Версия от 25.12.2008
#Автор prifits
## Выражаю блогадарность за помощь в разьеснение вопросов Святой Инквизитор,SmOOve,Click,4epT
### и так нам надо чтоб мы были в пронтере и при нас был лут, лвл перса 70+, и немного зеней на варп и сохранены в пронтере (у правой или левой кафры)
## нужный лут надо 
## Фонарь - 1шт
## Масляная бумага - 1шт
## Гладкая бумага - 2шт
## Лупа - 1шт
## Синий драгоценый камень - 20шт
## Зелёная трава - 1шт
## Памятная закладка - 1шт
## Птичье перо - 3шт
## Чернила кальмара - 3шт
## Спирт(любой) - 7шт
## Кукла (любая) - 1шт
## Крылья бабочки - 16 шт

automacro Megingjard { 
	location prontera    
	inventory "Magnifier" >= 1
	inventory "Green Herb" >= 1
	inventory "Oil Paper" >= 1
	inventory "Feather of Birds" >= 2
	inventory "Blue Gemstone" >= 19
	inventory "Squid Ink" >= 2
	inventory "Slick Paper" >= 1
	inventory "Bookclip in Memory" >= 1
	inventory "Lantern" >= 1
	inventory "Alcohol" >= 6
	run-once 1 
	call Megingjard-1
}

macro Megingjard-1 { 
	do move prt_castle 40 150
	pause @rand(1,5)
	do conf autoTalkCont 0
	do talknpc 44 151 c c c c c c c c c r0 c c r0 c c c c c c c
	call Megingjard-1-100
}


macro Megingjard-1-100 { 
	pause @rand(1,3)
	do conf autoTalkCont 1
	pause @rand(1,3)
	do talknpc 44 151 c c

}

automacro Megingjard-1-103 { 
	priority 1 
	exclusive 1
	console /Ваше последнее задание/
	run-once 1 
	call Megingjard-1-2
}


automacro Megingjard-1-101 {  
	priority 2
	console /Я уже почти ушел./ 
	call Megingjard-1-102
}


macro Megingjard-1-102 { 
	do talk resp @rand(0,1)
	call Megingjard-1-100
}


macro Megingjard-1-2 { 
	do talk resp 2
	pause 5
	do conf autoTalkCont 0
	call Megingjard-1-3
}

macro Megingjard-1-3 { 
	do conf autoTalkCont 0
	do move prt_in 180 97
	do talknpc 172 106 c c c c c r3 c t="Записи о последней миссии третьей армии" c 
	pause 2
	do talk resp 0
	pause 2
	do talk resp 2
	pause 2
	do talk cont
	pause 2
	do talk cont
	pause 2
	do talk cont
	pause 2
	do talk resp 0
	pause 2
	do talk cont
	pause 2
	do talk cont
	pause 2
	do talk resp 1
	pause 2
	do talk cont
	pause 2
	do talk resp 1
	pause 2
	do talk cont
	pause 2
	do talk cont
	pause 2
	do talk cont	
	pause 2
	call Megingjard-1-4
}

macro Megingjard-1-4 { 
	do conf autoTalkCont 1
	pause @rand(1,4)
	do talknpc 168 109 c
	pause @rand(1,4)
}



automacro Megingjard-1-300 {  
	console /Вы нашли полку/ 
	call Megingjard-1-4
}

automacro Megingjard-1-301 {  
	console /Вы нашли - Записи о третьей армии/ 
	run-once 1
	call Megingjard-1-5
}

macro Megingjard-1-5 { 
	do conf autoTalkCont 0
	pause @rand(1,4)
	do talknpc 172 106 c c r0 c c c c c c
	pause @rand(1,4)
	do talknpc 172 106 c c
	pause @rand(1,4)
	do conf autoTalkCont 1
	call Megingjard-1-6
}


macro Megingjard-1-6 { 
	do talknpc 172 106 c 
	pause @rand(1,3)
}


automacro Megingjard-1-400 {  
	console /Позвольте мне пересмотреть документ еще раз/ 
	call Megingjard-1-6
}

automacro Megingjard-1-401 {  
	console /документ не содержит никакой особо важной информации/ 
	run-once 1
	call Megingjard-1-7
}

macro Megingjard-1-7 { 
	pause @rand(1,4)
	do conf autoTalkCont 0
	pause @rand(2,4)
	do talknpc 172 106 c r0 c t="крестоносец_третья армия_первый взвод_третий отряд_последняя миссия" c
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause 2
	do talk resp 2
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talknpc 172 106 c r0 c t="крестоносец_третья армия_первый взвод_третий отряд_последняя миссия" c
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
	do talk cont
	pause 2
	do talk resp 2
	pause @rand(2,4)
	do talk cont	
	pause @rand(2,4)
	do talk cont
	pause @rand(2,4)
call Megingjard-1-8
}

macro Megingjard-1-8 { 
	do move prt_castle 40 150
	pause @rand(1,5)
	call Megingjard-1-9
}

macro Megingjard-1-9 { 
	do talknpc 44 151 c c c c c
	do talknpc 44 151 c c c c c
	do talknpc 44 151 c c c c c
	call Megingjard-1-10
}


macro Megingjard-1-10 { 
	do move prontera 27 205
	pause @rand(1,5)
	do talknpc 29 207 c r2 c r1
	pause @rand(1,5)
	call Megingjard-1-11
}

macro Megingjard-1-11 { 
	do move geffen_in 107 161
	pause @rand(1,5)
	call Megingjard-1-12
}


macro Megingjard-1-12 {
	do conf autoTalkCont 1 
	do talknpc 109 161 c
}


automacro Megingjard-1-500 { 
	location geffen_in
	console /Спросить о третьем отряде/  
	call Megingjard-1-501 
}

macro Megingjard-1-501 {
	do talk resp @rand(0,2)
	pause 15
	do talknpc 109 161 c
}


automacro Megingjard-1-502 { 
	location geffen_in
	console /Почему я не могу вспомнить/  
	call Megingjard-1-13 
}


macro Megingjard-1-13 { 
	do move geffen 125 58
	do conf autoTalkCont 0
	pause @rand(1,5)
	do talknpc 120 62 c r2 c r0
	call Megingjard-1-14
}


macro Megingjard-1-14 { 
	pause 8
	do move prontera 138 92
	pause @rand(1,5)
	do talknpc 146 89 c r2 c r3
	pause @rand(1,5)
	call Megingjard-1-15
}

macro Megingjard-1-15 { 
	do move morocc_in 147 175
	do conf autoTalkCont 0
	pause 3
	call Megingjard-1-16
}

macro Megingjard-1-16 { 
	release 1-899
	do talknpc 146 179 c c c t="Сэк Донон" c c c c r1 c c
	pause @rand(1,5)
}


automacro 1-899 {
	mapchange prontera
	run-once 1  
	call Megingjard-1-14
}



automacro 1-800 {
	map morocc_in
	console /Арагам не крал никаких слитков/  
	call Megingjard-1-17
}

macro Megingjard-1-17 {
	lock 1-899  
	do move morocc 163 248
	do conf autoTalkCont 0
	pause 3
	do talknpc 160 258 c r2 c r4
	call Megingjard-1-18
}


macro Megingjard-1-18 { 
	do conf autoTalkCont 1
	do move cmd_fild09 106 195
	pause 2
	do talk resp 1
	do talk resp 2
	do talk resp 1
	do talk resp 0
	call Megingjard-1-19
}

macro Megingjard-1-19 { 
	pause 2
	do move  240 57
	pause 3
	do talknpc 243 61 с
}


macro Megingjard-1-1000 { 
	pause 6
	do conf autoTalkCont 1
	pause @rand(1,3)
	do talknpc 243 61 c

}

automacro Megingjard-1-1003 { 
	priority 1 
	exclusive 1
	console /Тихонько слушать его/
	run-once 1
	call Megingjard-1-20 
}


automacro Megingjard-1-1001 {  
	priority 2
	console /Спросить о женщине в гостинице/ 
	call Megingjard-1-1002
}


macro Megingjard-1-1002 { 
	do talk resp @rand(0,2)
	call Megingjard-1-1000
}

macro Megingjard-1-20 { 
	do talk resp 1
	pause 3
}

automacro Megingjard-1-1004 { 
	priority 1 
	exclusive 1
	console /Внимательно слушать/
	run-once 1
	call Megingjard-1-21 
}


macro Megingjard-1-21 { 
	do talk resp 2
	pause 3
	call Megingjard-1-22
}

automacro Megingjard-1-100444 { 
	priority 1 
	console /Больше я ничего не помню./
	call Megingjard-1-1000 
}

automacro Megingjard-1-1ff00444 { 
	priority 2 
	exclusive 1
	console /у меня болит голова/
	call Megingjard-1-22 
}



macro Megingjard-1-22 { 
	do talknpc 243 61 c
	pause 3
	do talknpc 243 61 c
	do conf autoTalkCont 0
	do move 243 20
	pause 2
	do move cmd_fild07 135 132
	pause 2
	call Megingjard-1-23
}

macro Megingjard-1-23 { 
        do talknpc 136 134 c c r2 c r0
	pause 3
	do move 152 90
	pause 1
	do talknpc 156 97 c r2 c r2
	pause 3
	call Megingjard-1-24
}

macro Megingjard-1-24 { 
	do move 192 143
	do conf autoTalkCont 1
	pause 1
	call Megingjard-1-2000
}

macro Megingjard-1-2000 { 
	pause @rand(1,3)
	do conf autoTalkCont 1
	pause @rand(1,3)
	do talknpc 196 146 c

}

automacro Megingjard-1-2003 { 
	exclusive 1
	console /задумчиво жует/
	run-once 1
	call Megingjard-1-25 
}


automacro Megingjard-1-2001 {  
	console /Спросить о Ребареве Дуге/ 
	call Megingjard-1-2002
}


macro Megingjard-1-2002 { 
	do talk resp @rand(0,2)
	pause 5
	call Megingjard-1-2000
}


macro Megingjard-1-25 { 
	do conf autoTalkCont 0
	do move 117 58
	pause @rand(1,3)
	do talknpc 113 60 c r2 c r2
	pause @rand(1,3)
	do move 140 92
	do talknpc 146 89 c r2 c r0
	pause @rand(1,3)
	do move 126 90
	do talknpc 134 88 c r2 c r3
	call Megingjard-1-26
}


macro Megingjard-1-26 { 
	do move 59 217
	call Megingjard-1-3000
}

macro Megingjard-1-3000 { 
	pause @rand(1,3)
	do conf autoTalkCont 1
	pause @rand(1,3)
	do talknpc 66 213 c

}

automacro Megingjard-1-3003 {  
	console /Я соскучилась по этим парням/
	run-once 1
	call Megingjard-1-27 
}


automacro Megingjard-1-3001 {  
	console /Зачем ты хочешь быть/ 
	call Megingjard-1-3002
}


macro Megingjard-1-3002 { 
	pause 3
	do talk resp @rand(0,2)
	call Megingjard-1-3000
}


macro Megingjard-1-27 { 
	do conf autoTalkCont 0
	do move 140 113
	do talknpc 143 119 c r2 c r0
	do move 114 60
	do talknpc 120 62 c r2 c r0
	call Megingjard-1-28
}

macro Megingjard-1-28 { 
	do conf autoTalkCont 1
	do move prt_in 164 14
	do talknpc 173 13 c 
}


macro Megingjard-1-4000 { 
	pause @rand(1,3)
	do talknpc 173 13 c
}

automacro Megingjard-1-4003 {  
	exclusive 1
	map jawaii_in
	run-once 1
	call Megingjard-1-29
}


automacro Megingjard-1-4001 {  
	console /...Налей еще/ 
	call Megingjard-1-4002
}

automacro Megingjard-1-4006 {  
	console /Подписать/ 
	call Megingjard-1-4002
}

macro Megingjard-1-4002 { 
	do talk resp 0
	call Megingjard-1-4000
}


macro Megingjard-1-29 { 
	do conf autoTalkCont 1
	do move 44 113
	call Megingjard-1-9000
}


macro Megingjard-1-9000 { 
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do talk @npc(44 110)
	pause @rand(1,5)
	do conf autoTalkCont 0
	call Megingjard-2-40
}


macro Megingjard-2-40 {  
	do move 44 126
	do is Butterfly Wing
	call Megingjard-2-41
}


macro Megingjard-2-41 {  
	pause @rand(1,5)
	do move 138 92
	do talknpc 146 89 c r2 c r3
	pause @rand(1,5)
	do move 156 92
	do talknpc 156 97 c r2 c r3
	call Megingjard-2-42
}	

macro Megingjard-2-42 {  
	pause @rand(1,5)
	do move cmd_in02 191 94
	pause @rand(1,5)
	do talknpc 190 94 c c r0
	call Megingjard-1-777
}	



macro Megingjard-1-777 { 
	pause @rand(1,3)
	do conf autoTalkCont 1
	pause @rand(1,3)
	do talknpc 190 94 c

}

automacro Megingjard-1-999 { 
	priority 1 
	exclusive 1
	console /Сделай доброе дело и я расскажу что-нибудь/
	run-once 1
	call Megingjard-2-43
}


automacro Megingjard-1-666 {  
	priority 2
	console /Поговорить о Ребареве/ 
	run-once 1
	call Megingjard-1-333
}


macro Megingjard-1-333 { 
	do talk resp 3
	release Megingjard-1-666
	call Megingjard-1-777
}


macro Megingjard-2-43 { 
	do conf autoTalkCont 0
	pause 5
	do talknpc 190 94 c r0 c
	pause @rand(1,3)
	do talknpc 190 94 c r1
	pause @rand(1,3)
	do talknpc 190 94 c r2 c c
	pause @rand(1,3)
	do talknpc 190 94 c r3 c
	pause @rand(1,3)
	do talknpc 190 94 c r0 c
	pause @rand(1,3)
	do talknpc 190 94 c r1
	pause @rand(1,3)
	do talknpc 190 94 c r2 c c
	pause @rand(1,3)
	do talknpc 190 94 c r3 c
	pause @rand(1,3)
	do is Butterfly Wing
	pause @rand(1,3)
	do move prt_castle 40 150
	call Megingjard-2-44
}


macro Megingjard-2-44 { 
	do talknpc 44 151 c r0 c c c c c c c c
	pause @rand(1,3)
	do talknpc 44 151 c r0 c c c c c c c c
	pause @rand(1,3)
	call Megingjard-2-45
}

macro Megingjard-2-45 { 
	do is Butterfly Wing
	pause @rand(1,3)
	do move 138 92
	pause @rand(1,3)
	do talknpc 146 89 c r2 c r3
	pause @rand(1,3)
	do move 156 86
	pause @rand(1,3)
	do talknpc 156 97 c r2 c r3
	pause @rand(1,3)
	do talknpc 195 150 c c r2 c r2
	pause @rand(1,3)
	do talknpc 87 160 c r0
	call Megingjard-2-46
}

macro Megingjard-2-46 { 
	pause 2
	release Megingjard-1-800a
	do move umbala 140 197
}

automacro Megingjard-1-666ss {  
	map nif_in
	run-once 1
	call Megingjard-2-47
}

automacro Megingjard-1-578 { 
	console /Тарзанке/ 
	run-once 1
	call Megingjard-2-46
}

automacro Megingjard-1-57d8dd1 { 
	console /Ухххххххххххххххххх/ 
	run-once 1
	call Megingjard-2-46
}


automacro Megingjard-1-800a {
	mapchange umbala
	run-once 1
	call Megingjard-2-46
}

macro Megingjard-2-47 { 
	pause @rand(2,6)
	do sit
	lock Megingjard-1-800a
	lock Megingjard-1-578
	lock Megingjard-1-57d8dd1
	lock Megingjard-1-666ss
}

automacro Megingjard-1-666swws {  
	exclusive 1
	priority 1
	map nif_in
	hp > 90%
	run-once 1
	call Megingjard-2-48
}


macro Megingjard-2-48 { 
	lock  Megingjard-1-666swws 
	do move niflheim 109 253 
	pause @rand(2,6)
	do talknpc 109 254 c c c r0 c c c c c c c c c c c c c
	pause @rand(2,6)
	do talknpc 109 254 c c c r1 c c c c c c c c c c c c
	pause @rand(2,6)
	do talknpc 109 254 c c c r2 c c c c c c c c
	pause @rand(2,6)
	do talknpc 109 254 c c c r3 c
	pause @rand(2,6)
	do talknpc 109 254 c
	lock Megingjard-1-800a1
	pause @rand(2,6)
	do is Butterfly Wing
	call Megingjard-2-49
}


macro Megingjard-2-49 { 
	pause @rand(2,6)
	do talknpc 87 160 c r2 c r0
	pause @rand(2,6)
	do talknpc 195 150 c c r2 c r0
	pause @rand(2,6)
	do move 155 90
	pause @rand(2,6)
	do talknpc 156 97 c r2 c r0
	pause @rand(2,6)
	do move prt_castle 40 150
	call Megingjard-2-50
}

macro Megingjard-2-50 { 
	pause @rand(2,6)
	do talknpc 44 151 c c c c c c
	pause @rand(2,6)
	do talknpc 44 151 c c c c c c
	pause @rand(2,6)
	do move 40 163
	pause @rand(2,6)
	do talknpc 48 164 c c c c
	pause @rand(2,6)
	do talknpc 48 164 c 
	do is Butterfly Wing
	call Megingjard-2-51
}

macro Megingjard-2-51 { 
	lock Megingjard-1-800a
	lock Megingjard-1-578
	lock Megingjard-1-666swws
	lock Megingjard-1-57d8dd1
	release Megingjard-1-57d81
	release Megingjard-1-800a1
	do move umbala 140 197
}

	

automacro Megingjard-1-666ss1 {  
	map nif_in
	hp > 99%
	run-once 1
	call Megingjard-2-52
}

automacro Megingjard-1-5781 { 
	console /Тарзанке/ 
	run-once 1
	call Megingjard-2-51
}


automacro Megingjard-1-800a1 {
	mapchange umbala
	run-once 1
	call Megingjard-2-51
}

automacro Megingjard-1-57d81 { 
	console /Ухххххххххххххххххх/ 
	run-once 1
	call Megingjard-2-51
}



macro Megingjard-2-52 { 
	pause @rand(2,6)
	do sit
	lock Megingjard-1-800a1
	lock Megingjard-1-5781
	lock Megingjard-1-666ss
	lock Megingjard-1-57d81
}

automacro Megingjard-1-666swws1 {  
	map nif_in
	hp > 99%
	call Megingjard-2-53
}


macro Megingjard-2-53 {  
	lock Megingjard-1-666swws1
	do conf autoTalkCont 1
	do move niflheim 109 253 
	pause @rand(2,6)
	do talknpc 109 254 c 
	pause @rand(2,6)
	do talknpc 109 254 c
	pause @rand(2,6)
	do talknpc 109 254 c
	do is Butterfly Wing
	call Megingjard-2-54
	
}

macro Megingjard-2-54 {  
	do conf autoTalkCont 0
	pause @rand(2,6)
	do talknpc 87 160 c r2 c r0
	pause @rand(2,6)
	do talknpc 195 150 c c r2 c r1
	pause @rand(2,6)
	do talknpc 136 134 c c r2 c r0
	pause @rand(2,6)
	do move 152 90
	pause @rand(2,6)
	do talknpc 156 97 c r2 c r0
	pause @rand(2,6)
	do move 137 90
	pause @rand(2,6)
	do talknpc 146 89 c r2 c r0
	pause @rand(2,6)
	do move 124 90
	pause @rand(2,6)
	do talknpc 134 88 c r2 c r3
	pause @rand(2,6)
	call Megingjard-2-55
}

macro Megingjard-2-55 { 
	do conf autoTalkCont 1
	pause @rand(2,6) 
	do move 59 217
	pause @rand(2,6)
	do talknpc 66 213 c
	pause @rand(2,6)
	do talknpc 66 213 c
	pause @rand(2,6)
	do talknpc 66 213 c
	do sit
	log Я прошол 2 печать
}

Re: Помощь в макросе на печати!

Добавлено: Пн дек 22, 2008 7:25 pm
SmOOve
будет офигенно если выложиш, какрас есть куча ботов которые непрошли печати

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 10:34 am
prifits
2 раза скачали и молчат =)

Щас проснусь до канца и будем дальше баги вылавливать и править =)

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 10:55 am
SmOOve
automacro Sleipnir-1-10,1 {
console /Еще минутку.../
run-once 1
call Sleipnir-1-10,2
}


тут макрос срабатывае ткогда в консоли появится /Еще минутку.../ во первых нету такого значений как три точьки, нада ставить .*(осночает любое количество символов)

второе я думаю что тут
macro Sleipnir-1-10 {
do talknpc 66 125 c
}
ду толк нпс нада продублировать несколько раз, так как там НПЦ не спервого раза говорит то что нада, насколько я помню, седня попробую потестить и посмотреть где он залупается.

вцелом неплохо, хорошо что есть люди которые пишут хорошие макросы за бесплатно
Огромное спасибо.

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 11:24 am
Святой Инквизитор
Ну это чисто косметическое изменение.. но почему бы не добавить что-то на подобии:

Код: Выделить всё

macro randc {
$x = @eval($x + @random("-2", "-1", "0", "1", "2"))
$y = @eval($y + @random("-2", "-1", "0", "1", "2"))
do move $x $y
}
А перед каждым движением писать:

Код: Выделить всё

$x = <координата>
$y = <координата>
Тогда вместо движения подставлять макрос, а то будут же толпы одинаковых ботов бегать.... палевно как-то, по тем же координатам...

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 11:52 am
prifits
Это мой 2 макрос за всё жизнь =) такчто много ещё чего не знаю.


Так с блоком Sleipnir-1-10 разобрался, терь проблема при поевлении нужных слов нам надо говорить дальше но блок

macro Sleipnir-1-11 {
do talknpc 66 125 c c c c c c c
pause @rand(1,15)
do talknpc 66 125 c c c
pause @rand(1,15)
do talknpc 66 125 c c c
do move 62 117
call Sleipnir-2-1
}

падает в ошибку вместо do talknpc 66 125 c c c c c c c как бы надо просто c c c c c c c, но почемуто пишит что неправельный синтаксис =(

думаю дальше

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 12:00 pm
Святой Инквизитор
А почему бы не:

Код: Выделить всё

macro Sleipnir-1-11 {
do conf autoTalkCont 1
do talk @npc(66 125)
pause @rand(1,15)
do talk @npc(66 125)
pause @rand(1,15)
do talk @npc(66 125)
do move 62 117
do conf autoTalkCont 0
call Sleipnir-2-1
}
Вот и все проблемы)))

Добавлено спустя 1 минуту:
Ну или не выключать autoTalkCont если он нужен включенным...

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 12:13 pm
prifits
Святой Инквизитор

Я тя люблю, всё пашет как часики, щас допрайдёт и пущу последнего перса на проверку, думаю всё готово, останеться тока косметичку сделать =_+

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 12:20 pm
Святой Инквизитор
prifits
:oops: Да не за что)))

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 12:43 pm
prifits
ммм ещё вопрос в чом трабла с запуском ?

почему не пашет ?

Код: Выделить всё

automacro Sleipnir { 
   map yuno 
    inventory "Clam Shell" > 8 ## Панцирь малюска
    inventory "Crab Shell" > 8 ## Панцирь краба
    inventory "Sharp Scale" > 8 ## Острая чешуйка
    inventory "Fish Tail" > 8 ## Рыбий хвост
	inventory "Fin" > 8 ## Плавник
	inventory "Ancient Lips" > 8 ## Губы древней рыбы
	inventory "Detonator" > 8 ## Детонатор
	inventory "Tendon" > 8 ## Сухожилие
	inventory "Squid Ink" > 8 ## Чернила кальмара
	inventory "Single Cell" > 8 ## Клетка	Вес	
	inventory "Nipper" > 8 ## Клешня краба	
	inventory "Gill" > 8 ## Жабры
	inventory "Tentacle" > 8 ## Щупальца
	inventory "Heart of Mermaidr" > 8 ## Сердце русалки
	inventory "Conch" > 8 ## Морская раковина	
	run-once 1 
	call Sleipnir-1 
}

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 1:01 pm
Святой Инквизитор

Код: Выделить всё

inventory "Heart of Mermaidr" > 8 ## Сердце русалки
У тебя так... но к сожалению моба зовут не Mermaidr, а Mermaid

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 1:12 pm
prifits
серовно не пашет

удаляю инвентарь пашет =(

Код: Выделить всё

automacro Sleipnir { 
	location yuno 	
	inventory "Crab Shell" > 8 ## Панцирь краба
	inventory "Clam Shell" > 8 ## Панцирь малюска
	inventory "Sharp Scale" > 8 ## Острая чешуйка
    	inventory "Fish Tail" > 8 ## Рыбий хвост
	inventory "Fin" > 8 ## Плавник
	inventory "Ancient Lips" > 8 ## Губы древней рыбы
	inventory "Detonator" > 8 ## Детонатор
	inventory "Tendon" > 8 ## Сухожилие
	inventory "Squid Ink" > 8 ## Чернила кальмара
	inventory "Single Cell" > 8 ## Клетка	Вес	
	inventory "Nipper" > 8 ## Клешня краба	
	inventory "Gill" > 8 ## Жабры
	inventory "Tentacle" > 8 ## Щупальца
	inventory "Heart of Mermaid" > 8 ## Сердце русалки
	inventory "Conch" > 8 ## Морская раковина
	run-once 1 
	call Sleipnir-1 
}

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 1:18 pm
Святой Инквизитор
Ну пологике вещей гдето опечатался в названии другой вещи.. проверь ещё разок...

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 1:19 pm
prifits
ААА нашол =) из за коментов тупил :shock:

Re: Помощь в макросе на печати!

Добавлено: Вт дек 23, 2008 1:48 pm
prifits
за время теста 2 щита слотовых и кашне со слотиком =)

отписал в 1 посту =)

Терь над другие печати песать, а денег нет проктически на лут =(
Часовой пояс: UTC+03:00
Страница 1 из 4

Создано на основе phpBB® Forum Software © phpBB Limited

Русская поддержка phpBB