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

#_/_/_/_/_/_/_/_/# 
#      徵兵      # 
#_/_/_/_/_/_/_/_/# 
 
sub GET_SOL { 
 
	$ksub2=0; 
	if($ksol eq "$klea" && $csub eq $ksub1_ex){ 
		&K_LOG("$mmonth月:【軍事】：士兵數已達到最大量。"); 
	}elsif($kgold < $cnum * $SOL_PRICE[$csub]){ 
		&K_LOG("$mmonth月:【軍事】：手持金錢不足。"); 
	}elsif($znum < $cnum * 10){ 
		&K_LOG("$mmonth月:【軍事】：百姓人數不夠。"); 
	}elsif($zpri < int($cnum / 10)){ 
		&K_LOG("$mmonth月:【軍事】：百姓拒絕招募新兵行列。"); 
	}else{ 
		if($ksub1_ex eq $csub || $ksub1_ex eq "" && $csub eq 0){ 
			if($ksol + $cnum > $klea){ 
				$cnum = $klea - $ksol; 
			} 
			$ksol += $cnum; 
		}else{ 
			if($cnum > $klea){ 
				$cnum = $ksol; 
			} 
			$ksol = $cnum; 
		} 
		$kgat -= $cnum; 
		if($kgat < 0 ){ 
			$kgat = 0; 
		} 
		$ksub1_ex = $csub; 
		$kcex += 10; 
		$kgold -= $cnum * $SOL_PRICE[$csub]; 
		$znum -= $cnum * 5; 
		$zpri -= int($cnum / 10); 
		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月:聘請新兵 $SOL_TYPE[$ksub1_ex] 共聘 +$cnum 人。"); 
		$kstr_ex++; 
		$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,"; 
	} 
 
} 
1;