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

#_/_/_/_/_/_/_/_/_/_/# 
#        愴憟俀      # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub BATTLE2 { 
 
	if($in{'no'} eq ""){&ERR("NO:没有选择.");} 
	if($in{'num'} eq ""){&ERR("没有选择的攻击国家.");} 
	&CHARA_MAIN_OPEN; 
	&TOWN_DATA_OPEN("$kpos"); 
	&TIME_DATA; 
	$num = $in{'num'}; 
	$hit=0; 
 
	open(IN,"./charalog/command/$kid.cgi"); 
	@COM_DATA = ; 
	close(IN); 
 
	$mes_num = @COM_DATA; 
 
	if($mes_num > $MAX_COM) { pop(@COM_DATA); } 
 
	@NEW_COM_DATA=();$i=0; 
	if($in{'no'} eq "all"){ 
		while(@NEW_COM_DATA < $MAX_COM){ 
			push(@NEW_COM_DATA,"18<><>$town_name[$num]出兵<>$tt<><>$in{'num'}<><>\n"); 
		} 
		$no = $in{'no'}; 
	}else{ 
		foreach(@COM_DATA){ 
			($cid,$cno,$cname,$ctime,$csub,$cnum,$cend) = split(/<>/); 
			if($i eq $in{'no'}){ 
				push(@NEW_COM_DATA,"18<><>$town_name[$num]出兵<>$tt<><>$in{'num'}<><>\n"); 
			}else{ 
				push(@NEW_COM_DATA,"$_"); 
			} 
			$i++; 
		} 
		$no = $in{'no'} + 1; 
	} 
 
	open(OUT,">./charalog/command/$kid.cgi") or &ERR('打不开文件.'); 
	print OUT @NEW_COM_DATA; 
	close(OUT); 
 
	&HEADER; 
 
 
	print <<"EOM"; 
NO:$no攻击$town_name[$num]这个城市,注意你是否有兵.
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;