Перерабатываем парсер команд

lib/Craniac.pm

@@ -194,11 +194,21 @@ my $parse_message = sub {
 	my $csign = $answer->{misc}->{csign};
 	$answer->{message} = '';
 
+	my $is_command = 0;
+	my $cmd = $m->{message};
+
+	if ($m->{message} =~ /^\Q$csign/u) {
+		$cmd = substr $m->{message}, length ($csign);
+		$is_command = 1;
+	}
+
 	if ($m->{misc}->{bot_nick} ne '') {
 		# Если нам сообщили ник бота, попробуем вымарать его из оригинального текста сообщения, в большинстве случаев он
-		# нам не интересн.
+		# нам не интересен.
 		$phrase =~ s/\s*\,?\s*($m->{misc}->{bot_nick})\s*\,?\s*/ /gui;
 
+		# TODO: проработать реакцию на "пьяный бред".
+
 		# В ключевых фразах можно обратиться с некоторыми командами к боту по нику, не используя символ команды
 		if ($m->{message} =~ /^\s*\Q$m->{misc}->{bot_nick}\E\s*$/ui) {
 			$reply = 'Чего?';
@@ -215,54 +225,59 @@ my $parse_message = sub {
 		}
 	} else {
 		# Если нам не сообщили ник бота, то ищем команды, используя символ команды
-		if ($m->{message} =~ /^\Q$csign\Eping\.?\s*$/ui) {
+		if ($is_command) {
-			$reply = 'Pong.';
+			if ($cmd =~ /^ping\.?\s*$/ui) {
-		} elsif ($m->{message} =~ /^\Q$csign\Epong\.?\s*$/i) {
+				$reply = 'Pong.';
-			$reply = 'Wat?';
+			} elsif ($cmd =~ /^pong\.?\s*$/i) {
-		} elsif ($m->{message} =~ /^\Q$csign\Eпин(г|х)\.?\s*$/ui) {
+				$reply = 'Wat?';
-			$reply = 'Понг.';
+			} elsif ($cmd=~ /^пин(г|х)\.?\s*$/ui) {
-		} elsif ($m->{message} =~ /^\Q$csign\Eпон(г|х)\.?\s*$/ui) {
+				$reply = 'Понг.';
-			$reply = 'Шта?';
+			} elsif ($cmd =~ /^пон(г|х)\.?\s*$/ui) {
-		} elsif ($m->{message} =~ /^\Q$csign\E(хэлп|halp)\s*$/ui) {
+				$reply = 'Шта?';
-			$reply = 'HALP!!!11';
+			} elsif ($cmd=~ /^(хэлп|halp)\s*$/ui) {
+				$reply = 'HALP!!!11';
+			}
 		}
 	}
 
 	# Поищем в тексте входящего сообщения команды общего плана, с символом команды.
 	unless (defined $reply) {
-		if ($m->{message} =~ /^\Q$csign\E(kde|кде)\s*$/ui) {
+		if ($is_command) {
-			my @phrases = (
+			if ($cmd =~ /^(kde|кде)\s*$/ui) {
-				'Нет, я не буду поднимать вам плазму.',
+				my @phrases = (
-				'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.',
+					'Нет, я не буду поднимать вам плазму.',
-				'Плазма не падает, она просто выходит отдохнуть.',
+					'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.',
-				'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.',
+					'Плазма не падает, она просто выходит отдохнуть.',
-			);
+					'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.',
+				);
 
-			$reply = $phrases[irand ($#phrases + 1)];
+				$reply = $phrases[irand ($#phrases + 1)];
-		} elsif ($m->{message} =~ /^\Q$csign\E(coin|монетка)$/ui) {
+			} elsif ($cmd =~ /^(coin|монетка)$/ui) {
-			if (rand (101) < 0.016) {
+				# Нам тут говорили, что есть некая вероятность, что монета упадёт ребром... И даже цифры называли.
-				$reply = 'ребро';
+				if (rand (101) < 0.016) {
-			} else {
+					$reply = 'ребро';
-				if (irand (2) == 0) {
-					if (irand (2) == 0) {
-						$reply = 'орёл';
-					} else {
-						$reply = 'аверс';
-					}
 				} else {
 					if (irand (2) == 0) {
-						$reply = 'решка';
+						if (irand (2) == 0) {
+							$reply = 'орёл';
+						} else {
+							$reply = 'аверс';
+						}
 					} else {
-						$reply = 'реверс';
+						if (irand (2) == 0) {
+							$reply = 'решка';
+						} else {
+							$reply = 'реверс';
+						}
 					}
 				}
+			} elsif ($cmd =~ /^(roll|dice|кости)$/ui) {
+				$reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
+			} elsif ($cmd =~ /^(ver|version|версия)$/ui) {
+				$reply = 'Версия:  Четыре.Технологическое_превью';
+			} elsif ($cmd =~ /^(lat|лат)\s*$/ui) {
+				$reply = Lat ();
 			}
-		} elsif ($m->{message} =~ /^\Q$csign\E(roll|dice|кости)$/ui) {
-			$reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
-		} elsif ($m->{message} =~ /^\Q$csign\E(ver|version|версия)$/ui) {
-			$reply = 'Версия:  Четыре.Технологическое_превью';
-		} elsif ($m->{message} =~ /^\Q$csign\E(lat|лат)\s*$/ui) {
-			$reply = Lat ();
 		}
 	}
 
@@ -344,10 +359,11 @@ my $parse_message = sub {
 
 		# Попадаем сюда только если входящая фраза не распознана ранее как ключевая. 
 		if ($m->{misc}->{answer}) {
-			# Пытаемся что-то генерировать, если фраза длиннее 3-х букв
+			# Пытаемся что-то генерировать, если фраза длиннее 3-х букв.
 			if (length ($m->{message}) > 3) {
 				my $telegram = 0;
 
+				# Костыль для совместимости со старым наименованием "мозгов".
 				if ($m->{plugin} eq 'telegram') {
 					$telegram = 1;
 				}
@@ -356,16 +372,16 @@ my $parse_message = sub {
 				if (brains ($chatid, $telegram)) {
 					$reply = $hailo->{$chatid}->learn_reply ($m->{message});
 
-					# Если из реактора вернулся undef выдаём "общую" фразу из словаря
+					# Если из реактора вернулся undef выдаём "общую" фразу из словаря.
 					unless (defined $reply) {
 						$reply = RandomCommonPhrase ();
 					} else {
-						# Если из реактора вернулась пустота выдаём "общую" фразу из словаря
+						# Если из реактора вернулась пустота выдаём "общую" фразу из словаря.
 						if ($reply eq '') {
 							$reply = RandomCommonPhrase ();
 						}
 
-						# Если сгенерированная фраза слишком похожа на начальную - выдаём "общую" фразу из словаря
+						# Если сгенерированная фраза слишком похожа на начальную - выдаём "общую" фразу из словаря.
 						if (fmatch (lc ($m->{message}), lc ($reply))) {
 							$reply = RandomCommonPhrase ();
 						}
@@ -379,7 +395,7 @@ my $parse_message = sub {
 				}
 			}
 		} else {
-			# пытаемся что-то запоминать, если фраза длиннее 3-х букв
+			# Пытаемся что-то запоминать, если фраза длиннее 3-х букв
 			if (length ($m->{message}) > 3) {
 				my $telegram = 0;