eleksir/aleesa-telegram-bot
1
Fork 0
Code Activity

Couple of grammar and coding style mistakes fixes here and there

Browse Source
This commit is contained in:
eleksir
2021-12-04 03:10:13 +03:00
parent e93c9f9131
commit 71a2471725
5 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/BotLib.pm
View File

@@ -73,7 +73,7 @@ sub Command {
$reply = 'Шта?'; $reply = 'Шта?';
} elsif (substr ($text, 1) eq 'coin' || substr ($text, 1) eq 'монетка') { } elsif (substr ($text, 1) eq 'coin' || substr ($text, 1) eq 'монетка') {
if (rand (101) < 0.016) { if (rand (101) < 0.016) {
$reply = "ребро"; $reply = 'ребро';
} else { } else {
if (irand (2) == 0) { if (irand (2) == 0) {
if (irand (2) == 0) { if (irand (2) == 0) {
@@ -90,7 +90,7 @@ sub Command {
} }
} }
} elsif (substr ($text, 1) eq 'roll' || substr ($text, 1) eq 'dice' || substr ($text, 1) eq 'кости') { } elsif (substr ($text, 1) eq 'roll' || substr ($text, 1) eq 'dice' || substr ($text, 1) eq 'кости') {
$reply = sprintf "На первой кости выпало %d, а на второй — %d.", irand (6) + 1, irand (6) + 1; $reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
} elsif (substr ($text, 1) eq 'ver' || substr ($text, 1) eq 'version' || substr ($text, 1) eq 'версия') { } elsif (substr ($text, 1) eq 'ver' || substr ($text, 1) eq 'version' || substr ($text, 1) eq 'версия') {
$reply = 'Версия: Нуль.Чего-то_там.Чего-то_там'; $reply = 'Версия: Нуль.Чего-то_там.Чего-то_там';
} elsif (substr ($text, 1) eq 'anek' || substr ($text, 1) eq 'анек' || substr ($text, 1) eq 'анекдот') { } elsif (substr ($text, 1) eq 'anek' || substr ($text, 1) eq 'анек' || substr ($text, 1) eq 'анекдот') {
@@ -239,7 +239,7 @@ sub Command {
'Нет, я не буду поднимать вам плазму.', 'Нет, я не буду поднимать вам плазму.',
'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.', 'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.',
'Плазма не падает, она просто выходит отдохнуть.', 'Плазма не падает, она просто выходит отдохнуть.',
'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.' 'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.',
); );
$reply = $phrases[irand ($#phrases + 1)]; $reply = $phrases[irand ($#phrases + 1)];

2
lib/BotLib/Archeologist.pm
View File

@@ -90,7 +90,7 @@ sub Dig {
} }
my $phrase = sprintf "Вы начали раскопки %s и усиленно роете лопатами, экскаватором...\n", $location[irand ($#location + 1)]; my $phrase = sprintf "Вы начали раскопки %s и усиленно роете лопатами, экскаватором...\n", $location[irand ($#location + 1)];
$phrase .= "Вам кажется что ваш совочек ударился обо что-то твердое. Может, это клад?!\n\n"; $phrase .= "Вам кажется, что ваш совочек ударился обо что-то твердое. Может, это клад?!\n\n";
my $artifact = getRandomArtifact(); my $artifact = getRandomArtifact();
if ($success_probability <= 25) { if ($success_probability <= 25) {

2
lib/BotLib/Image.pm
View File

@@ -158,7 +158,7 @@ sub Obutts {
return $ret; return $ret;
} }
# It works but results are not particulary relevant, partially. about 20-30% miss # It works but results are not particularly relevant, partially. about 20-30% miss
# So i prefer to use flickr rabbits selection :) # So i prefer to use flickr rabbits selection :)
sub rabbit_imgur { sub rabbit_imgur {
my @terms = ( my @terms = (

2
lib/BotLib/Image/Imgur.pm
View File

@@ -76,7 +76,7 @@ sub Imgur {
$refresh_url => form { $refresh_url => form {
refresh_token => $imgur_refresh_token, refresh_token => $imgur_refresh_token,
client_id => $imgur_client_id, client_id => $imgur_client_id,
clinent_secret => $imgur_client_secret, client_secret => $imgur_client_secret,
grant_type => 'refresh_token', grant_type => 'refresh_token',
} }
); );

3
lib/TelegramBot.pm
View File

@@ -5,7 +5,6 @@ use 5.018;
use strict; use strict;
use warnings; use warnings;
use utf8; use utf8;
use Data::Dumper;
use open qw (:std :utf8); use open qw (:std :utf8);
use English qw ( -no_match_vars ); use English qw ( -no_match_vars );
use Carp qw (cluck carp); use Carp qw (cluck carp);
@@ -120,7 +119,7 @@ sub __on_msg {
'Дарована', 'Дарована',
'Доброе утро, день или вечер', 'Доброе утро, день или вечер',
'Добро пожаловать в наше скромное коммунити', 'Добро пожаловать в наше скромное коммунити',
'Наше вам с кисточкой тут, на канальчике' 'Наше вам с кисточкой тут, на канальчике',
); );
foreach my $member (@{$msg->new_chat_members}) { foreach my $member (@{$msg->new_chat_members}) {