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

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

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