451 lines
16 KiB
Perl
451 lines
16 KiB
Perl
package BotLib;
|
|
# store here utility functions that are not protocol-specified
|
|
|
|
use 5.018;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use open qw (:std :utf8);
|
|
use English qw ( -no_match_vars );
|
|
use Carp qw (carp);
|
|
use Math::Random::Secure qw (irand);
|
|
|
|
use BotLib::Conf qw (LoadConf);
|
|
use BotLib::Admin qw (@ForbiddenMessageTypes GetForbiddenTypes AddForbiddenType
|
|
DelForbiddenType ListForbidden FortuneToggle FortuneStatus
|
|
PluginToggle PluginStatus PluginEnabled);
|
|
use BotLib::Anek qw (Anek);
|
|
use BotLib::Archeologist qw (Dig);
|
|
use BotLib::Buni qw (Buni);
|
|
use BotLib::Drink qw (Drink);
|
|
use BotLib::Fisher qw (Fish);
|
|
use BotLib::Fortune qw (Fortune);
|
|
use BotLib::Friday qw (Friday);
|
|
use BotLib::Image qw (Kitty Fox Oboobs Obutts Rabbit Owl Frog Horse Snail);
|
|
use BotLib::Karma qw (KarmaSet KarmaGet);
|
|
use BotLib::Lat qw (Lat);
|
|
use BotLib::Monkeyuser qw (Monkeyuser);
|
|
use BotLib::Proverb qw (Proverb);
|
|
use BotLib::Util qw (trim);
|
|
use BotLib::Weather qw (Weather);
|
|
use BotLib::Xkcd qw (Xkcd);
|
|
|
|
use version; our $VERSION = qw (1.0);
|
|
use Exporter qw (import);
|
|
our @EXPORT_OK = qw (RandomCommonPhrase Command Highlight BotSleep IsCensored);
|
|
|
|
my $c = LoadConf ();
|
|
my $csign = $c->{telegrambot}->{csign};
|
|
|
|
sub RandomCommonPhrase {
|
|
my @myphrase = (
|
|
'Так, блядь...',
|
|
'*Закатывает рукава* И ради этого ты меня позвал?',
|
|
'Ну чего ты начинаешь, нормально же общались',
|
|
'Повтори свой вопрос, не поняла',
|
|
'Выйди и зайди нормально',
|
|
'Я подумаю',
|
|
'Даже не знаю что на это ответить',
|
|
'Ты упал такие вопросы девочке задавать?',
|
|
'Можно и так, но не уверена',
|
|
'А как ты думаешь?',
|
|
'А ви, таки, почему интересуетесь?',
|
|
);
|
|
|
|
return $myphrase[irand ($#myphrase + 1)];
|
|
}
|
|
|
|
sub Command {
|
|
my $self = shift;
|
|
my $msg = shift;
|
|
my $text = shift;
|
|
my $chatid = shift;
|
|
my $reply;
|
|
my ($userid, $username, $fullname, $highlight, $visavi) = Highlight ($msg);
|
|
|
|
if (substr ($text, 1) eq 'ping') {
|
|
$reply = 'Pong.';
|
|
} elsif (substr ($text, 1) eq 'пинг') {
|
|
$reply = 'Понг.';
|
|
} elsif (substr ($text, 1) eq 'pong') {
|
|
$reply = 'Wat?';
|
|
} elsif (substr ($text, 1) eq 'понг') {
|
|
$reply = 'Шта?';
|
|
} elsif (substr ($text, 1) eq 'coin' || substr ($text, 1) eq 'монетка') {
|
|
if (rand (101) < 0.016) {
|
|
$reply = "ребро";
|
|
} else {
|
|
if (irand (2) == 0) {
|
|
if (irand (2) == 0) {
|
|
$reply = 'орёл';
|
|
} else {
|
|
$reply = 'аверс';
|
|
}
|
|
} else {
|
|
if (irand (2) == 0) {
|
|
$reply = 'решка';
|
|
} else {
|
|
$reply = 'реверс';
|
|
}
|
|
}
|
|
}
|
|
} elsif (substr ($text, 1) eq 'roll' || substr ($text, 1) eq 'dice' || substr ($text, 1) eq 'кости') {
|
|
$reply = sprintf "На первой кости выпало %d, а на второй — %d.", irand (6) + 1, irand (6) + 1;
|
|
} elsif (substr ($text, 1) eq 'ver' || substr ($text, 1) eq 'version' || substr ($text, 1) eq 'версия') {
|
|
$reply = 'Версия: Нуль.Чего-то_там.Чего-то_там';
|
|
} elsif (substr ($text, 1) eq 'anek' || substr ($text, 1) eq 'анек' || substr ($text, 1) eq 'анекдот') {
|
|
$msg->typing ();
|
|
$reply = "```\n" . Anek () . "\n```";
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (length ($text) >= 2 && (substr ($text, 1, 2) eq 'w ' || substr ($text, 1, 2) eq 'п ')) {
|
|
my $city = substr $text, 3;
|
|
$reply = Weather $city;
|
|
} elsif (substr ($text, 1) eq 'buni') {
|
|
$msg->typing ();
|
|
$reply = Buni ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'monkeyuser') {
|
|
$msg->typing ();
|
|
$reply = Monkeyuser ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'cat' || substr ($text, 1) eq 'кис') {
|
|
$msg->typing ();
|
|
$reply = Kitty ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'frog' || substr ($text, 1) eq 'toad' || substr ($text, 1) eq 'лягушка') {
|
|
$msg->typing ();
|
|
$reply = Frog ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'horse' || substr ($text, 1) eq 'лошадка') {
|
|
$msg->typing ();
|
|
$reply = Horse ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'snail' || substr ($text, 1) eq 'улитка') {
|
|
$msg->typing ();
|
|
$reply = Snail ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'lat' || substr ($text, 1) eq 'лат') {
|
|
$reply = Lat ();
|
|
} elsif (
|
|
(length ($text) >= 6 && (substr ($text, 1, 6) eq 'karma ' || substr ($text, 1, 6) eq 'карма ')) ||
|
|
substr ($text, 1) eq 'karma' || substr ($text, 1) eq 'карма'
|
|
) {
|
|
my $mytext = '';
|
|
|
|
if (length($text) > 6) {
|
|
$mytext = substr $text, 7;
|
|
chomp $mytext;
|
|
$mytext = trim $mytext;
|
|
} else {
|
|
$mytext = '';
|
|
}
|
|
|
|
$reply = KarmaGet ($chatid, $mytext);
|
|
} elsif (substr ($text, 1) eq 'xkcd') {
|
|
$msg->typing ();
|
|
$reply = Xkcd ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'fox' || substr ($text, 1) eq 'лис') {
|
|
$msg->typing ();
|
|
$reply = Fox ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'rabbit' || substr ($text, 1) eq 'bunny' || substr ($text, 1) eq 'кролик') {
|
|
$msg->typing ();
|
|
$reply = Rabbit ();
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'owl' || substr ($text, 1) eq 'сова') {
|
|
$msg->typing ();
|
|
$reply = Owl ();
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (
|
|
substr ($text, 1) eq 'tits' ||
|
|
substr ($text, 1) eq 'boobs' ||
|
|
substr ($text, 1) eq 'tities' ||
|
|
substr ($text, 1) eq 'boobies' ||
|
|
substr ($text, 1) eq 'сиси' ||
|
|
substr ($text, 1) eq 'сисечки'
|
|
) {
|
|
if (PluginEnabled $chatid, 'oboobs') {
|
|
$msg->typing ();
|
|
$reply = Oboobs ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
}
|
|
|
|
return;
|
|
} elsif (
|
|
substr ($text, 1) eq 'butt' ||
|
|
substr ($text, 1) eq 'booty' ||
|
|
substr ($text, 1) eq 'ass' ||
|
|
substr ($text, 1) eq 'попа' ||
|
|
substr ($text, 1) eq 'попка'
|
|
) {
|
|
if (PluginEnabled $chatid, 'obutts') {
|
|
$msg->typing ();
|
|
$reply = Obutts ();
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
}
|
|
|
|
return;
|
|
} 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 'ф') {
|
|
$reply = sprintf "```\n%s\n```\n", trim (Fortune ());
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'drink' || substr ($text, 1) eq 'праздник') {
|
|
$msg->typing ();
|
|
$reply = Drink ();
|
|
sleep (irand (2) + 1);
|
|
} elsif (substr ($text, 1) eq 'dig' || substr ($text, 1) eq 'копать') {
|
|
$msg->typing ();
|
|
$reply = Dig $highlight;
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'fish' || substr ($text, 1) eq 'fishing' || substr ($text, 1) eq 'рыба' || substr ($text, 1) eq 'рыбка' || substr ($text, 1) eq 'рыбалка' ) {
|
|
$msg->typing ();
|
|
$reply = Fish $highlight;
|
|
sleep (irand (2) + 1);
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'хэлп' || substr ($text, 1) eq 'хелп') {
|
|
$reply = 'HALP!!!11';
|
|
} elsif (substr ($text, 1) eq 'help' || substr ($text, 1) eq 'помощь') {
|
|
$reply = << "MYHELP";
|
|
```
|
|
${csign}help | ${csign}помощь - список команд
|
|
${csign}anek | ${csign}анек | ${csign}анекдот - рандомный анекдот с anekdot.ru
|
|
${csign}buni - рандомный стрип hapi buni
|
|
${csign}bunny | ${csign}rabbit | ${csign}кролик - кролик
|
|
${csign}cat | ${csign}кис - кошечка
|
|
${csign}coin | ${csign}монетка - подбросить монетку - орёл или решка?
|
|
${csign}dig | ${csign}копать - заняться археологией
|
|
${csign}drink | ${csign}праздник - какой сегодня праздник?
|
|
${csign}fish | ${csign}рыба | ${csign}рыбка - порыбачить
|
|
${csign}fishing | ${csign}рыбалка - порыбачить
|
|
${csign}f | ${csign}ф - рандомная фраза из сборника цитат fortune_mod
|
|
${csign}fortune | ${csign}фортунка - рандомная фраза из сборника цитат fortune_mod
|
|
${csign}fox | ${csign}лис - лисичка
|
|
${csign}friday | ${csign}пятница - а не пятница ли сегодня?
|
|
${csign}frog | ${csign}лягушка - лягушка
|
|
${csign}horse | ${csign}лошадка - лошадка
|
|
${csign}lat | ${csign}лат - сгенерить фразу из крылатых латинских выражений
|
|
${csign}monkeyuser - рандомный стрип MonkeyUser
|
|
${csign}owl | ${csign}сова - сова
|
|
${csign}proverb | ${csign}пословица - рандомная русская пословица
|
|
${csign}ping | ${csign}пинг - попинговать бота
|
|
${csign}roll | ${csign}dice | ${csign}кости - бросить кости
|
|
${csign}snail | ${csign}улитка - улитка
|
|
${csign}ver | ${csign}version | ${csign}версия - что-то про версию ПО
|
|
${csign}w город | ${csign}п город - погода в указанном городе
|
|
${csign}xkcd - рандомный стрип с сайта xkcd.ru
|
|
${csign}karma фраза | ${csign}карма фраза - посмотреть карму фразы
|
|
фраза-- | фраза++ - убавить или добавить карму фразе
|
|
```
|
|
Но на самом деле я бот больше для общения, чем для исполнения команд.
|
|
Поговоришь со мной?
|
|
MYHELP
|
|
$msg->replyMd ($reply);
|
|
return;
|
|
} elsif (substr ($text, 1) eq 'admin' || substr ($text, 1) eq 'админ') {
|
|
my $member = $self->getChatMember ({ 'chat_id' => $msg->chat->id, 'user_id' => $msg->from->id });
|
|
|
|
# this msg should be shown only if admins of chat request it
|
|
if (($member->status eq 'administrator') || ($member->status eq 'creator')) {
|
|
$reply = << "MYADMIN";
|
|
```
|
|
${csign}admin censor type # - где 1 - вкл, 0 - выкл цензуры для означенного типа сообщений
|
|
${csign}админ ценз тип # - где 1 - вкл, 0 - выкл цензуры для означенного типа сообщений
|
|
${csign}admin censor - показать список состояния типов сообщений
|
|
${csign}админ ценз - показать список состояния типов сообщений
|
|
${csign}admin fortune # - где 1 - вкл, 0 - выкл фортунку с утра
|
|
${csign}admin фортунка # - где 1 - вкл, 0 - выкл фортунку с утра
|
|
${csign}admin fortune - показываем ли с утра фортунку для чата
|
|
${csign}admin фортунка - показываем ли с утра фортунку для чата
|
|
${csign}admin oboobs # - где 1 - вкл, 0 - выкл плагина oboobs
|
|
${csign}admin oboobs - показываем ли сисечки по просьбе участников чата (команды ${csign}tits, ${csign}tities, ${csign}boobs, ${csign}boobies, ${csign}сиси, ${csign}сисечки)
|
|
${csign}admin obutts # - где 1 - вкл, 0 - выкл плагина obutts
|
|
${csign}admin obutts - показываем ли попки по просьбе участников чата (команды ${csign}ass, ${csign}butt, ${csign}booty, ${csign}попа, ${csign}попка)
|
|
```
|
|
Типы сообщений:
|
|
audio voice photo video animation sticker dice game poll document
|
|
MYADMIN
|
|
|
|
$msg->replyMd ($reply);
|
|
}
|
|
|
|
return;
|
|
} elsif ((substr ($text, 1, 5) eq 'admin' || substr ($text, 1, 5) eq 'админ') && (length ($text) >= 8)) {
|
|
my $member = $self->getChatMember ({ 'chat_id' => $msg->chat->id, 'user_id' => $msg->from->id });
|
|
|
|
# this msg should be shown only if admins of chat request it
|
|
if (($member->status eq 'administrator') || ($member->status eq 'creator')) {
|
|
my $command = trim (substr $text, 7);
|
|
my ($cmd, $args) = split /\s+/, $command, 2;
|
|
|
|
if ($cmd eq '') {
|
|
return;
|
|
} elsif ($cmd eq 'censor' || $cmd eq 'ценз') {
|
|
if (defined ($args) && ($args ne '')) {
|
|
my ($msgType, $toggle) = split /\s/, $args, 2;
|
|
|
|
if (defined $toggle) {
|
|
foreach (@ForbiddenMessageTypes) {
|
|
if ($msgType eq $_) {
|
|
if ($toggle == 1) {
|
|
AddForbiddenType ($chatid, $msgType);
|
|
$reply = "Теперь сообщения с $msgType будут автоматически удаляться";
|
|
} elsif ($toggle == 0) {
|
|
DelForbiddenType ($chatid, $msgType);
|
|
$reply = "Теперь сообщения с $msgType будут оставаться";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
$reply = ListForbidden ($chatid);
|
|
}
|
|
} elsif ($cmd eq 'fortune' || $cmd eq 'фортунка') {
|
|
if (defined $args) {
|
|
if ($args == 1) {
|
|
$reply = FortuneToggle ($chatid, 1);
|
|
} elsif ($args == 0) {
|
|
$reply = FortuneToggle ($chatid, 0);
|
|
}
|
|
} else {
|
|
$reply = FortuneStatus ($chatid);
|
|
}
|
|
} elsif ($cmd eq 'oboobs') {
|
|
if (defined $args) {
|
|
if ($args == 1) {
|
|
$reply = PluginToggle ($chatid, 'oboobs', 1);
|
|
} elsif ($args == 0) {
|
|
$reply = PluginToggle ($chatid, 'oboobs', 0);
|
|
}
|
|
} else {
|
|
$reply = PluginStatus ($chatid, 'oboobs');
|
|
}
|
|
} elsif ($cmd eq 'obutts') {
|
|
if (defined $args) {
|
|
if ($args == 1) {
|
|
$reply = PluginToggle ($chatid, 'obutts', 1);
|
|
} elsif ($args == 0) {
|
|
$reply = PluginToggle ($chatid, 'obutts', 0);
|
|
}
|
|
} else {
|
|
$reply = PluginStatus ($chatid, 'obutts');
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return $reply;
|
|
}
|
|
|
|
sub Highlight {
|
|
my $msg = shift;
|
|
|
|
my $fullname;
|
|
my $highlight;
|
|
my $username;
|
|
my $visavi = '';
|
|
my $userid = $msg->from->id;
|
|
|
|
if ($msg->from->can ('username') && defined $msg->from->username ) {
|
|
$username = $msg->from->username;
|
|
}
|
|
|
|
if ($msg->from->can ('first_name') && defined $msg->from->first_name) {
|
|
$fullname = $msg->from->first_name;
|
|
|
|
if ($msg->from->can ('last_name') && defined $msg->from->last_name) {
|
|
$fullname .= ' ' . $msg->from->last_name;
|
|
}
|
|
} elsif ($msg->from->can ('last_name') && defined $msg->from->last_name) {
|
|
$fullname .= $msg->from->last_name;
|
|
}
|
|
|
|
if (defined $username) {
|
|
$visavi .= '@' . $username;
|
|
|
|
if (defined $fullname) {
|
|
$highlight = "[$fullname](tg://user?id=$userid)";
|
|
$visavi .= ', ' . $fullname;
|
|
} else {
|
|
$highlight = "[$username](tg://user?id=$userid)";
|
|
}
|
|
} else {
|
|
$highlight = "[$fullname](tg://user?id=$userid)";
|
|
$visavi .= $fullname;
|
|
}
|
|
|
|
$visavi .= " ($userid)";
|
|
|
|
return ($userid, $username, $fullname, $highlight, $visavi);
|
|
}
|
|
|
|
sub BotSleep {
|
|
# TODO: Parametrise this with fuzzy sleep time in seconds
|
|
my $msg = shift;
|
|
# let's emulate real human and delay answer
|
|
sleep (irand (2) + 1);
|
|
|
|
for (0..(4 + irand (3))) {
|
|
$msg->typing ();
|
|
sleep 3;
|
|
sleep 3 unless ($_);
|
|
}
|
|
|
|
sleep ( 3 + irand (2));
|
|
return;
|
|
}
|
|
|
|
sub IsCensored {
|
|
my $msg = shift;
|
|
|
|
my $forbidden = GetForbiddenTypes ($msg->chat->id);
|
|
|
|
# voice messages are special
|
|
if (defined ($msg->voice) && defined ($msg->voice->duration) && ($msg->voice->duration > 0)) {
|
|
if ($forbidden->{'voice'}) {
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
foreach (keys %{$forbidden}) {
|
|
if ($forbidden->{$_} && (defined $msg->{$_})) {
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|