diff --git a/modules/Werewolf.pm b/modules/Werewolf.pm
index d2114c4..3f20c21 100644
--- a/modules/Werewolf.pm
+++ b/modules/Werewolf.pm
@@ -1239,7 +1239,7 @@ sub _judgment {
 sub _calclvn {
     my $pc = keys %PLAYERS;
     $pc -= scalar @SHOT;
-    $LVOTEN = int(rand($pc+1) / 2 + 1);
+    $LVOTEN = int($pc + 1 / 2 + 1);
 
     return 1;
 }