get_man2.pl

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

#_/_/_/_/_/_/_/_/_/_/#
#        搊梡俀      #
#_/_/_/_/_/_/_/_/_/_/#

sub GET_MAN2 {

	if($in{'no'} eq ""){&ERR("NO:没有选择");}
	if($in{'num'} eq ""){&ERR("没有选择对方");}
	if(length($in{'mes'}) > 120) { &ERR("信，请用全身 60 文字以下输入."); }

	&CHARA_MAIN_OPEN;
	&COUNTRY_DATA_OPEN($kcon);
	if($kgold < 100){&ERR("钱不够");}

	$num = $in{'num'};
	$hit=0;

	open(IN,"./charalog/main/$num\.cgi") or &ERR('不用任用');
	@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]);


	open(IN,"./charalog/command/$kid.cgi");
	@COM_DATA = <IN>;
	close(IN);

	$mes_num = @COM_DATA;

	if($mes_num > $MAX_COM) { pop(@COM_DATA); }

	$add_mes = "$xname国家的使者";

	@NEW_COM_DATA=();$i=0;
	if($in{'no'} eq "all"){
		while(@NEW_COM_DATA < $MAX_COM){
				push(@NEW_COM_DATA,"$in{'mode'}<>$ename<>$ename提拔任用<>9999<>$add_mes:$in{'mes'}<>$in{'num'}<>$kcon<>\n");
		}
		$no = $in{'no'};
	}else{
		foreach(@COM_DATA){
			($cid,$cno,$cname,$ctime,$csub,$cnum,$cend) = split(/<>/);
			if($i eq $in{'no'}){
				push(@NEW_COM_DATA,"$in{'mode'}<>$ename<>$ename提拔任用<>9999<>$add_mes:$in{'mes'}<>$in{'num'}<>$kcon<>\n");
			}else{
				push(@NEW_COM_DATA,"$_");
			}
			$i++;
		}
		$no = $in{'no'} + 1;
	}
	open(OUT,">./charalog/command/$kid.cgi") or &ERR('打不开文件');
	print OUT @NEW_COM_DATA;
	close(OUT);

	&HEADER;

	print <<"EOM";
<CENTER><hr size=0><h2>NO:$no在$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;