Add pong and понг replies.
This commit is contained in:
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user