Страница 4 из 4
Re: как сажать грибы?
Добавлено: Чт янв 15, 2009 9:10 pm
Akc74
Святой Инквизитор писал(а):Вот поэтому нудно аи отрубать и юзать самый последний макрос что я выложил. А когда нужно заново начать то просто аи врубить...
Эх... Вот компромис же))) либо постоянно самому аи запускать, либо сжать в одну клетку, при том сажает он, пока прошлого не убью - не посадит
(это не только если в одну клетку)
Re: как сажать грибы?
Добавлено: Чт янв 15, 2009 11:43 pm
Святой Инквизитор
Кароче вы меня задолбали, и так как нет придела совершенству то вот:
Код: Выделить всё
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
Внимание! если в нике есть пробелы то у вас могут возникнуть проблемы.
И ПЕРЕНЕСИТЕ ТЕМУ В МАКРОСЫ НАКОНЕЦ ТО!!!!
Re: как сажать грибы?
Добавлено: Вс янв 18, 2009 4:54 pm
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)
Re: как сажать грибы?
Добавлено: Пн янв 19, 2009 2:12 am
Святой Инквизитор
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 секунд:
ДАЛЬШЕ ВСЁ ПИСАТЬ СЮДА!!!!!!