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

Add route to games module

Browse Source
This commit is contained in:
eleksir
2022-01-07 17:09:51 +03:00
parent 6956655fb3
commit f6ac3f713c
1 changed files with 24 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/Misc.pm
View File

@@ -78,28 +78,32 @@ my $parse_message = sub {
# Если сообщение не попало ни под один шаблон, оно отправляется к craniac-у # Если сообщение не попало ни под один шаблон, оно отправляется к craniac-у
my $send_to = 'craniac'; my $send_to = 'craniac';
$log->debug ('[DEBUG] Incoming message ' . Dumper($m)); $log->debug ('[DEBUG] Incoming message ' . Dumper ($m));
# Пробуем найти команды. Сообщения, начинающиеся с $answer->{misc}->{csign} # Пробуем найти команды. Сообщения, начинающиеся с $answer->{misc}->{csign}
if (substr ($m->{message}, 0, 1) eq $answer->{misc}->{csign}) { if (substr ($m->{message}, 0, 1) eq $answer->{misc}->{csign}) {
my $cmd = substr $m->{message}, 1;
my $done = 0; my $done = 0;
# Вначале поищем команды модуля Phrases
my @phrases_cmd = qw (friday пятница proverb пословица fortune фортунка f ф karma карма); my @phrases_cmd = qw (friday пятница proverb пословица fortune фортунка f ф karma карма);
while (my $cmd = pop @phrases_cmd) { while (my $check= pop @phrases_cmd) {
if (substr ($m->{message}, 1) eq $cmd) { if ($cmd eq $check) {
$send_to = 'phrases'; $send_to = 'phrases';
$done = 1; $done = 1;
last; last;
} }
} }
# Потом - команды модуля WebApp
unless ($done) { unless ($done) {
my @webapp_cmd = qw (buni anek анек анекдот cat кис drink праздник fox лис frog лягушка horse лошадь лошадка my @webapp_cmd = qw (buni anek анек анекдот cat кис drink праздник fox лис frog лягушка horse лошадь лошадка
monkeyuser rabbit bunny кролик snail улитка owl сова сыч xkcd tits boobs tities boobies monkeyuser rabbit bunny кролик snail улитка owl сова сыч xkcd tits boobs tities boobies
сиси сисечки butt booty ass попа попка); сиси сисечки butt booty ass попа попка);
while (my $cmd = pop @webapp_cmd) { while (my $check = pop @webapp_cmd) {
if (substr ($m->{message}, 1) eq $cmd) { if ($cmd eq $check) {
$send_to = 'webapp'; $send_to = 'webapp';
$done = 1; $done = 1;
last; last;
@@ -107,6 +111,20 @@ my $parse_message = sub {
} }
} }
# Потом - модуля Games
unless ($done) {
my @games_cmd = qw (dig копать fish fishing рыба рыбка рыбалка);
while (my $check = pop @games_cmd) {
if ($cmd eq $check) {
$send_to = 'games';
$done = 1;
last;
}
}
}
# И наконец остальные, более сложные команды, с аргументами
unless ($done) { unless ($done) {
if (substr ($m->{message}, 1, 2) eq 'w ' || substr ($m->{message}, 1, 2) eq 'п ') { if (substr ($m->{message}, 1, 2) eq 'w ' || substr ($m->{message}, 1, 2) eq 'п ') {
$send_to = 'webapp'; $send_to = 'webapp';
@@ -119,6 +137,7 @@ my $parse_message = sub {
$done = 1; $done = 1;
} }
} }
# Попробуем найти изменение кармы # Попробуем найти изменение кармы
} elsif (substr ($m->{message}, -2) eq '++' || substr ($m->{message}, -2) eq '--') { } elsif (substr ($m->{message}, -2) eq '++' || substr ($m->{message}, -2) eq '--') {
my @arr = split /\n/, $m->{message}; my @arr = split /\n/, $m->{message};