ラッキー賞の暫定版は、こんなかんじですかね。

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

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

if ($ppp < $user_points) { return 1; }

return 0;
}