Add pong and понг replies.

This commit is contained in:
eleksir
2020-09-06 15:03:49 +03:00
parent 9a86ebb5bd
commit f7ecdb870f

View File

@@ -87,6 +87,10 @@ sub __on_msg {
$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, 2) eq 'w ' || substr($text, 1, 2) eq 'п ') {
my $city = substr($text, 3);
$reply = weather($city);