!!!{{category SOS2改造}}洋ゲー風、拾得アイテム強化プログラム

!!概要
探索で拾得できるアイテムに自動でマジック効果が”付属したように見える”プログラムです。
TRPGなどの洋ゲー風に「凡庸な剣+1」「凡庸な剣+2」みたよう名称変更されます。

!!改造
!1. ファイルをダウンロードします
*{{ref add_magic.pl}}

!2. 設定の変更

DLしたファイルを編集し、設定項目を任意に変更します。
デフォルトでは以下のようになっています――

 $dny_idt = 'Li'; # 強化を禁止する略字
 
 $add_iak = 'Ax|Bw|Gv|Kn|Kt|Mi|Sw|Wd'; # $iak を強化する略字
 $add_idd = 'Ar|Sh';                   # $idd を強化する略字
 $add_iad = 'Jw';                      # $iak,$idd を強化する略字
 
 $pc_rate = 10; # 強化値に対する価格変動 +n倍率（この場合+1強化で+10Gの付加価値）
 @add_idt = (0,0,0,0,1,1,1,2,2,3); # 強化値（この場合+3が10%、+2が20%、+1が30%の確立になります、分率は適当で構いません）

!3. # Sub Find Item # の修正

 if ($idt !~ /Gl/) { push(@items,"$inm△$idt"); &joinitem('i') }

の部分に一行追加します。

 if ($idt !~ /Gl/) { require './add_magic.pl'; ($inm,$idt) = &add_magic("$inm","$idt") } # この行
 if ($idt !~ /Gl/) { push(@items,"$inm△$idt"); &joinitem('i') }

以上で導入は終了です。
至極簡単ですが、リクワイアのファイルパスを間違えないよう注意が必要です。

!!機能拡張

:食料も強化しちゃう:
$add_iak に「Fd」を追加するだけです、チキン+1の完成です：ｐ

:マイナス方向へ強化したい:
@add_idt へマイナスの数値を設定するだけです。
やりすぎると最低価格がマイナスになります、その辺は良い塩梅に調節してください：）

:+5以上でレアアイテムに:
WIZ#2KODのロングソード+5ですか、そうですか：）
 $pc = $add * $pc_rate + $pc;
の下に
 $sts .= 'Li' if $add >= 5;

:Ultima Online 風に名称変更:
 名称設定
 @add_nm_w = ('','of Ruin','of Might','of Force','of Power','of Vanquishing');                     # 武器
 @add_nm_a = ('','of Defence','of Guarding','of Harding','of Fortification','of Invulnerability'); # 防具
名称設定を追加します。

 $new_inm = "$_[0]" . '+' . "$add";
の下へ2行追加します。
 $new_inm = "$_[0]" . '+' . "$add"; # ↓2行
 $new_inm = "$_[0]" . "$add_nm_w[$add]" if $_[1] =~ /$add_iak/; # $iak強化を武器限定とした場合
 $new_inm = "$_[0]" . "$add_nm_a[$add]" if $_[1] =~ /$add_idd/; # $idd強化を防具限定とした場合

マイナス方向へ強化し、かつ名称変更を行う場合、浮動的に演算を行うことで対処しましょう。
 @add_nm_w = ('-2の名前','-1','0','1','2','3');
このような場合、最低値である $add = -2 を、名称付加時のみ $add = 0 と考えます。
 $add_ = $add + 2;
 $new_inm = "$_[0]" . "$add_nm_w[$add_]" if $_[1] =~ /$add_iak/;
このようになります。

*[[Script Of Saga II Worlds Apart|SOSIIを分割しよう]] でのみ動作確認を行いました
*機能拡張の方は動作未確認です……＊smile＊

!!!このページのコメント
*ちなみに他の改造と非干渉だお - Pse (2007年07月13日 22時00分22秒)