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

#_/_/_/_/_/_/_/_/# 
#      挖角      # 
#_/_/_/_/_/_/_/_/# 
 
sub GET_MAN { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&COUNTRY_DATA_OPEN("$kcon"); 
	require 'ini_file/com_list.ini'; 
 
	$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]; 
	foreach(@no){ 
		$no_list .= "" 
	} 
 
	&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 
 
 
$no_list 

密書：
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;