www.pudn.com > NETv2.0.rar > get_sol.pl


#_/_/_/_/_/_/_/_/# 
#      挜暫      # 
#_/_/_/_/_/_/_/_/# 
 
sub GET_SOL { 
 
	if($in{'no'} eq ""){&ERR("NO:没有选择");} 
	&CHARA_MAIN_OPEN; 
	&TIME_DATA; 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	$get_sol = $klea - $ksol; 
	print <<"EOM"; 

 

 

 
 - 微 兵 -  

 

 
 

 

$kname
 
 

武力$kstr智力$kint统率力$klea
 

金钱$kgold米$krice贡献$kcex
 

所属国家$cou_name[$kcon]国家士兵$ksol训练$kgat
 

 

 

 

 
军队微兵
种类不同的兵和以前的兵将被解雇
兵每月的生活费1人吃1米 

 

 

 
雇用名字吗?(最大$kleaw人) 

 

种类攻击力防御力雇用金钱人数
 

$SOL_TYPE[0]△△钱 10
 
 
人 
 
 
 

 
 

$SOL_TYPE[1]○△钱 20
 
 
人 
 
 
 

 
 

$SOL_TYPE[2]△◎钱 30
 
 
人 
 
 
 

 
 

$SOL_TYPE[3]◎○钱 50
 
 
人 
 
 
 

 
 

 
 

 
 
 
 

 

 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;