Actually check 2 letters on 1 letter command invocation.
This commit is contained in:
@@ -87,8 +87,8 @@ sub __on_msg {
|
|||||||
$reply = "Pong.";
|
$reply = "Pong.";
|
||||||
} elsif (substr($text, 1) eq "пинг") {
|
} elsif (substr($text, 1) eq "пинг") {
|
||||||
$reply = "Понг.";
|
$reply = "Понг.";
|
||||||
} elsif (substr($text, 1, 1) eq 'w' || substr($text, 1, 1) eq 'п') {
|
} elsif (substr($text, 1, 2) eq 'w ' || substr($text, 1, 2) eq 'п ') {
|
||||||
my $city = substr($text, 2);
|
my $city = substr($text, 3);
|
||||||
$reply = weather($city);
|
$reply = weather($city);
|
||||||
}
|
}
|
||||||
} elsif (
|
} elsif (
|
||||||
|
|||||||
Reference in New Issue
Block a user