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

#_/_/_/_/_/_/_/_/# 
#      武器      # 
#_/_/_/_/_/_/_/_/# 
 
sub ARM_BUY { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&TIME_DATA; 
	open(IN,"$ARM_LIST"); 
	@ARM_DATA = ; 
	close(IN); 
	($armname,$armval,$armdmg,$armwei,$armele,$armsta,$armclass,$armtownid) = split(/<>/,$ARM_DATA[$karm]); 
	$armval = ($armval * 0.6); 
	if($kvsub2 eq 0){$armval = int($armval / 10);} 
	&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
 
 
 
 
 
武器購買。在
這兒賣著很少能見面的貴重的武器喲。
現在 $kname 身上的裝備有 $armname 可賣出 $armval金，
目前已經將 $armname 卸下來喲。
有什麼需要的服務可以幫忙呢。
 
 
 
 
 
防刷機制剩下秒
 
 
 
 
EOM 
 
	open(IN,"$ARM_LIST") or &ERR('沒開啟文件。'); 
	@ARM_DATA = ; 
	close(IN); 
 
	$list = ""; 
	$s_i=0; 
	foreach(@ARM_DATA){ 
		($armname,$armval,$armdmg,$armwei,$armele,$armsta,$armclass,$armtownid) = split(/<>/); 
		if($armtownid eq 0){ 
			if($kvsub2 eq 0){$armval = int($armval / 10);} 
			$list .= ""; 
		} 
		$s_i++; 
	} 
 
 
print <<"EOM"; 
$list 
選擇
名稱
價值
威力
$armname
金 $armval
$armdmg
 
$no_list 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;