Никогда не играл на жабе, на ммс это будет примерно так
Код:
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";