From 4706322c4e83a2fdce8e66dedd845e85ebf5b801 Mon Sep 17 00:00:00 2001 From: eleksir Date: Fri, 22 Apr 2022 16:22:00 +0300 Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=B5=D1=80=D0=B5=D1=80=D0=B0=D0=B1?= =?UTF-8?q?=D0=B0=D1=82=D1=8B=D0=B2=D0=B0=D0=B5=D0=BC=20=D0=BF=D0=B0=D1=80?= =?UTF-8?q?=D1=81=D0=B5=D1=80=20=D0=BA=D0=BE=D0=BC=D0=B0=D0=BD=D0=B4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/Craniac.pm | 100 ++++++++++++++++++++++++++++--------------------- 1 file changed, 58 insertions(+), 42 deletions(-) diff --git a/lib/Craniac.pm b/lib/Craniac.pm index 2003360..3afa506 100644 --- a/lib/Craniac.pm +++ b/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) { - $reply = 'Pong.'; - } elsif ($m->{message} =~ /^\Q$csign\Epong\.?\s*$/i) { - $reply = 'Wat?'; - } elsif ($m->{message} =~ /^\Q$csign\Eпин(г|х)\.?\s*$/ui) { - $reply = 'Понг.'; - } elsif ($m->{message} =~ /^\Q$csign\Eпон(г|х)\.?\s*$/ui) { - $reply = 'Шта?'; - } elsif ($m->{message} =~ /^\Q$csign\E(хэлп|halp)\s*$/ui) { - $reply = 'HALP!!!11'; + if ($is_command) { + if ($cmd =~ /^ping\.?\s*$/ui) { + $reply = 'Pong.'; + } elsif ($cmd =~ /^pong\.?\s*$/i) { + $reply = 'Wat?'; + } elsif ($cmd=~ /^пин(г|х)\.?\s*$/ui) { + $reply = 'Понг.'; + } elsif ($cmd =~ /^пон(г|х)\.?\s*$/ui) { + $reply = 'Шта?'; + } elsif ($cmd=~ /^(хэлп|halp)\s*$/ui) { + $reply = 'HALP!!!11'; + } } } # Поищем в тексте входящего сообщения команды общего плана, с символом команды. unless (defined $reply) { - if ($m->{message} =~ /^\Q$csign\E(kde|кде)\s*$/ui) { - my @phrases = ( - 'Нет, я не буду поднимать вам плазму.', - 'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.', - 'Плазма не падает, она просто выходит отдохнуть.', - 'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.', - ); + if ($is_command) { + if ($cmd =~ /^(kde|кде)\s*$/ui) { + my @phrases = ( + 'Нет, я не буду поднимать вам плазму.', + 'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.', + 'Плазма не падает, она просто выходит отдохнуть.', + 'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.', + ); - $reply = $phrases[irand ($#phrases + 1)]; - } elsif ($m->{message} =~ /^\Q$csign\E(coin|монетка)$/ui) { - if (rand (101) < 0.016) { - $reply = 'ребро'; - } else { - if (irand (2) == 0) { - if (irand (2) == 0) { - $reply = 'орёл'; - } else { - $reply = 'аверс'; - } + $reply = $phrases[irand ($#phrases + 1)]; + } elsif ($cmd =~ /^(coin|монетка)$/ui) { + # Нам тут говорили, что есть некая вероятность, что монета упадёт ребром... И даже цифры называли. + if (rand (101) < 0.016) { + $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;