[share] Макрос - рассада грибов.

Всё, что касается макро-плагина.

Модератор: 4epT

Правила форума
В форуме макросы "Макросы" разрешено только задавать вопросы по уже существующим макросам и просить помощь по недоработанным своим. При этом таким считается тот макрос который готов не менее чем на 2/3.
Если вы хотите попросить участников сообщества написать вам макрос, это можно сделать в разделе "сервис".
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

[share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

Решил создать отдельную тему. Так как макрос будет совершенствоваться то я не хочу писать в не том разделе что нужно.

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

macro plant {
[
   do conf PlantX <х координата начала>
   do conf PlantXd <написать то же что и выше>
   do conf PlantY <у координата начала>
   do conf PlantXf <х координата конца>
   do conf PlantYf <у координата конца>

   $x = @eval($::config{PlantX})
   $y = @eval($::config{PlantY})
   $xf = @eval($::config{PlantXf})
   $yf = @eval($::config{PlantYf})
:checkcell
   if ($y > $yf) goto twocheck
   $bool = @eval($::field->isWalkable($x, $y))
   if ($bool != 1) goto checkfailed
         if ($y > $yf) goto twocheck
         if ($x >= $xf) goto onecheck
            $x = @eval($x + 1)
            goto checkcell
:onecheck
            $y = @eval($y + 1)
            $x = @eval($::config{PlantXd})
            goto checkcell
:twocheck
         do conf PlantActivation 1
         goto endcheck
:checkfailed
         do conf PlantActivation 0
         log ===== Cell $x $y can't be planted with mushroom!!! =====
:endcheck
]
}

automacro Cast {
	eval $::config{PlantActivation} eq "1"
	run-once 1
	priority 2
	call CastSpell
}

automacro SkillFail1 {
	console /Skill Cultivation failed/
	eval $::config{PlantActivation} eq "1"
	priority 1
	call CastSpell
}

automacro SkillFail2 {
	console /Casting failed:/
	eval $::config{PlantActivation} eq "1"
	priority 1
	call CastSpell
}

macro CastSpell {
[
      log ||| @invamount(Mushroom Spore) spores left. |||
      if (@invamount(Mushroom Spore) > 0) goto next
         pause 2
         do c Spores Ended :( 
         do conf PlantActivation 0
         goto end
:next
      $x = @eval($::config{PlantX})
      $y = @eval($::config{PlantY})
      $xf = @eval($::config{PlantXf})
      $yf = @eval($::config{PlantYf})
      if ($y > $yf) goto two
]
         do move @eval($x + 1) @eval($y + 1)
         do sl 491 $x $y 1
         pause 1
[
         if ($y > $yf) goto two
            if ($x >= $xf) goto one
               do conf PlantX @eval($x + 1)
               goto end
:one
            do conf PlantY @eval($y + 1)
            do conf PlantX @eval($::config{PlantXd})
            goto end
:two
         do conf PlantActivation 0
:end
]
      release Cast
}

Готовая и протестированная версия для засадки грибами прямоугольника от (х,у) до (х1,у1).

В конфиге должны быть рядки:

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

PlantX
PlantXd
PlantY
PlantXf
PlantYf
PlantActivation
Заполнить все значения в макросе plant под себя (помним что начальные координаты должны быть меньше конечных).
Потом просто запускать макрос plant каждый раз как нужно будет засадить прямоугольник что вы указали.

UPDATE
Обновлено до версии 1.1.
1) Макрос оптимизирован.
2) Устранён глюк с остановкой макроса когда скил по какой-то причине сбивается.
3) Додана проверка на наличие сп. При отсутствии, сидим пока не станет хотя бы 100 (данное число указано в переменной $sptocon - измените если нужно).
Примечания:
Не вмонтирована проверка на перевес во время восстановления сп. Пока это не сделано старайтесь не быть нубами....

Добавлено спустя 18 часов 18 минут 56 секунд:
UPDATE
Обновлено до версии 1.2.
1) Теперь наш бот не идёт на одну и туже точку в отношении гриба, а меняет положение, что меньше его палит как бота.
2) Вмонтирована проверка на перевес 90%.
Примечания:
Проверка на перевес 50%, при восстановлении сп, пока ещё не вмонтирована. Ждите пока я не додумаюсь как это сделать.
Последний раз редактировалось Святой Инквизитор Чт янв 22, 2009 4:05 am, всего редактировалось 15 раз.
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Аватара пользователя
Kissa2k
Профессионал
Сообщения: 1304
Зарегистрирован: Пн дек 04, 2006 8:33 pm

Re: [share] Макрос - рассада грибов.

Сообщение Kissa2k »

Отлично, теперь все могут наслаждаться волшебными грибами!
EternalHarvest
Разработчик
Сообщения: 819
Зарегистрирован: Пн окт 27, 2008 9:49 pm

Re: [share] Макрос - рассада грибов.

Сообщение EternalHarvest »

А поменяв всего лишь одну циферку - волшебной травой...
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: [share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

UPDATE
Обновлено до версии 1.3.
1) Усовершенствован макрос plant теперь, если в заданном вами прямоугольнике есть клетка на которою нельзя прокастить скил, макрос вас об этом предупредит и сажать откажется.
2) Кажется с удалением паузы я переборщил... пауза вернулась...
3) Исправил баги и глюки можно юзать.
4) Удалил то что мешало
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
-=kut=-
Начинающий
Сообщения: 15
Зарегистрирован: Ср ноя 15, 2006 1:22 am

