From bb399a5051a2b5dabffaa7f3839d4bec96d3181a Mon Sep 17 00:00:00 2001 From: eleksir Date: Tue, 12 Oct 2021 10:54:30 +0300 Subject: [PATCH] =?UTF-8?q?Add=20undocumented=20commands=20!kde=20and=20!?= =?UTF-8?q?=D0=BA=D0=B4=D0=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/BotLib.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lib/BotLib.pm b/lib/BotLib.pm index 419318d..61c848a 100644 --- a/lib/BotLib.pm +++ b/lib/BotLib.pm @@ -232,8 +232,17 @@ sub Command { sleep (irand (2) + 1); $msg->replyMd ($reply); return; - } elsif (substr ($text, 1) eq 'хэлп' || substr ($text, 1) eq 'хелп') { + } elsif (substr ($text, 1) eq 'хэлп' || substr ($text, 1) eq 'halp') { $reply = 'HALP!!!11'; + } elsif (substr ($text, 1) eq 'kde' || substr ($text, 1) eq 'кде') { + my @phrases = ( + 'Нет, я не буду поднимать вам плазму.', + 'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.', + 'Плазма не падает, она просто выходит отдохнуть.', + 'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.' + ); + + $reply = $phrases[irand ($#phrases + 1)]; } elsif (substr ($text, 1) eq 'help' || substr ($text, 1) eq 'помощь') { $reply = << "MYHELP"; ```