data_send.pl

三国志web游戏 v2.0源码； 三国志web游戏 v2.0源码

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
#_/     NEW CHARA DATA 嶌惉    _/#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#

sub DATA_SEND {

	open(IN,"$TOWN_LIST") or &ERR2("不能找开指定文件夹.");
	@TOWN = <IN>;
	close(IN);

	&CHARA_MAIN_OPEN;
	&HEADER;

	print <<"EOM";
<CENTER><h3>登记完成</h3>
<hr size=0>
$kname在$GAME_TITLE登记.<BR>ID和密码或者错误
<hr size=0>
ID:<font color=red>$in{'id'}</font><BR>
PASS:<font color=red>$in{'pass'}</font><BR>
<p>
社会地位<BR><table border=0 bgcolor=$TABLE_C cellspacing=1><TBODY bgcolor=$TD_C4>
<tr><td rowspan="8" align="center"><img src="$IMG/$in{'chara'}.gif"></td>
<td class="b1">名字</td><td>$in{'chara_name'}</td>
<td class="b1">国家</td><td>$cou_name</td></tr>
<tr><td class="b1">职业</td><td>$LANK[0]</td>
<td class="b1">初期位置</td><td>$z2name</td></tr>
<tr><td class="b1">武力</td><td>$in{'str'}</td>
<td class="b1">智力</td><td>$in{'int'}</td></tr>
<tr><td>统率力</td><td>$in{'tou'}</td>
<td>mail</td><td>$in{'mail'}</td></tr>
</table><p>
对初学者<form action="$FILE_ENTRY" method="post">
<input type="hidden" name=mode value=RESISDENTS>
<input type="hidden" name=id value="$in{'id'}">
<input type="hidden" name=num value="0">
<input type="hidden" name=pass value="$in{'pass'}">
<input type="submit" value="游戏说明">
</form><p>
对有经验的人<form action="$FILE_STATUS" method="post">
<input type="hidden" name=mode value=STATUS>
<input type="hidden" name=id value="$in{'id'}">
<input type="hidden" name=pass value="$in{'pass'}">
<input type="submit" value="开始游戏">
</form></CENTER>
EOM

		&FOOTER;

		exit;
}
1;