www.pudn.com > sangoku_26_zh_tw.rar > get_man2.pl

#_/_/_/_/_/_/_/_/_/_/# 
#      挖角武將２    # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub GET_MAN2 { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	if($in{'num'} eq ""){&ERR("對像沒有輸入。");} 
	if(length($in{'mes'}) > 120) { &ERR("秘密信件輸入 全形60個文字以下。"); } 
 
	&CHARA_MAIN_OPEN; 
	&COUNTRY_DATA_OPEN($kcon); 
	if($kgold < 100){&ERR("手持金錢不足。");} 
	require 'ini_file/com_list.ini'; 
 
	$num = $in{'num'}; 
	$hit=0; 
 
	open(IN,"./charalog/main/$num\.cgi") or &ERR('被挖角武將不爽去那個國家。'); 
	@E_DATA = ; 
	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 = ; 
	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(/<>/); 
			$ahit=0; 
			foreach(@no){ 
				if($i eq $_){ 
					$ahit=1; 
					push(@NEW_COM_DATA,"$in{'mode'}<>$ename<>$ename 挖角武將<>9999<>$add_mes:$in{'mes'}<>$in{'num'}<>$kcon<>\n"); 
					$lno = $_ + 1; 
					$no .= "$lno,"; 
				} 
			} 
			if(!$ahit){ 
				push(@NEW_COM_DATA,"$_"); 
			} 
			$i++; 
		} 
	} 
	open(OUT,">./charalog/command/$kid.cgi") or &ERR('沒開啟文件。'); 
	print OUT @NEW_COM_DATA; 
	close(OUT); 
 
	&HEADER; 
 
	print <<"EOM"; 
行程：$no 回合已經輸入挖角 $ename 武將完成。
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;