罪罰改造掲示板/43

# 降伏
}elsif($cmd==5){
  $pr=$GMT/5;$act_cnt+=10;
  $log .= "降伏文書が整いました。どこに提出しますか？<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">$cmp[1]</option>\n|;
  $log2 .=qq|<option value="2">$cmp[2]</option>\n|;
  $log2 .=qq|<option value="3">$cmp[3]</option>\n|;
  $log2 .=qq|<option value="4">$cmp[4]</option>\n|;
  $log2 .=qq|<option value="5">$cmp[5]</option>\n|;
  $log2 .=qq|</select><br>\n|;
  $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
  if(($cmd<=0)||($cmd>=6)||($camp==$cmd)){
    $log .= "あとで行うことにした。<br>\n";
    $tm = $cmd = 0;
    &politics_menu;
  }elsif(($my_cb eq $nm)&&($my_cn<=4000)&&($my_ce==0)){
    $mes = "国号を後世に存続すべく、耐え難きをー耐え、忍び難きをー忍び、今は降伏を選びます・・・";
    $act_cnt+=10;$idoucn=int($my_cn/2);
    if($cmd==1){$cn1+=$idoucn;}
    elsif($cmd==2){$cn2+=$idoucn;}
    elsif($cmd==3){$cn3+=$idoucn;}
    elsif($cmd==4){$cn4+=$idoucn;}
    elsif($cmd==5){$cn5+=$idoucn;}
    if($camp==1){$cj1=0;$shuunin1=0; $tohyoper1=$tohyonin1=0;$cn1-=$idoucn;$ce1=1;$ck1=0;}
    elsif($camp==2){$cj2=0;$shuunin2=0; $tohyoper2=$tohyonin2=0;$cn2-=$idoucn;$ce2=1;$ck2=0;}
    elsif($camp==3){$cj3=0;$shuunin3=0; $tohyoper3=$tohyonin3=0;$cn3-=$idoucn;$ce3=1;$ck3=0;}
    elsif($camp==4){$cj4=0;$shuunin4=0; $tohyoper4=$tohyonin4=0;$cn4-=$idoucn;$ce4=1;$ck4=0;}
    elsif($camp==5){$cj5=0;$shuunin5=0; $tohyoper5=$tohyonin5=0;$cn5-=$idoucn;$ce5=1;$ck5=0;}
  }else{$mes = "降伏は出来ません。";}
    $tm=55;

# 降伏
}elsif($cmd==5){
  $pr=$GMT/5;$act_cnt+=10;
  $log .= "降伏文書が整いました。どこに提出しますか？<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">$cmp[1]</option>\n|;
  $log2 .=qq|<option value="2">$cmp[2]</option>\n|;
  $log2 .=qq|<option value="3">$cmp[3]</option>\n|;
  $log2 .=qq|<option value="4">$cmp[4]</option>\n|;
  $log2 .=qq|<option value="5">$cmp[5]</option>\n|;
  $log2 .=qq|</select><br>\n|;
  $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
  $tm = 60;  # <--使ってない番号を使います

}elsif($tm==60){
  if(($cmd<=0)||($cmd>=6)||($camp==$cmd)){
    $log .= "あとで行うことにした。<br>\n";
    $tm = $cmd = 0;
    &politics_menu;
  }elsif(($my_cb eq $nm)&&($my_cn<=4000)&&($my_ce==0)){
    $mes = "国号を後世に存続すべく、耐え難きをー耐え、忍び難きをー忍び、今は降伏を選びます・・・";
    $act_cnt+=10;$idoucn=int($my_cn/2);
    if($cmd==1){$cn1+=$idoucn;}
    elsif($cmd==2){$cn2+=$idoucn;}
    elsif($cmd==3){$cn3+=$idoucn;}
    elsif($cmd==4){$cn4+=$idoucn;}
    elsif($cmd==5){$cn5+=$idoucn;}
    if($camp==1){$cj1=0;$shuunin1=0; $tohyoper1=$tohyonin1=0;$cn1-=$idoucn;$ce1=1;$ck1=0;}
    elsif($camp==2){$cj2=0;$shuunin2=0; $tohyoper2=$tohyonin2=0;$cn2-=$idoucn;$ce2=1;$ck2=0;}
    elsif($camp==3){$cj3=0;$shuunin3=0; $tohyoper3=$tohyonin3=0;$cn3-=$idoucn;$ce3=1;$ck3=0;}
    elsif($camp==4){$cj4=0;$shuunin4=0; $tohyoper4=$tohyonin4=0;$cn4-=$idoucn;$ce4=1;$ck4=0;}
    elsif($camp==5){$cj5=0;$shuunin5=0; $tohyoper5=$tohyonin5=0;$cn5-=$idoucn;$ce5=1;$ck5=0;}
  }else{$mes = "降伏は出来ません。";}

  $tm=$cmd=0;
  $call_main_st;