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

#_/_/_/_/_/_/_/_/_/_/# 
#      技術開發      # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub TEC { 
 
	$ksub2=0; 
	if($kgold<50){ 
		&K_LOG("$mmonth月:由於手持金錢不足不能實行。"); 
	}else{ 
		$ztecadd = int(($kint+$kprodmg)/20 + rand(($kint+$kprodmg)) / 40); 
		$zsub1 += $ztecadd; 
		$kgold -= 50; 
		if($zsub1 > 999){ 
			$zsub1 = 9999; 
		} 
		$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開發技術提升 +$ztecadd 點。"); 
		$kint_ex++; 
		$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,"; 
	} 
 
} 
1;