сохранение цвета при сабсте

[d_blacky]

Можно 3 способами.
1. колдовство с CL::unparse_colors, CL::strip_colors, CL:arse_colors
2. MUD::Add_trigger() -- там добавляешь сабст "имя чара" и "\&цвет<строка>" -- но это по уродски.
3. Посмотреть исходный код mmc и посмотреть по какому принципу делается 2-ой вариант и делать не по уродски.

В виду лени на 3ий пункт, сам пользуюсь 1ым способом.

[judge]

Так, вопросик созрел, как вообще делать сабсты в MMC не с помощью встроенного API, а на перле?

[Ladon]

trig {
my $who=$1;
my $how=$2;
my $from=$3;

if (defined($pkl{$who})) {echo ("!!!!!!!!!!!! ПК В ГОРОДЕ !!!!!!!!!!!!");$target=$who};

$: = "\-\-\-\-$who\-\-\-\- при$how $from\."
} '^(.*) при(.*?) (c юга|с севера|с запада|с востока|снизу|сверху)\.', "1000nf:noColor";

[dut]

и что, у тебя этот триггер работает с сохранением цвета? У меня почему-то нет.

Вот как я делал:

trig
{
   $: = "$1 \3M---=== при$2 ===----\3x $3.";
} "^(.*) при(шел|летел|шла|летела|бежал|бежала|полз|ползла)? (.*).", "1000nf:noColor";

У меня работает он аналогично тому примеру с subst(см первый мой пост)