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

#_/_/_/_/_/_/_/_/# 
#      賣買      # 
#_/_/_/_/_/_/_/_/# 
 
sub BUY { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN($kpos); 
	&COUNTRY_DATA_OPEN($kcon); 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	$get_sol1 = $kgold; 
	$get_sol2 = $krice; 
	if($get_sol1 > 3000){ 
		$get_sol1 = 3000; 
	} 
	if($get_sol2 > 3000){ 
		$get_sol2 = 3000; 
	} 
	foreach(@no){ 
		$no_list .= "" 
	} 
 
	$sou1 = $zsouba*100; 
	$sou2 = int((2.0-$zsouba)*100); 
 
 
	print <<"EOM"; 
	 
	 
	 
 
		 
 
 
 
 - 米倉中心 -  
 
 
 
 
$kname
 
 
武力
$kstr
智力
$kint
統率力
$klea
 
金
$kgold
米
$krice
貢獻
$kcex
 
所屬國
$cou_name[$kcon]國
兵士
$ksol
訓練
$kgat
 
 
 
 
 
歡迎光臨。
這邊是米跟金的交換場所。
現在的行情是
 
米100 兌換成金錢$sou1
 
金100 兌換成米$sou2
 
 
買賣東西。
一回合交換最大金額3000金。
您要交換嗎？ 
 
 
 
 
防刷機制剩下秒
 
 
\[賣米\]
 
 
米 
$no_list 
 
 
 
 
\[賣金\]
 
 
金 
$no_list 
 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;