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

[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

[lexik]

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

1) Common::eparser это не sendl

вроде бы... но хз если точно

2) $targ0 это что? там вроде не про цели

смысл тот же

3) а писать все в строчку - дурной стиль но можно конечно.

я не претендую на красоту кода, но его оптимизация всегда полезное дело

4) более того - это не сработает. sendl вроде бы не посылает \n

прежде чем что-то говорить может стоит попробовать? короче - учите матчасть - идей много - воплощено в конфиге тоже много что за сие грц тебе, но вот исполнение страдает... причем сильно...

зы. а вообще код должен быть красивым - яркий пример конфиги Потапия... ОЧЕНЬ красивый и действенный код