GetBELucky の虫を取ったつもり。↓

何かあったら、ここでしらせてください。

488 名前： ◆MUMUMUhnYI [sage] 投稿日：2006/07/24(月) 13:07:43.42 ID:UWjMxjQ30 ?BRZ
#############################################################################
# BE による「ラッキー賞」判定
# 引数: $GB
# 戻り値: 1: ラッキー賞、0: はずれ
#############################################################################
sub GetBELucky
{
my ($GB) = @_;
my $ppp = 0;

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

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

return 0;
}


489 名前： ◆MUMUMUhnYI [sage] 投稿日：2006/07/24(月) 13:11:11.68 ID:UWjMxjQ30 ?BRZ
# 060724 GetBELucky の虫取り by む

配布済。