Re: сохранение цвета при сабсте
trig {
my $who=$1;
my $how=$2;
my $from=$3;
if (defined($pkl{$who})) {echo ("!!!!!!!!!!!! ПК В ГОРОДЕ !!!!!!!!!!!!");$target=$who};
$: = "\-\-\-\-$who\-\-\-\- при$how $from\."
} '^(.*) при(.*?) (c юга|с севера|с запада|с востока|снизу|сверху)\.', "1000nf:noColor";
|