diff --git a/lib/BotLib.pm b/lib/BotLib.pm index 1b3375d..69920a4 100644 --- a/lib/BotLib.pm +++ b/lib/BotLib.pm @@ -84,9 +84,10 @@ sub Command { # Полноценный поиск простой команды во входящем сообщении $#cmds = -1; @cmds = qw (ping пинг пинх pong понг понх coin монетка roll dice кости ver version версия хэлп halp kde кде lat - лат friday пятница proverb пословица fortune фортунка f ф anek анек анекдот buni cat кис drink праздник fox лис - frog лягушка horse лошадь лошадка monkeyuser owl сова сыч rabbit bunny кролик snail улитка tits boobs tities - boobies сиси сисечки butt booty ass попа попка xkcd dig копать fish fishing рыба рыбка рыбалка karma карма); + лат friday пятница proverb пословица fortune фортунка f ф anek анек анекдот buni cat кис drink праздник + fox лис frog лягушка horse лошадь лошадка monkeyuser owl сова сыч rabbit bunny кролик snail улитка tits + boobs tities boobies сиси сисечки butt booty ass попа попка xkcd dig копать fish fishing рыба рыбка + рыбалка karma карма fuck); my $bingo = 0;