cyuusei.pl

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

#_/_/_/_/_/_/_/_/_/#
#      崙曄峏      #
#_/_/_/_/_/_/_/_/_/#

sub CYUUSEI {

	if($in{'cyuu'} eq "") { &ERR("没有输入文字"); }
	if ($in{'cyuu'} =~ m/[^0-9]/){&ERR("数字以外包含文字."); }
	if($in{'cyuu'} < 0 || $in{'cyuu'} > 100 ) { &ERR("0～100之间输入."); }


	$cyuu = $in{'cyuu'};
	&CHARA_MAIN_OPEN;
	&COUNTRY_DATA_OPEN($kpos);

	&TIME_DATA;

	$kbank = $cyuu;
	$res_mes = "$kname忠诚度$cyuu设定.";

	&CHARA_MAIN_INPUT;
	&HEADER;

	print <<"EOM";
<CENTER><hr size=0><h2>$res_mes</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;