罪と罰++二律背反

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:35:48 (3029d)