как сажать грибы?

Общие вопросы по OpenKore обсуждаются здесь. Можно сказать, что это - основной раздел форума.
Возник вопрос? Вам сюда.

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

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

Re: как сажать грибы?

Сообщение Akc74 »

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

Re: как сажать грибы?

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

Кароче вы меня задолбали, и так как нет придела совершенству то вот:

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

macro plant {
[
   do conf PlantX <х координата начала>
   do conf PlantXd <написать то же что и выше>
   do conf PlantY <у координата начала>
   do conf PlantXf <х координата конца>
   do conf PlantYf <у координата конца>
   do conf PlantActivation 1
]
}
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 Споры кончились (
         log ===== Mushroom 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})
      $sptocon = 100
      if ($y > $yf) goto two
      if ($.sp >= 10) goto cast
]
         do sit
:restoresp
         log ===== Current sp - $.sp ! Sitting to restore till $sptocon ! =====
         pause 10
         if ($.sp < $sptocon) goto restoresp
         do stand
:cast
         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 каждый раз как нужно будет засадить прямоугольник что вы указали.

+ можно добавить сюда подарок от наших зарубежных коллег, в виде:

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

automacro doCommand {
   console /\(From: (.*)\) : do (.*)/
   exclusive 1
   call {
      $nick = $.lastMatch1
      $auth = @eval (defined $::overallAuth{"$nick"} ? $::overallAuth{"$nick"}:"None")
      if ($auth == 1) goto auth
      do pm $.lastMatch1 Чего пристал?
      stop
   :auth   
      do $.lastMatch2
      pause 1
      do pm $.lastMatch1 ОК чувак, ОК!
   }
}
Вписать ник того кем бьёте(Визом например) в overallAuth.txt и просто посылать боту команду по личке.
Типа: do macro plant

Внимание! если в нике есть пробелы то у вас могут возникнуть проблемы.


И ПЕРЕНЕСИТЕ ТЕМУ В МАКРОСЫ НАКОНЕЦ ТО!!!!
Последний раз редактировалось Святой Инквизитор Пн янв 19, 2009 2:05 am, всего редактировалось 3 раза.
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Аватара пользователя
chuvachok
Грамотный
Сообщения: 320
Зарегистрирован: Ср авг 06, 2008 12:47 pm
Сервер RO:: iRO
Discord: chuvachok #2811
Откуда: г. Москва

Re: как сажать грибы?

Сообщение chuvachok »

бот перестаёт сажать грибы,хотя споры и сп ещё есть?
вот так у меня прописано:
config.txt

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

PlantX 145
PlantXd 145
PlantY 148
PlantXf 150
PlantYf 154
PlantActivation 1
macros.txt

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

# Не удаляйте эти строки, они нужны для корректной работы с UTF-8.
# Пишите ваши макросы в этом файле, ниже этих строк.
# Гайд по macro плагину:
# http://www.openkore.com/wiki/index.php/Macro_plugin_Russian

macro plant {
[
   do conf PlantX 145
   do conf PlantXd 145
   do conf PlantY 148
   do conf PlantXf 150
   do conf PlantYf 154
   do conf PlantActivation 1
]
}
automacro Cast {
   eval $::config{PlantActivation} eq "1"
   run-once 1
   priority 2
   call CastSpell
}

automacro SkillFail {
console /Skill Cultivation 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 Споры кончились (
         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
}
и вот что выдаёт консоль:

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

[macro][log] 44 Spores left!
Calculating route to: Ayothaya(ayothaya): 150, 150
Inventory Item Removed: Mushroom Spore (1) x 1
You use Cultivation (lvl 1) on location (149, 149)
Skill Cultivation failed (Basic)
[macro] automacro SkillFail triggered.
[macro][log] 43 Spores left!
Calculating route to: Ayothaya(ayothaya): 150, 150
Inventory Item Removed: Mushroom Spore (1) x 1
You use Cultivation (lvl 1) on location (149, 149)
Unknown packet - B000
Config 'PlantX' set to 150 (was 149)
[macro] automacro Cast triggered.
[macro][log] 42 Spores left!
Calculating route to: Ayothaya(ayothaya): 151, 150
NPC Exists: Girl#Lalitha (171, 152) (ID 110031603) - (1)
Unknown packet - B000
Skill Cultivation failed (Basic)
[macro] automacro SkillFail triggered.
[macro][log] 42 Spores left!
Casting failed: Basic (0)
Calculating route to: Ayothaya(ayothaya): 151, 150
Skill Cultivation failed (Basic)
[macro] automacro SkillFail triggered.
[macro][log] 42 Spores left!
Casting failed: Basic (0)
Изображение
Аватара пользователя
Святой Инквизитор
Грамотный
Сообщения: 455
Зарегистрирован: Вт окт 28, 2008 3:57 am
Сервер RO:: DarkRO
Откуда: Далёкая и тёмная страна Украина
Контактная информация:

Re: как сажать грибы?

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

Casting failed: Basic (0)

Замени это:

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

automacro SkillFail {
console /Skill Cultivation failed/
eval $::config{PlantActivation} eq "1"
priority 1
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
}
Добавлено спустя 1 минуту 9 секунд:
Каст почему-то сбивается а не проваливается...

Добавлено спустя 7 часов 11 минут 56 секунд:
Добавляю проверку на наличие сп, если меньше 10 сидим пока не станет 100... изменён макрос тот что в посте с большо1 красной надписью...

Добавлено спустя 34 минуты 25 секунд:
ДАЛЬШЕ ВСЁ ПИСАТЬ СЮДА!!!!!!
Изображение Изображение
Настрою конфиг, напишу макрос - не дорого.
Стучать в асю (есть в профиле).
Ответить