罪罰/武具レベルの変更点

追加された行はこの色です。
削除された行はこの色です。
罪罰/武具レベルへ行く。
[[罪罰改造]]

*武器にレベルを持たせる [#gfa9236b]
**変数dg_lvを追加 ./inc/ore_sub-system.cgi [#b3d556af]
-罪罰/変数の追加を参照のこと
+まずはハッシュの読み込み
 sub hash_data{
  $dg_lv = $DAT{'dg_lv'};
+そして変数保存
$dat[0].="";の中に dg_lv;$dg_lv を追加します

**画面表示 [#eeb8e862]
+UAグラフをアップさせる
 $dg_y = $dg_data[$dg_a][4]+$dg_lv; # 武具レベルを追加
+$dg_data[$dg_a]と$dg_cntのとなりあたりとか、好きなところにレベル表示（$dg_lv）を追加します
 $dg_data[$dg_a][1] $dg_cnt lv.$dg_lv

*戦闘効果 [#i333d26a]
 #-------------------------------------------------------------------------------
 #戦闘処理
 sub bt_cm {
        $layout_flag=1;
 
        $ua_a   = $ua+$dg_data[$dg_a][4]+$dg_lv;        # $uaに武具値付加
        $ud_a   = $ud+$df_data[$df_a][4];       # $udに防具値付加

*武器屋でのレベルアップと修理 [#b0db54ae]
**武器屋メニューに修理を増やす [#y9d91849]
 $log2 .=qq|<select name="cmd" size="1">\n|;
 $log2 .=qq|<option value="0">やめる</option>\n|;
 $log2 .=qq|<option value="1">買う</option>\n|;
 $log2 .=qq|<option value="2">$dg_data[$dg_a][1]を売る</option>\n| if($dg_a>0);
 $log2 .=qq|<option value="3">$dg_data[$dg_a][1]の修理</option>\n| if($dg_a>0);
 $log2 .=qq|</select><br>\n|;

**修理処理 [#w837af02]
$tm==12を目印に以下のように修正してください

   }elsif($cmd==3){        # 武具の修理
     if($dg_a>0 && $dg_cnt<10){
       my $v = int($dg_data[$dg_a][2]*(1+$dg_lv*$dg_lv*1/10));
       $log .= qq|使い込まれた $dg_data[$dg_a][1] だな。これなら、$v\G で修理できるぞ<br>\n |;
 
       $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
       $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
       $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
       $log2 .=qq|<select name=cmd size=1>\n|;
       $log2 .=qq|<option value=0>やめる</option>\n|;
       $log2 .=qq|<option value=1>修理する</option>\n|;
       $log2 .=qq|</select><br>\n|;
       $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
       $tm=26;
     }elsif($dg_a>0){
       $log .= qq|あんたの武具はまだまだ使えるぞ。使えなくなったら持って来てくれ。新品同様にしてやるよ|;
       $tm = $cmd = 0;
       &shop_menu;
     }else{
       $log .= qq|武具を装備していないな。<br>\n|;
       $tm = $cmd = 0;
       &shop_menu;
     }
   }
 
 }elsif($tm==26){ # 修理
   my $v = int($dg_data[$dg_a][2]*(1+$dg_lv*$dg_lv*1/10));
   if($cmd<=0){
     $log .= qq|なんだやめるのかい。で、他にどうするんだ？<br>\n|;
   }elsif($gold<$v){
     $log .= qq|残念だが、お金が足りないぞ。<br>\n|;
   }elsif($cmd==1){
     $log .= qq|待たせたな。これでかなり手に馴染んだはずだ。|;
     $dg_lv++;
     $dg_cnt = $dg_data[$dg_a][3];
     $gold -= $v;
   }
   $tm = $cmd = 0;
   &shop_menu;
 
 }elsif($tm==12){#買-2
   if($cmd<=0){#消
   $log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
**購入/売却時にレベルをクリア [#y1b119e1]
レベルのクリアを２点のメッセージを目印に下の１行を追加
 $dg_lv=0;

+まず、
 $log .= "$dg_data[$_][2]Gを支払い、$dg_data[$_][1] を購入しました。<br>\n";
+つぎに
 $log .= "$dg_data[$dg_a][1] を $v G で売却しました。<br>\n";
罪罰/武具レベル の変更点
