eleksir/aleesa-irc-bot
0
Fork 0
Code Activity

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

Browse Source
This commit is contained in:
Sergei Fedosov
2021-08-11 18:23:17 +03:00
committed by eleksir
parent 8a28f01992
commit dbe3a935b3
7 changed files with 1844 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/BotLib.pm
View File

@@ -21,6 +21,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);
@@ -126,6 +127,8 @@ sub Command {
$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 ();
$reply = $phrase;