aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases Activity

Make use of karma module

Browse Source
This commit is contained in:
eleksir
2020-11-12 00:45:16 +03:00
parent 8cb69e554d
commit c71ba14bdc
2 changed files with 22 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
cpanfile
View File

@@ -3,6 +3,7 @@ requires 'Cwd::utf8';
requires 'DB_File'; requires 'DB_File';
requires 'Digest::MD5'; requires 'Digest::MD5';
requires 'Data::Dumper'; requires 'Data::Dumper';
requires 'Digest::SHA1';
requires 'File::Basename'; requires 'File::Basename';
requires 'File::Path'; requires 'File::Path';
requires 'Hailo'; requires 'Hailo';

25
lib/telegrambot.pm
View File

@@ -330,10 +330,12 @@ sub __on_msg {
my $send_args; my $send_args;
$send_args->{text} = << 'MYHELP'; $send_args->{text} = << 'MYHELP';
``` ```
!help | !помощь - список команд !help | !помощь - список команд
!w город | !п город - погода в указанном городе !w город | !п город - погода в указанном городе
!ping | !пинг - попинговать бота !ping | !пинг - попинговать бота
!lat | !лат - сгенерировать фразу из крылатых латинских выражений !lat | !лат - сгенерировать фразу из крылатых латинских выражений
!karma | !карма фраза - посмотреть карму фразы
фраза-- | фраза++ - убавить или добавить карму фразе
``` ```
Но на самом деле я бот больше для общения, чем для исполнения команд. Но на самом деле я бот больше для общения, чем для исполнения команд.
Поговоришь со мной? Поговоришь со мной?
@@ -355,6 +357,12 @@ MYHELP
$reply = weather ($city); $reply = weather ($city);
} elsif (length ($text) == 4 && (substr ($text, 1, 3) eq 'lat' || substr ($text, 1, 3) eq 'лат')) { } elsif (length ($text) == 4 && (substr ($text, 1, 3) eq 'lat' || substr ($text, 1, 3) eq 'лат')) {
$reply = latAnswer(); $reply = latAnswer();
} elsif ((length($text) > 8) || (substr ($text, 1, 6) eq 'karma ') || (substr ($text, 1, 6) eq 'карма ')) {
my $mytext = substr ($text, 7);
$mytext = trim ($mytext);
$reply = karmaGet ($chatid, $mytext);
} elsif ((length($text) > 8) || (substr ($text, 1, 6) eq 'karma ') || (substr ($text, 1, 6) eq 'карма ')) {
$reply = 'Простите, что? Карма пустоты?';
} }
} elsif ( } elsif (
($text eq $qname) or ($text eq $qname) or
@@ -376,6 +384,15 @@ MYHELP
} elsif ((lc ($text) =~ /.+ ${qtname}[\,|\!|\?|\.| ]/) or (lc ($text) =~ / $qtname$/)) { } elsif ((lc ($text) =~ /.+ ${qtname}[\,|\!|\?|\.| ]/) or (lc ($text) =~ / $qtname$/)) {
$phrase = $text; $phrase = $text;
$reply = $hailo->{$msg->chat->id}->reply ($phrase); $reply = $hailo->{$msg->chat->id}->reply ($phrase);
} elsif ((substr ($text, -2) eq '++') && (substr ($text, -2) eq '--')) {
my @arr = split(/\n/, $text);
if ($#arr < 1) {
$reply = kermaSet ($chatid, $phrase, substr ($text, -2));
} else {
# just message in chat
$hailo->{$msg->chat->id}->learn ($text);
}
# just message in chat # just message in chat
} else { } else {
$hailo->{$msg->chat->id}->learn ($text); $hailo->{$msg->chat->id}->learn ($text);