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

#_/_/_/_/_/_/_/_/# 
#      攧攦      # 
#_/_/_/_/_/_/_/_/# 
 
sub BUY { 
 
	if($in{'no'} eq ""){&ERR("NO:没有选择.");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN($kpos); 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	$get_sol1 = int($kgold * $zsouba); 
	$get_sol2 = int($krice / $zsouba); 
	if($get_sol1 > 3000){ 
		$get_sol1 = 3000; 
	} 
	if($get_sol2 > 3000){ 
		$get_sol2 = 3000; 
	} 
 
	print <<"EOM"; 
 
 
 
 - 米·钱交易 -  
 
 
 
 
$kname
 
 
武力
$kstr
智力
$kint
统率力
$klea
 
金钱
$kgold
米
$krice
贡献
$kcex
 
所属国家
$cou_name[$kcon]国家
士兵
$ksol
训练
$kgat
 
 
 
 
 
欢迎光临
这里是交换米和钱的场所
现在的行情是 1 钱对米$zsouba是
1 次的交易能买卖的最大 3000 到是.
要交换多少? 
 
 
 
买米的: 
 
米 
 
 
 
 
 
用米换钱的: 
 
金钱 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;