ラッキー賞判定は、これで配布するです。

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

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

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

return 0;
}