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

Add pong and понг replies.

Browse Source
This commit is contained in:
eleksir
2020-09-06 15:03:49 +03:00
parent 9a86ebb5bd
commit f7ecdb870f
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/telegrambot.pm
View File

@@ -87,6 +87,10 @@ sub __on_msg {
$reply = "Pong."; $reply = "Pong.";
} elsif (substr($text, 1) eq "пинг") { } elsif (substr($text, 1) eq "пинг") {
$reply = "Понг."; $reply = "Понг.";
} elsif (substr($text, 1) eq "pong") {
$reply = "Wat?";
} elsif (substr($text, 1) eq "понг") {
$reply = "Шта?";
} elsif (substr($text, 1, 2) eq 'w ' || substr($text, 1, 2) eq 'п ') { } elsif (substr($text, 1, 2) eq 'w ' || substr($text, 1, 2) eq 'п ') {
my $city = substr($text, 3); my $city = substr($text, 3);
$reply = weather($city); $reply = weather($city);