Эх... Вот компромис же))) либо постоянно самому аи запускать, либо сжать в одну клетку, при том сажает он, пока прошлого не убью - не посадит (это не только если в одну клетку)Святой Инквизитор писал(а):Вот поэтому нудно аи отрубать и юзать самый последний макрос что я выложил. А когда нужно заново начать то просто аи врубить...
как сажать грибы?
Модератор: 4epT
Правила форума
Все вопросы по OK не касающиеся плагинов и макросов публикуются в этом разделе.
Перед тем как что то писать, пожалуйста, удостоверьтесь что данная тема не поднималась, вы полностью изучили мануалы по конфигурационным файлам бота и не нашли там решения.
Все вопросы по OK не касающиеся плагинов и макросов публикуются в этом разделе.
Перед тем как что то писать, пожалуйста, удостоверьтесь что данная тема не поднималась, вы полностью изучили мануалы по конфигурационным файлам бота и не нашли там решения.
Re: как сажать грибы?
- Святой Инквизитор
- Грамотный
- Сообщения: 455
- Зарегистрирован: Вт окт 28, 2008 3:57 am
- Сервер RO:: DarkRO
- Откуда: Далёкая и тёмная страна Украина
- Контактная информация:
Re: как сажать грибы?
Кароче вы меня задолбали, и так как нет придела совершенству то вот:
Готовая и протестированная версия для засадки грибами прямоугольника от (х,у) до (х1,у1).
В конфиге должны быть рядки:
Заполнить все значения в макросе plant под себя (помним что начальные координаты должны быть меньше конечных).
Потом просто запускать макрос plant каждый раз как нужно будет засадить прямоугольник что вы указали.
+ можно добавить сюда подарок от наших зарубежных коллег, в виде:
Вписать ник того кем бьёте(Визом например) в overallAuth.txt и просто посылать боту команду по личке.
Типа: do macro plant
Внимание! если в нике есть пробелы то у вас могут возникнуть проблемы.
И ПЕРЕНЕСИТЕ ТЕМУ В МАКРОСЫ НАКОНЕЦ ТО!!!!
Код: Выделить всё
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
}
В конфиге должны быть рядки:
Код: Выделить всё
PlantX
PlantXd
PlantY
PlantXf
PlantYf
PlantActivation
Потом просто запускать макрос 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 ОК чувак, ОК!
}
}
Типа: do macro plant
Внимание! если в нике есть пробелы то у вас могут возникнуть проблемы.
И ПЕРЕНЕСИТЕ ТЕМУ В МАКРОСЫ НАКОНЕЦ ТО!!!!
Последний раз редактировалось Святой Инквизитор Пн янв 19, 2009 2:05 am, всего редактировалось 3 раза.
- chuvachok
- Грамотный
- Сообщения: 320
- Зарегистрирован: Ср авг 06, 2008 12:47 pm
- Сервер RO:: iRO
- Discord: chuvachok #2811
- Откуда: г. Москва
Re: как сажать грибы?
бот перестаёт сажать грибы,хотя споры и сп ещё есть?
вот так у меня прописано:
config.txt
macros.txt
и вот что выдаёт консоль:
вот так у меня прописано:
config.txt
Код: Выделить всё
PlantX 145
PlantXd 145
PlantY 148
PlantXf 150
PlantYf 154
PlantActivation 1
Код: Выделить всё
# Не удаляйте эти строки, они нужны для корректной работы с 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)
Замени это:
на это:
Добавлено спустя 1 минуту 9 секунд:
Каст почему-то сбивается а не проваливается...
Добавлено спустя 7 часов 11 минут 56 секунд:
Добавляю проверку на наличие сп, если меньше 10 сидим пока не станет 100... изменён макрос тот что в посте с большо1 красной надписью...
Добавлено спустя 34 минуты 25 секунд:
ДАЛЬШЕ ВСЁ ПИСАТЬ СЮДА!!!!!!
Замени это:
Код: Выделить всё
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
}
Каст почему-то сбивается а не проваливается...
Добавлено спустя 7 часов 11 минут 56 секунд:
Добавляю проверку на наличие сп, если меньше 10 сидим пока не станет 100... изменён макрос тот что в посте с большо1 красной надписью...
Добавлено спустя 34 минуты 25 секунд:
ДАЛЬШЕ ВСЁ ПИСАТЬ СЮДА!!!!!!