# 降伏 }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; |