MMC. Конфиг килника.

[dzMUDiST]

атаковать все цели первой атакой : битьвсех
*Удобный алиас для купцов или кудесов.

очень интересует данный момент. Неужели можно сагрить одним чармисом больше 1 цели за бой? Самого кода команды cmd_hitall в конфиге почему-то не нашел

[Ladon]

Сообщение от dzMUDiST

очень интересует данный момент. Неужели можно сагрить одним чармисом больше 1 цели за бой? Самого кода команды cmd_hitall в конфиге почему-то не нашел

сагрить то можно, только выжить надо...
суть команды видимо прик все ата цель прежде чем к !холд! цель

[Avega]

у меня вопросики ...
под FreeBSD итдитп какой плейер можно юзать в ММС понятно (по вкусу) а под виндой ? какой лучше?
к сожалению в данном конфиге нет возможности вносить сохраняемые изменения вовремя игры =(
не подскажите как можно пользоваться переменной из поля var файла ini в других файлах?
допустим :
[alias]
{пар}={/if ($parir>0) {парир} {отраз}}
{офпарир}={/if ($parir>0) {/var parir 0} {/var parir 1}}
[variables]
parir 0
и вот первая проверка встречается часто =( а хотелось бы вынести ее в отдельный файл (CMD::cmd_parir {if (...) ...} но оставить переменную в ини-ф.

[Шана[МЗ]]

Сообщение от Avega

к сожалению в данном конфиге нет возможности вносить сохраняемые изменения вовремя игры =(

Это скорее плюс чем минус.
очень часто приходиться ставить временные тригеры... Отключать же их потом намного сложнее чем просто перезапустить клиент.

Насчет сохранения изменений.
Обрати внимание на файл kcir (это главный файл конфига)
В самом низу после слова __DATA__
Я добавил себе то, чего в этом конфиге по моему мнению нехватает.
В этом месте можно написать все те надстройки которые ты хочешь используя начальные знания по ммс.
(мануал по ммс тут: http://mmc.mud.ru/mmc.txt)

В секцию [run] можешь дописать все те команды, которые ты вводил во время игры. Они будут выполнены при запуске клиента.

[Avega]

2_Шана[м3]: я тут немного хочу переделать твой код в модуле гроуп

Common::screcho "$mgv_name реск ф".$mgv_number." рекол С-ф".$mgv_number." луук М-ф".$mgv_number;
пишет все правильно

а бинд проходит тока на последнего
не можешь подсказать почему и что надо исправить?

our $mgv_name = "-";
our $mgv_number = 0;

P::alias {
P::bindkey{MUD::sendl("спасти .".$mgv_name);} "f".$mgv_number;
} "автобиндреск";

P::trig {
return unless $group_spam;
my ($name,$health,$energy,$place,$mem,$aff,$who,$pos) = ($1,$2,$3,$4,$5,$6,$7,$8);
if ($name =~ /^Персонаж/)
{
$; = CL:arse_colors ( "Персонаж | N | Здоровье |Энергия|Рядом|Учить| Аффект | Кто | Положение");
}
else
{
my $shr = CL::unparse_colors $;;

$shr =~ /^(.{25})(.*)/;
$; = CL:arse_colors ("$1 \3J$group_number \3H|$2");
$group{$group_number++} = $name;

$mgv_name = $name;
$mgv_number = $group_number;
Common::screcho "$mgv_name реск ф".$mgv_number." рекол С-ф".$mgv_number." луук М-ф".$mgv_number;
Common:arser "автобиндреск $mgv_name $mgv_number";
Common:arser "автобиндрекол $mgv_name $mgv_number";
Common:arser "автобиндлук $mgv_name $mgv_number";
}
for (keys %group)
{
$group{$_} =~ s/\s//g;
}
} '^([^ ]+)(\s+)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\ |(.*)';

[Митька]

попробуй так, не проверял.
вот это удаляем
---- BEGIN CUT -----
P::alias {
P::bindkey{MUD::sendl("спасти .".$mgv_name);} "f".$mgv_number;
} "автореск";
---- END CUT -----

# После строчек

$mgv_name = $name;
$mgv_number = $group_number;

# добавляем

P::bindkey{MUD::sendl("спасти .".$mgv_name);} "f".$mgv_number;

тестим

смысл в том, чтобы добавлять бинды по мере парсинга списка группы.
можно и прямее - пройтись по полученному списку %group и насоздавать
биндов...

[Шана[МЗ]]

Сообщение от Avega

2_Шана[м3]: я тут немного хочу переделать твой код в модуле гроуп

Насколько я понял, ты хочешь повесить на f1..f12 рески на каждого из членов группы.
Я бы на твоём месте не правил исходные модули (конфиг постоянно обновляеться, и при желании всегда можно скачать более новую версию)
А создал бы свой модуль Avega.pm (который можно будет подключить к любой следующей версии)

Для решения этой задачи я бы написал в модуле следующие:
P::bindkey {
Common::eparser "спасти $Group::group{0}";
} "f1";
P::bindkey {
Common::eparser "спасти $Group::group{1}";
} "f2";
...............
P::bindkey {
Common::eparser "спасти $Group::group{11}";
} "f12";

И также для лука и рекола.

[lexik]

Сообщение от Шана[МЗ]

Для решения этой задачи я бы написал в модуле следующие:
P::bindkey {
Common::eparser "спасти $Group::group{0}";
} "f1";
И также для лука и рекола.

все бывает гораздо проще
P::bindkey {sendl("resc $targ0");} "f1";
а то слишком громоздкая конструкция...

[Шана[МЗ]]

Сообщение от dzMUDiST

очень интересует данный момент. Неужели можно сагрить одним чармисом больше 1 цели за бой? Самого кода команды cmd_hitall в конфиге почему-то не нашел

Как правильно сказал Лео, суть алиаса (а точнее бинда, т.к. в файле binds.rc он вешаетсья на кнопку) это последовательное применение атаки0 по всем прописанным в данный момент целям.

Бинд полезен для чармисной дамаги, когда лидер назначает цели с приоритетом.
"ц цель1 цель2 цель3;ат0 приказ всем убить".
Нажимая на бинд, в мад будет посланы команды:
"приказ всем убить цель1"
"приказ всем убить цель2"
"приказ всем убить цель3"


Также бинд бывает полезен когда вы зачищаете какую-нибудь зону.
Например предположим Вы вырезаете речку во второй родовой.
"ц окунь жерех сом налим рак"
Далее бегаем по зоне и нажимаем на эту кнопку. Первая найденная в клетке цель будет атакована. Мелочь, но экономит время.