[Kai]

Никогда не играл на жабе, на ммс это будет примерно так

sub color($$) {
	return chr(ord(substr($_[0], 2*$_[1]+1, 1))+ord('A'));
}

$rus = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
$botleader = "Сидор";
P::trig {
	return unless $1 eq $botleader;
	return unless color($;,2) eq 'H';
	P::sendl "$3";
} "^([$rus]+) сообщил(а|о)? группе \: \'Котар - (.*)\'\$", "f:BOT";