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

Implement !dig and !копать commands, fix typo in help message

Browse Source
This commit is contained in:
eleksir
2020-12-18 20:29:43 +03:00
parent 642aadfd84
commit cc43141d20
3 changed files with 142 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/telegrambot.pm
View File

@@ -238,13 +238,14 @@ sub __on_msg {
$send_args->{text} = << 'MYHELP';
```
!help | !помощь - список команд
!dig | !копать - заняться археологией
!f | !ф - рандомная фраза из сборника цитат fortune_mod
!fortune | !фортунка - рандомная фраза из сборника цитат fortune_mod
!f # | !ф # - где 1 - вкл, 0 - выкл фортунку с утра
!fortune # | !фортунка # - где 1 - вкл, 0 - выкл фортунку с утра
!f ? | !ф ? - показываем ли с утра фортунку для чата
!fortune ? | !фортунка ? - показываем ли с утра фортунку для чата
!friday | пятница - а не пятница ли сегодня?
!friday | !пятница - а не пятница ли сегодня?
!lat | !лат - сгенерировать фразу из крылатых латинских выражений
!ping | !пинг - попинговать бота
!ver | !version | !версия - что-то про версию ПО
@@ -260,7 +261,7 @@ MYHELP
Teapot::Bot::Brain::sendMessage ($self, $send_args);
return;
} else {
$reply = command ($text, $userid);
$reply = command ($self, $msg, $text, $userid);
}
} else {
my $just_message_in_chat = 0;
@@ -371,13 +372,14 @@ MYHELP
$send_args->{text} = << 'MYHELP';
```
!help | !помощь - список команд
!dig | !копать - заняться археологией
!f | !ф - рандомная фраза из сборника цитат fortune_mod
!fortune | !фортунка - рандомная фраза из сборника цитат fortune_mod
!f # | !ф # - где 1 - вкл, 0 - выкл фортунку с утра
!fortune # | !фортунка # - где 1 - вкл, 0 - выкл фортунку с утра
!f ? | !ф ? - показываем ли с утра фортунку для чата
!fortune ? | !фортунка ? - показываем ли с утра фортунку для чата
!friday | пятница - а не пятница ли сегодня?
!friday | !пятница - а не пятница ли сегодня?
!lat | !лат - сгенерировать фразу из крылатых латинских выражений
!ping | !пинг - попинговать бота
!ver | !version | !версия - что-то про версию ПО
@@ -393,7 +395,7 @@ MYHELP
Teapot::Bot::Brain::sendMessage ($self, $send_args);
return;
} else {
$reply = command ($text, $chatid);
$reply = command ($self, $msg, $text, $chatid);
}
} elsif (
($text eq $qname) or