aleesa-bot/aleesa-phrases
Archived
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Исправлены синтаксические ошибки и обработка кармы пустоты

Browse Source
This commit is contained in:
eleksir
2022-03-27 20:38:15 +03:00
parent 4d9cde38be
commit ba69f9d9df
2 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Phrases.pm
View File

@@ -97,7 +97,7 @@ my $parse_message = sub {
} else {
$reply = trim (Fortune ());
}
} elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ') eq 'karma ')) {
} elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ')) eq 'karma ') {
# По-умолчанию достаём карму пустоты
my $text = undef;
@@ -106,7 +106,7 @@ my $parse_message = sub {
}
$reply = KarmaGet ($m->{chatid}, $text);
} elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ') eq 'карма ')) {
} elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ')) eq 'карма ') {
# По-умолчанию достаём карму пустоты
my $text = undef;
@@ -123,7 +123,7 @@ my $parse_message = sub {
$reply = KarmaGet ($m->{chatid}, undef);
}
# Скорее всего изменение кармы, но это не точно
} elsif ($m->{message} > length ('++')) {
} elsif (length ($m->{message}) > length ('++')) {
if (substr ($m->{message}, 0 - length ('++')) eq '++' || substr ($m->{message}, 0 - length ('--')) eq '--') {
my @arr = split /\n/s, $m->{message};