eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Implemented !proverb and !пословица commands

Browse Source
This commit is contained in:
eleksir
2021-08-11 18:00:41 +03:00
parent 505c99ef63
commit 87c29ac8d3
6 changed files with 1842 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/BotLib.pm
View File

@@ -22,6 +22,7 @@ use BotLib::Karma qw (KarmaGet);
use BotLib::Kitty qw (Kitty);
use BotLib::Lat qw (Lat);
use BotLib::Monkeyuser qw (Monkeyuser);
use BotLib::Proverb qw (Proverb);
use BotLib::Util qw (trim utf2sha1);
use BotLib::Weather qw (Weather);
use BotLib::Xkcd qw (Xkcd);
@@ -231,6 +232,7 @@ ${csign}lat | ${csign}лат - сгенерировать фра
${csign}monkeyuser - комикс-стрип MonkeyUser
${csign}owl | ${csign}сова - сова
${csign}ping | ${csign}пинг - попинговать бота
${csign}proverb | ${csign}пословица - рандомная русская пословица
${csign}roll | ${csign}dice | ${csign}кости - бросить кости
${csign}snail | ${csign}улитк а - улитка
${csign}some_brew - выдать соответствующий напиток, бармен может налить rum, ром, vodka, водку, beer, пиво, tequila, текила, whisky, виски, absinthe, абсент
@@ -282,6 +284,8 @@ EOL
$reply = KarmaGet ($chatid, $mytext);
} elsif (substr ($text, 1) eq 'friday' || substr ($text, 1) eq 'пятница') {
$reply = Friday ();
} elsif (substr ($text, 1) eq 'proverb' || substr ($text, 1) eq 'пословица') {
$reply = Proverb ();
} elsif (substr ($text, 1) eq 'fortune' || substr ($text, 1) eq 'фортунка' || substr ($text, 1) eq 'f' || substr ($text, 1) eq 'ф') {
my $phrase = Fortune ();
# workaround Net::Jabber::Bot outgoing message ![:print:] replacement