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

#_/_/_/_/_/_/_/_/# 
#      徵兵      # 
#_/_/_/_/_/_/_/_/# 
 
sub GET_SOL { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	require 'ini_file/com_list.ini'; 
 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN($kpos); 
	&TIME_DATA; 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	$get_sol = $klea - $ksol; 
 
	foreach(@no){ 
		$no_list .= "" 
	} 
	if("$ENV{'HTTP_REFERER'}" eq "$SANGOKU_URL/status.cgi"){  
	print <<"EOM"; 
 
	 
 
 
 
 - 聘請新兵 -  
 
 
$no_list 
 
$kname
 
 
武力
$kstr
智力
$kint
統率力
$klea
 
金
$kgold
米
$krice
貢獻
$kcex
 
所屬國
$cou_name[$kcon]國
士兵
$ksol
訓練
$kgat
 
 
 
 
 
聘請新兵。
聘請傭兵每個兵種不同，以前所雇的兵種就會被解僱。
關於士兵一人消費一米，作為每一月維持生活費。 
 
 
 
 
防刷機制剩下秒
 
 
聘請幾名士兵？(※最大$klea人數) 
 
EOM 
 
	if($zsub1 > 500){ 
print <<"EOM"; 
 
EOM 
	} 
	if($zsub1 > 1000){ 
 
print <<"EOM"; 
 
EOM 
	} 
	if($zsub1 > 100){ 
 
print <<"EOM"; 
 
EOM 
	} 
 
	if($zsub1 > 600){ 
print <<"EOM"; 
 
EOM 
	} 
	if($zsub1 > 1100){ 
 
print <<"EOM"; 
 
EOM 
	} 
if($zsub1 > 200){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 700){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 1200){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 300){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 500){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 1300){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 200){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 500){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 800){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 1100){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 1400){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 500){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 1000){ 
 
print <<"EOM"; 
 
EOM 
        } 
if($zsub1 > 1500){ 
 
print <<"EOM"; 
 
EOM 
        } 
print <<"EOM"; 
 
兵種
攻擊力
防禦力
僱用金
人數
 
$SOL_TYPE[0]
△
△
金 $SOL_PRICE[0]
 
 
人 
$no_list 
 
 
$SOL_TYPE[1]
○
△
金 $SOL_PRICE[1]
 
 
人 
$no_list 
 
 
$SOL_TYPE[2]
△
◎
金 $SOL_PRICE[2]
 
 
人 
$no_list 
 
 
$SOL_TYPE[3]
○
△
金 $SOL_PRICE[3]
 
 
人 
$no_list 
 
 
$SOL_TYPE[4]
○
△
金 $SOL_PRICE[4]
 
 
人 
$no_list 
 
 
$SOL_TYPE[5]
◎
△
金 $SOL_PRICE[5]
 
 
人 
$no_list 
 
 
$SOL_TYPE[6]
△
○
金 $SOL_PRICE[6]
 
 
人 
$no_list 
 
 
$SOL_TYPE[7]
△
○
金 $SOL_PRICE[7]
 
 
人 
$no_list 
 
 
$SOL_TYPE[8]
○
◎
金 $SOL_PRICE[8]
 
 
人 
$no_list 
 
 
$SOL_TYPE[9]
◎
△
金 $SOL_PRICE[9]
 
 
人 
$no_list 
 
 
$SOL_TYPE[10]
◎
△
金 $SOL_PRICE[10]
 
 
人 
$no_list 
 
 
$SOL_TYPE[11]
◎
△
金 $SOL_PRICE[11]
 
 
人 
$no_list 
 
 
$SOL_TYPE[12]
◎
△
金 $SOL_PRICE[12]
 
 
人 
$no_list 
 
 
$SOL_TYPE[13]
◎
△
金 $SOL_PRICE[13]
 
 
人 
$no_list 
 
 
$SOL_TYPE[14]
◎
△
金 $SOL_PRICE[14]
 
 
人 
$no_list 
 
 
$SOL_TYPE[15]
◎
△
金 $SOL_PRICE[15]
 
 
人 
$no_list 
 
 
$SOL_TYPE[16]
◎
△
金 $SOL_PRICE[16]
 
 
人 
$no_list 
 
 
$SOL_TYPE[17]
◎
△
金 $SOL_PRICE[17]
 
 
人 
$no_list 
 
 
$SOL_TYPE[18]
◎
△
金 $SOL_PRICE[18]
 
 
人 
$no_list 
 
 
$SOL_TYPE[19]
◎
△
金 $SOL_PRICE[19]
 
 
人 
$no_list 
 
 
 
 
 
	 
 
 
 
 
 
 
 
 
 
 
EOM 
	}else{ 
print <<"EOM"; 
- 聘請新兵 - 
 
[$kname]
 
金:$kgold
 
米:$krice
 
士兵:$ksol
 
訓練:$kgat
 
 
聘請幾名士兵？(※最大聘請 $klea 人數)

 
兵種:攻擊力:防禦力:僱用金:人數

 
$SOL_TYPE[0]:△:△:金 $SOL_PRICE[0]:
 
 
人 
 
 
 
 
EOM 
 
	if($zsub1 > 100){ 
print <<"EOM"; 
 
$SOL_TYPE[1]:○:△:金 $SOL_PRICE[1]:
 
 
人 
 
 
 
 
EOM 
	} 
	if($zsub1 > 200){ 
print <<"EOM"; 
 
$SOL_TYPE[2]:△:◎:金 $SOL_PRICE[2]:
 
 
人 
 
 
 
 
EOM 
	} 
	if($zsub1 > 300){ 
print <<"EOM"; 
 
$SOL_TYPE[3]:◎:○:金 $SOL_PRICE[3]:
 
 
人 
 
 
 
 
EOM 
	} 
	if($zsub1 > 400){ 
print <<"EOM"; 
 
$SOL_TYPE[4]:●:△:金 $SOL_PRICE[4]:
 
 
人 
 
 
 
 
EOM 
	} 
	if($zsub1 > 500){ 
print <<"EOM"; 
 
$SOL_TYPE[5]:智力加武力點數計算:金 $SOL_PRICE[5]:
 
 
人 
 
 
 
 
EOM 
	} 
print <<"EOM"; 
 

 
 
 
 
 
 
 
 
EOM 
	} 
	&FOOTER; 
 
	exit; 
 
} 
1;