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

#_/_/_/_/_/_/_/_/_/_/# 
#       仕  官       # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub SHIKAN { 
 
	$ksub2=0; 
	&COUNTRY_DATA_OPEN($kcon); 
	if($xcid eq 0){ 
		if($cou_name[$cnum] eq ""){ 
			&K_LOG("$mmonth月:那個國家說~不爽給你仕官。"); 
		}else{ 
			if(@B_LIST eq "0"){ 
				open(IN,"$LOG_DIR/black_list.cgi"); 
				@B_LIST = ; 
				close(IN); 
			} 
			$b_hit=0; 
			foreach(@B_LIST){ 
				($bid,$bcon,$bname,$bsub) = split(/<>/); 
				if($bid eq $kid && $bcon eq $kcon){ 
					$b_hit=1; 
				} 
			} 
			if($b_hit){ 
				&K_LOG("$mmonth月:$cou_name[$cnum] 仕官要求被拒絕了"); 
			}else{ 
				$kcon = $cnum; 
				&K_LOG("$mmonth月:$cou_name 在 [$cnum] 仕官了。"); 
				&MAP_LOG("$mmonth月:$kname 在 $cou_name[$cnum] 仕官了。"); 
			} 
		} 
	}else{ 
		&K_LOG("$mmonth月:你不是在野不能被仕官。"); 
	} 
 
} 
1;