From 5d0fe793fd714f45541e641b97e0f01ca0dced9d Mon Sep 17 00:00:00 2001 From: eleksir Date: Mon, 8 Feb 2021 13:46:13 +0300 Subject: [PATCH] fisher.pm: there can be not just water --- lib/fisher.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/fisher.pm b/lib/fisher.pm index 940b1b9..69d5627 100644 --- a/lib/fisher.pm +++ b/lib/fisher.pm @@ -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;