ちなみに判定部分はこんなかんじです。シンプルにってかんじで。
ねるねるねるね。

619 名前: ◆MUMUMUhnYI [sage] 投稿日:2006/07/30(日) 05:44:21.75 ID:WYo62ifK0 ?PLT(10017)
#############################################################################
# BE による「ポイント特典(ラッキー賞)」判定
# 引数: $GB
# 戻り値: 1: ポイント特典、0: はずれ
#############################################################################
sub GetBELucky
{
my ($GB) = @_;

# SOL と DIA は無条件で 1
if($GB->{BEelite} eq "SOL") { return 1; }
if($GB->{BEelite} eq "DIA") { return 1; }

# PLT は 2/3 の確率で 1
if($GB->{BEelite} eq "PLT")
{
if(rand(3) < 2) { return 1; }
return 0;
}

# BRZ は 1/3 の確率で 1
if($GB->{BEelite} eq "BRZ")
{
if(rand(3) < 1) { return 1; }
return 0;
}

# それ以外は常に 0
return 0;
}