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+)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\ |(.*)';