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

#_/_/_/_/_/_/_/_/_/_/# 
#      建築城牆      # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub SHIRO { 
 
	$ksub2=0; 
	if($kgold<50){ 
		&K_LOG("$mmonth月:由於手持金錢不足不能實行。"); 
	}else{ 
		$zshiroadd = int(($kint+$kprodmg)/20 + rand(($kint+$kprodmg)) / 40); 
		$zshiro += $zshiroadd; 
		$kgold -= 50; 
		if($zshiro > $zshiro_max){ 
			$zshiro = $zshiro_max; 
		} 
		$kcex += 30; 
		if("$zname" ne ""){ 
			splice(@TOWN_DATA,$kpos,1,"$zname<>$zcon<>$znum<>$znou<>$zsyo<>$zshiro<>$znou_max<>$zsyo_max<>$zshiro_max<>$zpri<>$zx<>$zy<>$zsouba<>$zdef_att<>$zsub1<>$zsub2<>$z[0]<>$z[1]<>$z[2]<>$z[3]<>$z[4]<>$z[5]<>$z[6]<>$z[7]<>\n"); 
		} 
		&K_LOG("$mmonth月:$znameソ城壁メ+$zshiroadd點。"); 
		$kint_ex++; 
		$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,"; 
	} 
 
} 
1;