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

[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";
а то слишком громоздкая конструкция...

[kilnik]

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

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

1) Common::eparser это не sendl
2) $targ0 это что? там вроде не про цели
3) а писать все в строчку - дурной стиль но можно конечно.
4) более того - это не сработает. sendl вроде бы не посылает \n