>>112
#############################################################################
# BE による「ラッキー賞」判定
# 引数: $GB
# 戻り値: 1: ラッキー賞、0: はずれ
#############################################################################
sub GetBELucky
{
my ($GB) = @_;
my $ppp = 0;

$ppp = ($GB->{NOWMICROTIME} + $GB->{BEpoints} * 7) % 10800;

if ($ppp < $GB->{BEpoints}) { return 1; }

return 0;
}

入れてみた。

>>114
なるほど。

いくつぐらいがいいのかしら。やっぱり 107?
どうも、素数がいいっぽいということみたいですが。