[Делт]

для 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($;)
}
;
} '^([^ ]+?) (заорал|закричал)(.+?)';

и т.д.