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

Fix fortune src filename check and another pack of style and natural language fixes

Browse Source
This commit is contained in:
eleksir
2021-02-09 00:57:08 +03:00
parent 5d0fe793fd
commit 041ab3efeb
13 changed files with 58 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fisher.pm
View File

@@ -32,7 +32,7 @@ sub fish {
'плотву',
'зубатку',
'солнечную рыбу',
'cтарую шину',
'старую шину',
'скользкую корягу',
'лампу джина',
'любовное послание в бутылке',
@@ -70,7 +70,7 @@ sub fish {
'в поток',
'в озеро',
'в реку',
'в северерный ледовитый океан',
'в северный ледовитый океан',
'в индийский океан',
'в биде',
'в детский плавательный бассейн',
@@ -92,7 +92,7 @@ sub fish {
'в черную дыру',
'дно Удомельского реактора',
'на Марс',
'в соседнюю галактуку',
'в соседнюю галактику',
'к соседу на балкон',
'далеко-далеко',
'далеко и надолго',
@@ -101,7 +101,7 @@ sub fish {
my @material = (
'бамбуковую',
'фиберглассовую',
'фибергласовую',
'карбоновую',
'композитную',
);
@@ -110,7 +110,7 @@ sub fish {
my $success_probability = irand 100;
my $weight = irand 7000;
my $phrase = sprintf "Вы забрасываете %s удочку %s.\nВы чувствуете поклевку и начинаете быстро тащить что-то.\n", $material[irand ($#material + 1)], $location[irand ($#location + 1)];
my $phrase = sprintf "Вы забрасываете %s удочку %s.\nВы чувствуете поклёвку и начинаете быстро тащить что-то.\n", $material[irand ($#material + 1)], $location[irand ($#location + 1)];
if ($find_probability <= 20) {
$phrase .= sprintf 'Черт, твоя рыбка сорвалась, %s! Не беда, может потом повезет?', $name;
@@ -122,7 +122,7 @@ sub fish {
if ($success_probability <= 25) {
$phrase .= sprintf 'Ё-мое!!! А это ведь новый рекорд! Продолжай в том же духе, %s!', $name;
} else {
$phrase .= sprintf 'Извини %s, но это не новый рекорд! Однако, хорошая попытка!', $name;
$phrase .= sprintf 'Извини, %s, но это не новый рекорд! Однако, хорошая попытка!', $name;
}
return $phrase;