罪罰武器装備

$dg_a          = $DAT{'dg_a'};
$dg_cnt        = $DAT{'dg_cnt'};      # 武具 回数

$dg_a1          = $DAT{'dg_a1'};
$dg_cnt1        = $DAT{'dg_cnt1'};      # 武具 回数
$dg_a2          = $DAT{'dg_a2'};
$dg_cnt2        = $DAT{'dg_cnt2'};      # 武具 回数
$dg_a3          = $DAT{'dg_a3'};
$dg_cnt3        = $DAT{'dg_cnt3'};      # 武具 回数

 dg_a;$dg_a,dg_cnt;$dg_cnt
,dg_a1;$dg_a1,dg_cnt1;$dg_cnt1
,dg_a2;$dg_a2,dg_cnt2;$dg_cnt2
,dg_a3;$dg_a3,dg_cnt3;$dg_cnt3,

$cmd    = $in{'cmd'};
$com    = $in{'com'};
$id     = $in{'id'};
$mode   = $in{'mode'};
$equip  = $in{'equip'};     # この1行を追加

    sub infomation_com{
      if($com){

              # ・・・（　省　略　）・・・

              if(length($com)>80){ &error("全角40文字までです。",1); }
              $com =~ s/\n//g;
              $info_mes=$com;
      }

      #-------------------------------------ここから追加
      # 武具の持ち替え
      if($equip ne ''){
               if($equip==1){
               my $tmp_dg_a = $dg_a;
               my $tmp_dg_cnt = $dg_cnt;
               $dg_a = $dg_a1;
               $dg_cnt = $dg_cnt1;
               $dg_a1 = $tmp_dg_a;
               $dg_cnt1 = $tmp_dg_cnt;

               } elsif ($equip==2){
               my $tmp_dg_a = $dg_a;
               my $tmp_dg_cnt = $dg_cnt;
               $dg_a = $dg_a2;
               $dg_cnt = $dg_cnt2;
               $dg_a2 = $tmp_dg_a;
               $dg_cnt2 = $tmp_dg_cnt;

               } elsif ($equip==3){
               my $tmp_dg_a = $dg_a;
               my $tmp_dg_cnt = $dg_cnt;
               $dg_a = $dg_a3;
               $dg_cnt = $dg_cnt3;
               $dg_a3 = $tmp_dg_a;
               $dg_cnt3 = $tmp_dg_cnt;

               }
       }
      #-------------------------------------ここまで追加

$log .="</table>\n";        # ←この辺を探して

# 持っている武具
if($dg_a!=""){$DG_A_0 = $dg_data[$dg_a][1]; }
if($dg_a1!=""){$DG_A_1 = $dg_data[$dg_a1][1]; }
if($dg_a2!=""){$DG_A_2 = $dg_data[$dg_a2][1]; }
if($dg_a3!=""){$DG_A_3 = $dg_data[$dg_a3][1]; }

$log.=<<EOM;        # ←この辺を探して

<form method="$method" action="$script" name="ore_">     # ←この辺を探して

装備の変更：
<select name=equip >
<option value=0 >装備：$DG_A_0</option> }
<option value=1 >[1]$DG_A_1</option>
<option value=2 >[2]$DG_A_2</option>
<option value=3 >[3]$DG_A_3</option>
</select><br>\n

$log .= "$dg_data[$_][2]Gを支払い、$dg_data[$_][1] を購入しました。<br>\n";
$gold -= $dg_data[$_][2];        # ←この辺を探して

# アイテムを持ち替える
if($dg_a3>0){
$dg_a0 = $dg_a3;
$dg_cnt0 = $dg_cnt3;
$dg_a3 = 0;
$dg_cnt3 = 0;
}
if($dg_a2>0){
$dg_a3 = $dg_a2;
$dg_cnt3 = $dg_cnt2;
$dg_a2 = 0;
$dg_cnt2 = 0;
}
if($dg_a1>0){
$dg_a2 = $dg_a1;
$dg_cnt2 = $dg_cnt1;
$dg_a1 = 0;
$dg_cnt1 = 0;
}
if($dg_a>0){
$dg_a1 = $dg_a;
$dg_cnt1 = $dg_cnt;
$dg_a = 0;
$dg_cnt = 0;
}
if($dg_a1==0 && $dg_a0>0){
$dg_a1=$dg_a0;
$dg_cnt1=$dg_cnt0;
}
$dg_a = $_;
$dg_cnt = $dg_data[$_][3];