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

#_/_/_/_/_/_/_/_/# 
#      鍛鍊      # 
#_/_/_/_/_/_/_/_/# 
 
sub TANREN { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&TIME_DATA; 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	foreach(@no){ 
		$no_list .= "" 
	} 
	$get_sol = $klea - $ksol; 
	print <<"EOM"; 
 
 
 
 - 鍛 鍊 -  
 
 
	 
 
 
 
 
$kname
 
 
武力
$kstr
智力
$kint
統率力
$klea
 
金
$kgold
米
$krice
貢獻
$kcex
 
所屬國
$cou_name[$kcon]國
兵士
$ksol
訓練
$kgat
 
 
 
 
 
鍛鍊能力經驗，50G必要。
經驗達到一定程度\能\力將會提升 
 
 
 
 
防刷機制剩下秒
 
 
你想要鍛鍊哪種\能\力\呢？ 
 
 
武力 
智力 
統率力 
 
$no_list 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;