罪罰/武具レベル

1. sub hash_data{
    $dg_lv = $DAT{'dg_lv'};

1. $dg_y = $dg_data[$dg_a][4]+$dg_lv; # 武具レベルを追加

2. $dg_data[$dg_a][1] $dg_cnt lv.$dg_lv

#-------------------------------------------------------------------------------
#戦闘処理
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に防具値付加

$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|;

  }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";

$dg_lv=0;

1. $log .= "$dg_data[$_][2]Gを支払い、$dg_data[$_][1] を購入しました。<br>\n";

2. $log .= "$dg_data[$dg_a][1] を $v G で売却しました。<br>\n";