Re: [share] Макрос - рассада грибов.

Сообщение -=kut=- »

4то то оно не работает у меня(

Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
Unknown command 'log'. Please read the documentation for a list of commands.
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
Unknown command 'log'. Please read the documentation for a list of commands.
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
Unknown command 'log'. Please read the documentation for a list of commands.
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
Unknown command 'log'. Please read the documentation for a list of commands.
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
Unknown command 'log'. Please read the documentation for a list of commands.
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
Unknown command 'log'. Please read the documentation for a list of commands.
Config 'PlantActivation' set to 0 (was 0)
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: [share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

лол исправил спасибо что показал)
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
-=kut=-
Начинающий
Сообщения: 15
Зарегистрирован: Ср ноя 15, 2006 1:22 am

Re: [share] Макрос - рассада грибов.

Сообщение -=kut=- »

хм... всё равно не робит...
[macro] automacro Cast triggered.
[macro][log] ||| 209 spores left. |||
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
[macro][log] ||| 209 spores left. |||
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
[macro][log] ||| 209 spores left. |||
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
[macro][log] ||| 209 spores left. |||
Config 'PlantActivation' set to 0 (was 0)
[macro] automacro Cast triggered.
[macro][log] ||| 209 spores left. |||
Config 'PlantActivation' set to 0 (was 0)
Unknown packet - 2C00
[macro] automacro Cast triggered.
[macro][log] ||| 209 spores left. |||
Config 'PlantActivation' set to 0 (was 0)

а еще вот:
[macro] you did not specify 'macro_delay' in timeouts.txt. Assuming 1s
[macro] you did not specify 'macro_orphans' in config.txt. Assuming 'terminate'
Config 'macro_orphans' set to terminate (was )
Loading control/macros.txt...
control/macros.txt: ignoring 'eval $::config{PlantActivation} eq "1"' (munch, munch, unknown automacro keyword)
control/macros.txt: ignoring 'eval $::config{PlantActivation} eq "1"' (munch, munch, unknown automacro keyword)
control/macros.txt: ignoring 'eval $::config{PlantActivation} eq "1"' (munch, munch, unknown automacro keyword)
[macro] hooking to AI_pre
[macro] hooking to log
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: [share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

Вот почему у меня работает а у тебя нет....

Добавлено спустя 1 минуту 19 секунд:

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

PlantX
PlantXd
PlantY
PlantXf
PlantYf
PlantActivation
Ты это в конфиг написал?

Добавлено спустя 2 минуты 14 секунд:
Насчёт второго скажу одно: "Если макро плагин у тебя установлен через жопу я в этом не виноват..."
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Akc74
Начинающий
Сообщения: 15
Зарегистрирован: Пт авг 22, 2008 4:50 pm

Re: [share] Макрос - рассада грибов.

Сообщение Akc74 »

Уф, убейте меня, но йа ничего не могу понять) 3 часа тупо разбирался в чем причина же... Когда перезапускаю бота, поменяв перед этим в конфиге значения, пишу macro plant он просадит площадку, а потом не хочет реагировать на macro plant...

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

macro plant
Config 'PlantX' is 42
Config 'PlantXd' is 42
Config 'PlantY' is 102
Config 'PlantXf' is 43
Config 'PlantYf' is 101
Config 'PlantActivation' set to 1 (was 0)
[macro] automacro Cast triggered.
[macro][log] ||| 200 spores left. |||
Config 'PlantActivation' set to 0 (was 1)
macro plant
Config 'PlantX' is 42
Config 'PlantXd' is 42
Config 'PlantY' is 102
Config 'PlantXf' is 43
Config 'PlantYf' is 101
Config 'PlantActivation' set to 1 (was 0)
[macro] automacro Cast triggered.
[macro][log] ||| 200 spores left. |||
Config 'PlantActivation' set to 0 (was 1)
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: [share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

Нет у людей явно плохо с умом...
(помним что начальные координаты должны быть меньше конечных). Кому написано? Так пояему у тебя PlantY больше чем PlantYf ???????????????
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Akc74
Начинающий
Сообщения: 15
Зарегистрирован: Пт авг 22, 2008 4:50 pm

Re: [share] Макрос - рассада грибов.

Сообщение Akc74 »

Ну извеняй, привык снизу вверх засаживать и из головы вылетело... Ладно, решил с прошлым твоим творением, а то этот не получается автоматизировать что-то :D Пытался, чтобы например после написания в консоле 'PlantActivation was', т.е. по окончании опять начинал вызываться.... но что-то не прокатило, короче смотреть буду!
-=kut=-
Начинающий
Сообщения: 15
Зарегистрирован: Ср ноя 15, 2006 1:22 am

Re: [share] Макрос - рассада грибов.

Сообщение -=kut=- »

Ты это в конфиг написал?

Писал...
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: [share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

-=kut=-
Смысл вопроса не понятен...
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Akc74
Начинающий
Сообщения: 15
Зарегистрирован: Пт авг 22, 2008 4:50 pm

Re: [share] Макрос - рассада грибов.

Сообщение Akc74 »

Святой Инквизитор писал(а):-=kut=-
Смысл вопроса не понятен...
Он процитировал твоё сообщение и написал же ответ...
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: [share] Макрос - рассада грибов.

Сообщение Святой Инквизитор »

Akc74
А с твоим объяснением всё стало ещё более запутано... У мя мозг плавиццо :crazy:
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Ответить