ПодЦветка с заменой. + часики (ММС)

[Jungle]

Товарищи, как мне подсветить строку в ММС?, я хочу сделать следующее:
Вот это подсветить каким-нибудь цветом.

/substitute {$1 сказал[а-я] : } {$1 -> $2}

И добавить время, если получится перед $1. Чтобы было примерно так:

[20:30:00] Кто-то -> 'тест'

[dzMUDiST]

trig {
my @time = (localtime)[2,1];
$clock = join ":", @time;
$: = "\003I\[$clock\] $1 -> \'$2\'";
} '^([^ ]*?) сказал.? : \'(.*?)\'', 'f1000';

Вот только режет строки с ' (кавычками)

[Jungle]

А где это надо писать? в *.pm ?

[d_blacky]

В файле mmc.ini, или другом любом файле, если mmc стартует с параметром командной строки -- именем этого файла. (оттуда будет грузиться конфиг).

[Jungle]

Нашел куда добавить, но имхо я помню, что давно-давно я делал как-то по-другому ;( и прописывал сразу из ММС что да как. и с кавычками этими тоже пхало ;(

[Urik]

-- именем этого файла. (оттуда будет грузиться конфиг).
ИМЕНЕМ ФАЙЛА ПРИКАЗЫВАЮ - ГРУЗИСЬ!!!

[Аристарх]

телнет форева!!!

[d_blacky]

ИМЕНЕМ ФАЙЛА ПРИКАЗЫВАЮ - ГРУЗИСЬ!!!
очень содержательный ответ, несущий глубокий концептуальный и подсмысловой контекст...
Ничего интересней (по теме) сказать не нашлось?

Вот мой вариант часиков, (в нем не происходит смещения текста когда часы отображают:
[9:59] Кто-то -> 'что-то'
[10:00] Кто-то -> 'что-то'
(конечно когда это в главном окне происходит это не так заметно, но если сбрасывать это еще и в како-нибудь из окон -- то там это как-то криво смотрится, когда строчки начинают с 1 до 9 часов смещаться).

trig {
my $out = "\003I\[".(sprintf "%2d:%2d", (localtime)[2,1])."\]\003H $1 -> \'$2\'";
wecho(1, $out); # хотя мб можно сразу посылать "$:" в кач-ве аргумента, просто оно !reading, поэтому кое где ее нельзя так легко использовать как обычную переменную.
$: = $out;
} '^(\w+?) сказал.? : \'(.*?)$\'', 'f1000';



Нашел куда добавить, но имхо я помню, что давно-давно я делал как-то по-другому ;( и прописывал сразу из ММС что да как. и с кавычками этими тоже пхало ;(
Можно в строку ввода писать любой perl код по типу:
/perl{trig{sendl("г спам!")} '^Минул час\.$', "test"}
, но в этом случае эти триггеры не сохранятся при выключении клиента (даже если выключать его через /quit, а не как закрывают jmc.

По поводу *.pm -- можно из них добавлять информацию через:
include -- если *.pm оформлен просто как кусок текста на перле,
или через use (когда .pm реально оформлен по всем правилам как Perl Module, а не просто как кусок кода)