402 :
root▲ ★:
# 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;