king_com3.pl

来自「三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具」· PL 代码 · 共 41 行

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

sub KING_COM3 {

	if($in{'sel'} eq ""){&ERR("任命没有选择对方.");}
	&CHARA_MAIN_OPEN;
	&COUNTRY_DATA_OPEN("$kcon");
	&TIME_DATA;

	open(IN,"./charalog/main/$in{'sel'}.cgi") || &ERR("ID不存在.");
	@E_DATA = <IN>;
	close(IN);

	($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/,$E_DATA[0]);

	if($econ ne $kcon){
		&ERR("不同的国家.");
	}

	$xsub = $eid;
	&COUNTRY_DATA_INPUT;
	&HEADER;

	print <<"EOM";
<CENTER><hr size=0><h2>军师$ename任命的.</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;