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

#_/_/_/_/_/_/_/_/_/# 
#_/   怴婯搊榐   _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ENTRY { 
 
	&CHEACKER; 
	&HEADER; 
 
	open(IN,"$COUNTRY_LIST") or &ERR2('不能找开指定文件夹.'); 
	@COU_DATA = ; 
	close(IN); 
	foreach(@COU_DATA){ 
		($x2cid,$x2name,$x2ele,$x2mark)=split(/<>/); 
		$cou_name[$x2cid] = "$x2name"; 
		$cou_ele[$x2cid] = "$x2ele"; 
		$cou_mark[$x2cid] = "$x2mark"; 
	} 
 
	open(IN,"$TOWN_LIST") or &ERR("不能找开指定文件夹."); 
	@TOWN_DATA = ; 
	close(IN); 
 
	$zc=0; 
	foreach(@TOWN_DATA){ 
		($z2name,$z2con)=split(/<>/); 
		$town_name[$zc] = "$z2name"; 
		$town_cou[$zc] = "$z2con"; 
		$t_list .= "$z2name【$cou_name[$z2con]】"; 
		$zc++; 
	} 
	if($in{'url'} eq ""){$nurl = "http://";}else{$nurl = "$in{'url'}";} 
	if($in{'mail'} eq ""){$nmail = "\@";}else{$nmail = "$in{'mail'}";} 
 
	print <<"EOM"; 
	 
-- 武将注册 --
 
$mess 
 
 
* ID和PASS一样的话不能注册
 
* 武将名称可以用中文
 
* 最大游戏人数$ENTRY_MAX现在人数$num名
 
* 请按要求来添资料
 
* 游戏说明
 
* 邮件地址要正确
 
* 在初期位置那里选都市（【】空白栏的都市）选择和君主作为加入 \ 可以 \ 能力 \ 是。看都市的君主都市一览表 
 
名称

武将名称
[用全角2到6个字以内]例如:love
头像
 
EOM 
	foreach (0..$CHARA_IMAGE){print "头像[$_]\n";} 
	print <<"EOM"; 

请选择武将的头像.
 
 
初期位置
 
 选择 
$t_list 

选择所属的国家(【】可以建国.)
宣言

战争的宣言
用全角2到24字以内
ID

武将ID 例如:xiaox
[用半角4到8字以内]
密码

[用半角4到8字以内]
 
\能\力
武力
[5-100]
智力
[5-100]
统率力
[5-100]
请加能力参数
[一共有150点让你加]
 
 
邮件地址

你的邮箱. 一定要正确.
 
 

 
 
君主
 
 
所属国登记 
 
国名

新国家名称
[1到4字以内]
 
国家颜色
 
EOM 
	$i=0; 
	foreach(@ELE_BG){print "■ \n";$i++;} 
	print <<"EOM"; 

请决定国家颜色.
 
 
 
 
 
 
 
EOM 
 
	# 僼僢僞乕昞帵 
	&FOOTER; 
 
	exit; 
} 
 
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/# 
#_/   嶲壛搊榐幰忋尷僠僃僢僋   _/# 
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/# 
 
sub CHEACKER { 
 
	$dir="./charalog/main"; 
	opendir(dirlist,"$dir"); 
	while($file = readdir(dirlist)){ 
		if($file =~ /\.cgi/i){ 
			if(!open(page,"$dir/$file")){ 
				&ERR2("错误"); 
			} 
			@page = ; 
			close(page); 
			push(@CL_DATA,"@page
"); 
		} 
	} 
	closedir(dirlist); 
 
 
	$num = @CL_DATA; 
 
	if($ENTRY_MAX){ 
		if($num > $ENTRY_MAX){ 
			&ERR2("最大人数\[$ENTRY_MAX\]超.不能注册"); 
		} 
	} 
} 
1;