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

#_/_/_/_/_/_/_/_/# 
#      愴憟      # 
#_/_/_/_/_/_/_/_/# 
 
sub BATTLE { 
 
	if($in{'no'} eq ""){&ERR("NO:没有选择.");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&TIME_DATA; 
 
	&HEADER; 
	$no = $in{'no'} + 1; 
 
	$get_sol = $klea - $ksol; 
	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 
 
 
 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;