www.pudn.com > NETv2.0.rar > get_man.pl

#_/_/_/_/_/_/_/_/# 
#      搊梡      # 
#_/_/_/_/_/_/_/_/# 
 
sub GET_MAN { 
 
	if($in{'no'} eq ""){&ERR("NO:没有输入");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&COUNTRY_DATA_OPEN("$kcon"); 
 
	$dir="./charalog/main"; 
	opendir(dirlist,"$dir"); 
	while($file = readdir(dirlist)){ 
		if($file =~ /\.cgi/i){ 
			if(!open(page,"$dir/$file")){ 
				&ERR("文件错误"); 
			} 
			@page = ; 
			close(page); 
			push(@CL_DATA,"@page
"); 
		} 
	} 
	closedir(dirlist); 
 
	@tmp = map {(split /<>/)[10]} @CL_DATA; 
	@CL_DATA = @CL_DATA[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	$get_sol = $klea - $ksol; 
	print <<"EOM"; 
 
 
 
 - 登 录 -  
 
 
 
 
$kname
 
 
武力
$kstr
智力
$kint
统率力
$klea
 
金钱
$kgold
米
$krice
贡献
$kcex
 
所属国家
$cou_name[$kcon]国家
士兵
$ksol
训练
$kgat
 
 
 
 
 
任用其他国家的武将
任用钱100金
(用全角输入60字以内) 
 
 
 
 
【选择对方】
 
= 名字 : 武力 : 智力 : 统率力(忠诚) = 
EOM 
 
	foreach(@COU_DATA){ 
		($xccid,$xcname,$xcele,$xcmark,$xcking,$xcmes,$xcsub,$xcpri)=split(/<>/); 
		$cou_king[$xccid] = "$xcking"; 
	} 
 
	$con_l2 = "=== 无国家 ===\n"; 
	foreach(@CL_DATA) { 
		($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(/<>/); 
		if($eid eq $kid) { next; } 
		if($econ eq $kcon) { next; } 
		if($cou_name[$econ] eq ""){ 
			$con_l2 .= "$ename : $estr : $eint : $elea \($ebank\)\n"; 
			next; 
		} 
		if($wcon ne $econ){ 
			$con_l .= "=== $cou_name[$econ] ===\n"; 
		} 
		$wcon = $econ; 
		if($cou_king[$econ] eq $eid){next;} 
		$con_l .= "$ename : $estr : $eint : $elea \($ebank\)\n"; 
	} 
 
print <<"EOM"; 
$con_l 
$con_l2 
 
 
 

机密文件 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;