сохранение цвета при сабсте - МПМ Былины

judge · 19.12.2005, 15:57

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

Ladon · 19.12.2005, 17:01

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

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

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

dut · 19.12.2005, 18:05

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

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

Код:

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

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

19.12.2005, 15:57	#1
judge Отличник форума Регистрация: 03.05.2004 Сообщений: 266	Re: сохранение цвета при сабсте Так, вопросик созрел, как вообще делать сабсты в MMC не с помощью встроенного API, а на перле?

19.12.2005, 17:01	#2
Ladon Отличник форума Регистрация: 06.03.2004 Сообщений: 505	Re: сохранение цвета при сабсте trig { my $who=$1; my $how=$2; my $from=$3; if (defined($pkl{$who})) {echo ("!!!!!!!!!!!! ПК В ГОРОДЕ !!!!!!!!!!!!");$target=$who}; $: = "\-\-\-\-$who\-\-\-\- при$how $from\." } '^(.) при(.?) (c юга\|с севера\|с запада\|с востока\|снизу\|сверху)\.', "1000nf:noColor";

19.12.2005, 18:05	#3
dut Новичок Регистрация: 19.12.2005 Сообщений: 4	Re: сохранение цвета при сабсте и что, у тебя этот триггер работает с сохранением цвета? У меня почему-то нет. Вот как я делал: Код: trig { $: = "$1 \3M---=== при$2 ===----\3x $3."; } "^(.) при(шел\|летел\|шла\|летела\|бежал\|бежала\|полз\|ползла)? (.).", "1000nf:noColor"; У меня работает он аналогично тому примеру с subst(см первый мой пост)