entry.pl

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

#_/_/_/_/_/_/_/_/_/#
#_/   怴婯搊榐   _/#
#_/_/_/_/_/_/_/_/_/#

sub ENTRY {

	&CHEACKER;
	&HEADER;

	open(IN,"$COUNTRY_LIST") or &ERR2('不能找开指定文件夹.');
	@COU_DATA = <IN>;
	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 = <IN>;
	close(IN);

	$zc=0;
	foreach(@TOWN_DATA){
		($z2name,$z2con)=split(/<>/);
		$town_name[$zc] = "$z2name";
		$town_cou[$zc] = "$z2con";
		$t_list .= "<option value=\"$zc\">$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";
	<script language="JavaScript">
		function changeImg(){
			num=document.para.chara.selectedIndex;
			document.Img.src="$IMG/"+ num +".gif";
		}
	</script>
<hr size=0><CENTER><font size=4><b>-- 武将注册 --</b></font><hr size=0><form action="$FILE_ENTRY" method="post" name=para><input type="hidden" name="mode" value="NEW_CHARA">
<table bgcolor=$TABLE_C width=80% border=0 cellpadding="0" cellspacing="0">$mess</table>

<table bgcolor=$TABLE_C border=0 cellpadding="3" cellspacong="1"><tr><TD colspan=2 bgcolor=$TD_C1>
* ID和PASS一样的话不能注册<BR>
* 武将名称可以用中文<BR>
* 最大游戏人数$ENTRY_MAX现在人数$num名<BR>
* 请按要求来添资料<BR>
* <a href="./manual.html" TARGET="_blank">游戏说明</a><BR>
* 邮件地址要正确<BR>
* 在初期位置那里选都市（【】空白栏的都市）选择和君主作为加入 \ 可以 \ 能力 \ 是。看都市的君主<a href="./ranking.cgi" TARGET="_blank">都市一览表</a> <BR>
</TD></tr><tr bgcolor=$TD_C2><TD width=100>名称</tD><tD bgcolor=$TD_C3><input type="text" name="chara_name" size="30" value="$in{'chara_name'}"><br>武将名称<BR>[用全角2到6个字以内]例如:love</tD></tr><tr><TD bgcolor=$TD_C2>头像</TD><TD bgcolor=$TD_C3><TABLE bgcolor=$TABLE_C border=1 cellspacing="0"><TR><TD><img src=\"$IMG/0.gif\" name=\"Img\">
</TD></TR></TABLE><select name=chara onChange=\"changeImg()\">
EOM
	foreach (0..$CHARA_IMAGE){print "<option value=\"$_\">头像[$_]\n";}
	print <<"EOM";
</select><br>请选择武将的头像.</TH></tr>

<tr bgcolor=$TD_C2><TD>初期位置</TD><TD bgcolor=$TD_C3><select name="con">
<option value=""> 选择
$t_list
</select><br>选择所属的国家(【】可以建国.)</TD></tr><tr><TD bgcolor=$TD_C2>宣言</TD><TD bgcolor=$TD_C3><input type="text" name="mes" size="40" value="$in{'mes'}"><br>战争的宣言<BR>用全角2到24字以内</TD></tr><tr><TD bgcolor=$TD_C2>ID</TD><TD bgcolor=$TD_C3><input type="text" name="id" size="10" value="$in{'id'}"><br>武将ID 例如:xiaox<BR>[用半角4到8字以内]</TD></tr><tr><TD bgcolor=$TD_C2>密码</TD><TD bgcolor=$TD_C3><input type="password" name="pass" size="10"  value="$in{'pass'}"><br>[用半角4到8字以内]</TD></tr>
<tr><TD bgcolor=$TD_C2>\能\力</TD><TD bgcolor=$TD_C3><table><TR><TD>武力</TD><TD><input type="text" name="str" size="5">[5-100]</TD></TR><TR><TD>智力</TD><TD><input type="text" name="int" size="5">[5-100]</TD></TR><TR><TD>统率力</TD><TD><input type="text" name="tou" size="5">[5-100]</TD></TR></TABLE>请加能力参数<BR>[一共有150点让你加]</TD></tr>

<tr><TD bgcolor=$TD_C2>邮件地址</TD><TD bgcolor=$TD_C3><input type="text" name="mail" size="35" value="$nmail"><br>你的邮箱. 一定要正确.</TD></tr>
</table>
<BR>
<TABLE width=80% bgcolor=$TABLE_C>
<tr><TH bgcolor=$TD_C3 colspan=2>君主</TH></TR>
<tr><TD bgcolor=$TD_C1 colspan=2>
所属国登记
</TD></TR>
<tr bgcolor=$TD_C1><TD width=100>国名</tD><tD bgcolor=$TD_C3><input type="text" name="cou_name" size="30" value="$in{'cou_name'}"><br>新国家名称<BR>[1到4字以内]</tD></tr>
<tr><TD bgcolor=$TD_C1>国家颜色</TD><TD bgcolor=$TD_C3>
EOM
	$i=0;
	foreach(@ELE_BG){print "<input type=radio name=ele value=\"$i\"><font color=$ELE_BG[$i]>■</font> \n";$i++;}
	print <<"EOM";
<br>请决定国家颜色.</TD></tr>
</TABLE>

</table>
</td></tr>
<tr><TH align="center" bgcolor=$TABLE_C><input type="submit" value="注册"></TH></tr></table></form></CENTER>

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 = <page>;
			close(page);
			push(@CL_DATA,"@page<br>");
		}
	}
	closedir(dirlist);


	$num = @CL_DATA;

	if($ENTRY_MAX){
		if($num > $ENTRY_MAX){
			&ERR2("最大人数\[$ENTRY_MAX\]超.不能注册");
		}
	}
}
1;