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

#_/_/_/_/_/_/_/_/_/# 
#_/   新規登錄   _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ENTRY { 
 
	&CHEACKER; 
	&HEADER; 
 
	open(IN,"$COUNTRY_MES") or &ERR("被指定了的文件打不開。"); 
	@MES_DATA = ; 
	close(IN); 
 
	open(IN,"$COUNTRY_LIST") or &ERR2('沒開啟文件。err no :country'); 
	@COU_DATA = ; 
	close(IN); 
	foreach(@COU_DATA){ 
		($x2cid,$x2name,$x2ele,$x2mark)=split(/<>/); 
		$cou_name[$x2cid] = "$x2name"; 
		$cou_ele[$x2cid] = "$x2ele"; 
		$cou_mark[$x2cid] = "$x2mark"; 
	} 
 
	$mess .= "各國新規定參加必讀消息"; 
	foreach(@MES_DATA){ 
		($cmes,$cid)=split(/<>/); 
		$mess .= "$cou_name[$cid]國$cmes"; 
	} 
 
 
 
	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'}";} 
	if(ATTESTATION){$emes = "•請確實輸入郵件地址，避免收不到認證信件
(※不正確的郵件地址將不能參加。)";} 
	print <<"EOM"; 
	 
         
 
	 
-- 武將註冊 -- 
 
防刷機制剩下秒
 
 
 
$mess 
 
 
* 帳號跟密碼不能使用相同數字。
 
* 一個IP和信箱只能註冊一個帳號，不能重複註冊新的帳號，也無法使用兩個帳號同時登錄。
 
* 最大登錄人數$ENTRY_MAX名。（目前$num名正在註冊）
 
* 請務必填寫全部的項目。
 
* 請仔細讀取 遊戲說明 後才參加遊戲。
 
* 郵件地址請確實輸入。被登錄的郵件地址將發送認證啟動帳號。（hotmail 跟 yahoo 無法使用）
 
* 選擇初期位置時，選擇沒受統治的都市 (【】空白欄的都市) ，你可成為君主。$MAP 
 
武將名稱

•請輸入武將的名字。
[全形文字２∼６個文字以內]
武將頭像
 
EOM 
	foreach (0..$CHARA_IMAGE){print "頭 像[$_]\n";} 
	print <<"EOM"; 

•請選擇武將的頭像。
 
 
初期位置
 
請選擇位置 
$t_list 

•請選擇所屬的國家。(【】建國可能)
帳號

•記上希望登錄的帳號。
[半形英數字4∼8個字以內]
密碼

•登錄密碼。
[半形英數字4∼8個字以內]
 
專屬能力
武力
[5∼100]
智力
[5∼100]
統率力
[5∼100]
•請指定你想加上哪些能力。
[全部統計起來不成超過150點。]
 
 
郵件地址

 $emes
 
 

 
 
君   主 (創國必填)
 
 
•如要創立君主也要填上所屬位置建國之用。 
 
國家名稱

•請決定新國家的名稱。
[全形文字１∼４個字以內]
 
國家顏色
 
EOM 
	$i=0; 
	foreach(@ELE_BG){print "■ \n";$i++;} 
	print <<"EOM"; 

•請選擇以上17種國家顏色。
 
 
 
 
 
 
 
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;