罪罰道具装備

$di_a[1]        = $DAT{'di_a1'};
$di_a[2]        = $DAT{'di_a2'};
$di_a[3]        = $DAT{'di_a3'};

$dat[0].="di_a1;$di_a[1],di_a2;$di_a[2],di_a3;$di_a[3],";

$eq_di          = $in{'eq_di'}; # 装備する道具

if($eq_di){
  my $tmp_di_a = $di_a;
  my $tmp_di_cnt = $di_cnt;
  if($eq_di>0){
    $di_a = $di_a[$eq_di];
    $di_cnt = $di_cnt[$eq_di];
    $di_a[$eq_di] = $tmp_di_a;
    $di_cnt[$eq_di] = $tmp_di_cnt;
  }
}

my $table_di=qq|<select name="eq_di" >|;
$table_di.=qq|<option value="0" >$di_data[$di_a][1]</option>\n|;
for($i=1;$i<4;$i++){
$table_di.=qq|<option value="$i" >|;
$table_di.=qq|$di_data[$di_a[$i]][1]</option>\n|;
}
$table_di.=qq|</select>|;

道具の変更：
$table_di　に持ち替える<br><br>\n
<input type=text name="com" class="button2" style="width:360px">
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア"  class="button2" style="width:40px">
<br>

# 道具を持ち替える
for($i=3;$i>0;$i--){
  if($di_a[$i]>0){
    $di_a[$i+1]=$di_a[$i];
    $di_cnt[$i+1]=$di_cnt[$i];
    $di_a[$i]=0;
    $di_cnt[$i]=0;
  }
}
if($di_a[1]==0){
  $di_a[1]=$di_a[4];
  $di_cnt[1]=$di_cnt[4];
}
if($di_a>0){
  $di_a[1]=$di_a;
  $di_cnt[1]=$di_cnt;
}