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

#_/_/_/_/_/_/_/_/_/_/# 
#      城鎮守備      # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub TOWN_DEF { 
 
	$ksub2=0; 
	if($ksol eq "0" || $ksol eq ""){ 
		&K_LOG("$mmonth月:兵剩下0個，無法守備。"); 
	}else{ 
		open(IN,"$DEF_LIST"); 
		@DEF_LIST = ; 
		close(IN); 
		my @NEW_DEF_LIST2=(); 
		$whit=0; 
		foreach(@DEF_LIST){ 
			($tid,$tname,$ttown_id,$ttown_flg,$tcon) = split(/<>/); 
			if("$tid" eq "$kid"){ 
			}else{ 
				push(@NEW_DEF_LIST2,"$_"); 
			} 
		} 
		unshift(@NEW_DEF_LIST2,"$kid<>$kname<>$kpos<>0<>$kcon<>\n"); 
		open(OUT,">$DEF_LIST"); 
		print OUT @NEW_DEF_LIST2; 
		close(OUT); 
		$kcex += 25; 
		&K_LOG("$mmonth月:$zname 已經在城市守備。"); 
		$klea_ex++; 
		$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,"; 
	} 
 
} 
1;