エブセ[特殊能力ランダム]

特殊能力がランダム


｜追加箇所説明｜

どの特殊能力よりも上で、武器のデータ取得よりも下の場所。

｜追加改造｜

#特殊能力ランダム
if($Pl_W[7] =~ m/★/){
my@spw=('特殊能力のID');
my$syuw='';
for(my$tk=0;$tk<3;$tk++){my$spw=$spw[int(rand($#spw))];
if($Pl_W[7] !~ m/$spw/ && $syuw !~ m/$spw/){$syuw.=$spw;}else{$tk--;}
}
$Pl_W[7].=$syuw;}

　[説明]
武器取得を利用した改造。
違う特殊能力を3つ取得して既にある特殊能力に付加する。
そのため、'特殊能力のID'の部分は4つ以上でないと意味がない。
3つの場合はそのまま「$Pl_W[7].='特殊能力のID（3つ）'」とすればよい。
ただし注意が必要で、既存の特殊能力も含め、IDが3つ取得できない状態だと無限ループになってしまうと思います。
そんな場合は、forの条件を「(my$tk=0;$tk<20;$tk++)」とし、「else{$tk--;}」を「elsif(length($syuw)==3){last;}」等とすればいいかと。。
この場合、0～3つの特殊能力を取得します。