для mmc:
Код:
sub scolor($){
return ord(substr(shift, 1, 1));
}
sub print_time
{
return sprintf "\003I[%02d:%02d]", (localtime)[2], (localtime)[1];
}
...
#Болтовня
trig
{
if (scolor($;) == 3) {
wecho 1, print_time ." \3H" . CL::unparse_colors($;)
}
;
} '^([^ ]+?) (заметил)(.+?)';
#Оры_и_Крики
trig
{
if (scolor($;) == 11) {
wecho 1, print_time ." \3H" . CL::unparse_colors($;)
}
;
} '^([^ ]+?) (заорал|закричал)(.+?)';
и т.д.