king_com2.pl

来自「三国志web游戏 v2.0源码； 三国志web游戏 v2.0源码」· PL 代码 · 共 38 行

#_/_/_/_/_/_/_/_/_/_/#
#        挜暫俀      #
#_/_/_/_/_/_/_/_/_/_/#

sub KING_COM2 {

	if($in{'mes'} eq ""){&ERR("没有选择指令.");}
	if(length($in{'mes'}) > 100) { &ERR("信，请用全身 50 文字以下输入."); }
	&CHARA_MAIN_OPEN;
	&COUNTRY_DATA_OPEN($kcon);
	if($xking ne $kid && $xsub ne $kid){&ERR("君主不能实行.");}

	if($xking eq $kid){
		$add = "君主";
	}elsif($xsub eq $kid){
		$add = "军师";
	}

	$xmes = "$in{'mes'}($add:$kname更新)";
	&COUNTRY_DATA_INPUT;

	&HEADER;

	print <<"EOM";
<CENTER><hr size=0><h2>输入的指令</h2><p>
<form action="$FILE_STATUS" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=STATUS>
<input type=submit value="决定"></form></CENTER>
EOM

	&FOOTER;

	exit;

}
1;