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

#_/_/_/_/_/_/_/_/# 
#      彂愋      # 
#_/_/_/_/_/_/_/_/# 
 
sub DEF_BUY { 
 
	if($in{'no'} eq ""){&ERR("NO:没有选择");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&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
 
 
 
 
 
这里的全是好书,不好不要钱.
 
 
 
 
 
 
EOM 
 
	open(IN,"$PRO_LIST") or &ERR('打不开文件.'); 
	@PRO_DATA = ; 
	close(IN); 
 
	$list = ""; 
	$s_i=0; 
	foreach(@PRO_DATA){ 
		($armname,$armval,$armdmg,$armwei,$armele,$armsta,$armclass,$armtownid) = split(/<>/); 
		if($armtownid eq 0){ 
			$list .= ""; 
		} 
		$s_i++; 
	} 
 
 
print <<"EOM"; 
$list 
选择
名称
价格
效果
$armname
金钱 $armval
$armdmg
 
 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;