############## レベルアップ時に2以上STが上がるようにする改造 ########################## 〇レベルアップで1度に上がるステータスを1〜3にする改造です。  職業を導入している場合にも対応しています。 ############################################################################## @sub4の422行目の sub BONUS{"   $_[0]がわずかにアップ。
";} ------------を↓これ↓に置き換えてください---------------------------------------------------- sub BONUS{"   $_[0]アップ。
";} ##################################################################### Asub4の427行目の $BoAt=$BoSp=$BoDe=$BoAg=5; if ($PL_VALUES[4] == 1){$BoAt=20;} elsif ($PL_VALUES[4] == 2){$BoDe=20;} elsif ($PL_VALUES[4] == 3){$BoSp=20;} elsif ($PL_VALUES[4] == 4){$BoAg=20;} elsif ($PL_VALUES[4] == 0){$BoAt=$BoSp=$BoDe=$BoAg=9;} if (rand(22) < $BoAt && $PL_VALUES[19] < $StatusMax){print &BONUS('攻撃力');$PL_VALUES[19]++;} if (rand(22) < $BoDe && $PL_VALUES[20] < $StatusMax){print &BONUS('防御力');$PL_VALUES[20]++;} if (rand(22) < $BoSp && $PL_VALUES[21] < $StatusMax){print &BONUS('スピード');$PL_VALUES[21]++;} if (rand(22) < $BoAg && $PL_VALUES[22] < $StatusMax){print &BONUS('命中力');$PL_VALUES[22]++;} --------------を↓これ↓に置き換えてください。------------------------------------------------------------------ $BoAt=$BoSp=$BoDe=$BoMt=$BoIn=$BoMd=5; if ($PL_VALUES[4] == 1){$BoAt=10;} elsif ($PL_VALUES[4] == 2){$BoDe=10;} elsif ($PL_VALUES[4] == 3){$BoSp=10;} elsif ($PL_VALUES[4] == 4){$BoMt=10;} elsif ($PL_VALUES[4] == 0){$BoAt=$BoSp=$BoDe=$BoMt=3;} if($BoAt + rand(20) >= 30 && $PL_VALUES[19]+2 < $StatusMax){print &BONUS('攻撃力が3');$PL_VALUES[19]+=3;} elsif($BoAt + rand(20) >= 18 && $PL_VALUES[19]+1 < $StatusMax){print &BONUS('攻撃力が2');$PL_VALUES[19]+=2;} elsif($BoAt + rand(20) >= 12 && $PL_VALUES[19] < $StatusMax){print &BONUS('攻撃力が1');$PL_VALUES[19]++;} if($BoDe + rand(20) >= 30 && $PL_VALUES[20]+2 < $StatusMax){print &BONUS('防御力が3');$PL_VALUES[20]+=3;} elsif($BoDe + rand(20) >= 18 && $PL_VALUES[20]+1< $StatusMax){print &BONUS('防御力が2');$PL_VALUES[20]+=2;} elsif($BoDe + rand(20) >= 12 && $PL_VALUES[20] < $StatusMax){print &BONUS('防御力が1');$PL_VALUES[20]++;} if($BoSp + rand(20) >= 30 && $PL_VALUES[21]+2 < $StatusMax){print &BONUS('スピードが3');$PL_VALUES[21]+=3;} elsif($BoSp + rand(20) >= 18 && $PL_VALUES[21]+1< $StatusMax){print &BONUS('スピードが2');$PL_VALUES[21]+=2;} elsif($BoSp + rand(20) >= 12 && $PL_VALUES[21] < $StatusMax){print &BONUS('スピードが1');$PL_VALUES[21]++;} if($BoMt + rand(20) >= 30 && $PL_VALUES[22]+2 < $StatusMax){print &BONUS('命中力が3');$PL_VALUES[22]+=3;} elsif($BoMt + rand(20) >= 18 && $PL_VALUES[22]+1< $StatusMax){print &BONUS('命中力が2');$PL_VALUES[22]+=2;} elsif($BoMt + rand(20) >= 12 && $PL_VALUES[22] < $StatusMax){print &BONUS('命中力が1');$PL_VALUES[22]++;} ############################################################################################################ B職業によって上がり方を変える場合は、Aの改造に職業による補正を加えます。 elsif ($PL_VALUES[4] == 0){$BoAt=$BoSp=$BoDe=$BoMt=3;} -------------------------↓ここ↓------------------------------------------------------------------ 例) if ($PL_VALUES[40]==1){$BoAt += 6;} elsif($PL_VALUES[40]==2){$BoDe += 6;} elsif($PL_VALUES[40]==3){$BoMt += 6;} elsif($PL_VALUES[40]==4){$BoSp += 6;} elsif($PL_VALUES[40]==5){$BoMt += 3;$BoSp += 3;} elsif($PL_VALUES[40]==6){$BoAt += 3;$BoDe += 3;} ・ ・ ・ ・ -------------------------↑ここ↑------------------------------------------------------------------- if($BoAt + rand(20) >= 30 && $PL_VALUES[19]+2 < $StatusMax){print &BONUS('攻撃力が3');$PL_VALUES[19]+=3;} ############################################################################################################# 上記のものはあくまで例です。バランスのほうは色々試してみて上がり方など調整するようにしてください。