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

#_/_/_/_/_/_/_/_/# 
#      戰爭      # 
#_/_/_/_/_/_/_/_/# 
 
sub BATTLE { 
 
	if($in{'no'} eq ""){&ERR("行程：沒有輸入。");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&COUNTRY_DATA_OPEN("$kcon"); 
	&TIME_DATA; 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
	foreach(@no){ 
		$no_list .= "" 
	} 
 
	$get_sol = $klea - $ksol; 
	print <<"EOM"; 
	 
	 
	 
 
		 
 
 
EOM 
	if("$ENV{'HTTP_REFERER'}" eq "$SANGOKU_URL/status.cgi"){  
 
print <<"EOM"; 
 
 
EOM 
	} 
print <<"EOM"; 
 
 
 
 - 戰 爭 -  
 
 
 
$kname
 
 
武力
$kstr
智力
$kint
統率力
$klea
 
金
$kgold
米
$krice
貢獻
$kcex
 
所屬國
$cou_name[$kcon]國
兵士
$ksol
訓練
$kgat
 
 
 
 
侵略他國。
您可\以\攻擊鄰近的城市。
勝利的話,您就奪到那個城市。
敗北的話,您必須回到自己的國家。為了戰爭,士兵數量增加。因此必須準備到２倍的糧食。 
 
 
 
請問您要攻打哪一城市？ 
 
防刷機制剩下秒
 
 
	
 
 
EOM 
 
	$i=0; 
	foreach(@TOWN_DATA){ 
		($zxname,$zxcon,$zxnum,$zxnou,$zxsyo)=split(/<>/); 
		print "$zxname"; 
		$i++; 
	} 
 
	foreach(@z){ 
		if("$_" ne "" && $town_cou[$_] ne $kcon){ 
			$t_mes .= "可向【$town_name[$_]】城 進攻
"; 
		} 
	} 
print <<"EOM"; 
 

你目前位置所在【$zname】城，\可\以\攻打以下城市
 
$t_mes 
$no_list 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;