⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 others.cgi

📁 挖矿游戏源代码 很好的哦 可以研究
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	<td colspan=5 align="center" class="b2"><font color="#FFFFFF">$wcount连胜中</font></td>
	</tr>
	<tr>
	<td align="center" class="b1">ホ—ムペ—ジ</td>
	<td colspan="4"><a href="http\:\/\/$wurl"><b>$wsite</b></a>
EOM
	if($rurl eq "$wurl") {
		print "<IMG SRC=\"$mark\" border=0>\n";
	}
	print <<"EOM";
	</td>
	</tr>
	<tr>
	<td align="center" rowspan="8" valign=bottom><img src="$img_path/$chara_img[$wchara]"><p>胜率：$ritu\%<br>
<table width="100%" border=1>
<tr><td class="b2">武器</td><td bgcolor="#fffff0" align="right">$wi_name</td></tr>
<tr><td class="b2">防具</td><td bgcolor="#fffff0" align="right">$wd_name</td></tr>
</table></td>
	<td align="center" class="b1">なまえ</td><td><b>$wname</b></td>
	<td align="center" class="b1">性别</td><td><b>$esex</b></td></tr>
	<tr><td align="center" class="b1">职业</td><td><b>$chara_syoku[$wsyoku]</b></td>
	<td align="center" class="b1">クラス</td><td><b>$class</b></td></tr>
	<tr><td align="center" class="b1">レベル</td><td><b>$wlv</b></td>
	<td align="center" class="b1">经验值</td><td><b>$wex/$next_ex</b></td></tr>
	<tr><td align="center" class="b1">お金</td><td><b>$wgold</b></td>
	<td align="center" class="b1">HP</td><td><b>$whp\/$wmaxhp</b></td></tr>
	<tr><td align="center" class="b1">力</td><td><b>$wn_0</b></td>
	<td align="center" class="b1">知能\</td><td><b>$wn_1</b></td></tr>
	<tr><td align="center" class="b1">信仰心</td><td><b>$wn_2</b></td>
	<td align="center" class="b1">生命力</td><td><b>$wn_3</b></td>	</tr>
	<tr><td align="center" class="b1">器用さ</td><td><b>$wn_4</b></td>
	<td align="center" class="b1">速さ</td><td><b>$wn_5</b></td></tr>
	<tr><td align="center" class="b1">魅力</td><td><b>$wn_6</b></td>
	<td align="center" class="b1">运</td><td><b>$wlp</b></td></tr>
	<tr><td colspan=5 align="center">$lname の <A HREF=\"http\:\/\/$lurl\" TARGET=\"_blank\">$lsite</A> に胜利！！</td></tr>
	</table>
</td>
<td valign="top">
[<B><FONT COLOR="#FF9933">$main_title の游び方</FONT></B>]
<OL>
<LI>まず、「新规キャラクタ—登录」ボタンを押して、キャラクタ—を作成します。
<LI>キャラクタ—の作成が完了したら、このペ—ジの右上にあるところからログインして、あなた专用のステ—タス画面に入ります。
<LI>そこであなたの行动を选择することができます。
<LI>一度キャラクタ—を作成したら、右上のところからログインして游びます。新规にキャラクタ—を作れるのは、一人に一つのキャラクタ—のみです。
<LI>これは、HPバトラ—ではなく、キャラバトラ—です。キャラクタ—を育てていくゲ—ムです。
<LI>能\力を振り分けることができキャラクタ—の能\力をご自分で决めることができます。(ここで决めた能\力はごくまれにしか上升しないので、慎重に)
<LI><b>$limit日</b>以上斗わなければ、キャラクタ—のデ—タが削除されます。
<LI>一度战斗すると<b>$b_time</b>秒经过しないと再び战斗できません。
</OL>
[<B><FONT COLOR="#FF9933">新规キャラクタ作成</FONT></B>]<BR>
下のボタンを押して、あなたのキャラクタ—を作成します。
<FORM ACTION="$scripto" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="chara_make">
<INPUT TYPE="submit" VALUE="新规キャラクタ—作成">
</FORM>
</td>
</tr>
</table>
<table border=0 CELLPADDING=10 width="100%">
<tr><td VALIGN=top align="center" width="30%">
<table border=0 width="100%">
<TR><TD bgcolor="#000000" align=center><font color="#ffffff"><B>ル—ル</B></font></TD></TR>
<TR><TD bgcolor="#fffff0">$kanri_message</TD></TR></table></td>
<td VALIGN=top align="center" width="30%">
<table border=0 width="100%">
<TR><TD bgcolor="#000000" align="center"><font color="#ffffff"><B>连络事项</B></font></TD></TR>
<TR><TD bgcolor="#f0fff0">$kanri_message1</TD></TR></table></td>
<td VALIGN=top align="center" width="30%">
<table border=0 width="100%">
<TR><TD bgcolor="#000000" align="center"><font color="#ffffff"><B>共有サイト</B></font></TD></TR>
<TR><TD bgcolor="#fffff0" align="center">$kanri_message2</table></td></tr></table>

EOM

	# フッタ—表示
	&footer;

	exit;
}
__SUB__

	ranking => <<'__SUB__',
#------------------#
#  ランキング画面  #
#------------------#
sub ranking {

	open(IN,"$chara_file1") or &error('ファイルを开けませんでした。');
	@RANKING = <IN>;
	close(IN);

	$sousu = @RANKING;

	@tmp1 = @tmp2 = ();
	foreach (@RANKING) {
 		my ($aa,$bb,$cc,$dd,$ee,$ff,$gg,$hh,$ii,$jj,$kk,$ll,$mm,$nn,$oo,$pp,$qq,$rr,$ss,$tt,$uu,$first,$second) = split /<>/;
 		push(@tmp1, $first);
 		push(@tmp2, $second);
	}
	@RANKING = @RANKING[sort {$tmp1[$b] <=> $tmp1[$a] or
			$tmp2[$b] <=> $tmp2[$a]} 0 .. $#tmp1];

	$ima = time();

	&header;

	print <<"EOM";
<h1>登录者一览</h1>（<a href="$ranking">\能\力别ランキングへ</a>）<hr size=0>
现在登录されているキャラクタ—<b>$sousu</b>人の内１００人を表\示しています。
<p>
<table border=1>
<tr>
<th></th><th>なまえ</th><th bgcolor=#dadada>职业</th><th width=120>ホ—ムペ—ジ</th><th>胜率</th><th bgcolor=#dadada>总战斗回数</th>
</tr>
EOM
	$i=1;
	foreach(@RANKING){
		($rid,$rpass,$rsite,$rurl,$rname,$rsex,$rchara,$rn_0,$rn_1,$rn_2,$rn_3,$rn_4,$rn_5,$rn_6,$rsyoku,$rhp,$rmaxhp,$rex,$rlv,$rgold,$rlp,$rtotal,$rkati,$rwaza,$ritem,$rmons,$rhost,$rdate,$rmori,$rdef,$rtac,$rkumite) = split(/<>/);
		if($i == 100){ last; }
		$rdate = $rdate + (60*60*24*$limit);
		$niti = $rdate - $ima;
		$niti = int($niti / (60*60*24));
		$rritu = int(($rkati / $rtotal) * 100);
		print "<tr>\n";
		print "<td align=center>$i</td><td>$rname</td><td bgcolor=#dadada>$chara_syoku[$rsyoku]</td><td width=120><a href=\"http\:\/\/$rurl\">$rsite</a></td><td align=center>$rritu%</td><td align=center bgcolor=#dadada>$rtotal回</td>\n";
		print "</tr>\n";
		$i++;
	}

	print "</table><p>\n";

	&footer;

	exit;
}
__SUB__

	chara_make => <<'__SUB__',
#----------------------#
#  キャラクタ作成画面  #
#----------------------#
sub chara_make {
	# ヘッダ—表示
	&header;

	print <<"EOM";
<h1>キャラクタ作成画面</h1>
<hr size=0>
<form action="$scripto" method="post">
<input type="hidden" name="mode" value="make_end">
<table border=1>
<tr>
<td class="b1">ID</td>
<td><input type="text" name="id" size="10"><br>△お好きな半角英数字を4～8文字以内でご记入ください。</td>
</tr>
<tr>
<td class="b1">パスワ—ド</td>
<td><input type="password" name="pass" size="10"><br>△お好きな半角英数字を4～8文字以内でご记入ください。</td>
</tr>
<tr>
<td class="b1">ホ—ムペ—ジ名</td>
<td><input type="text" name="site" size="40"><br>△あなたのホ—ムペ—ジの名前を入力してください。（ない场合はオススメＨＰ）</td>
</tr>
<tr>
<td class="b1">URL</td>
<td><input type="text" name="url" size="50" value="http://"><br>△あなたのホ—ムペ—ジのアドレスを记入してください。（ない场合はオススメＨＰ）</td>
</tr>
<tr>
<td class="b1">キャラクタ—の名前</td>
<td><input type="text" name="c_name" size="30"><br>△作成するキャラクタ—の名前を入力してください。</td>
</tr>
<tr>
<td class="b1">キャラクタ—の性别</td>
<td><input type="radio" name="sex" value="0">女　<input type="radio" name="sex" value="1">男<br>△作成するキャラクタ—の性别を选择してください。</td>
</tr>
<tr>
<td class="b1">キャラクタ—のイメ—ジ</td>
<td><select name="chara">
EOM

	$i=0;
	foreach(@chara_name){
		print "<option value=\"$i\">$chara_name[$i]\n";
		$i++;
	}

	print <<"EOM";
</select><br>△作成するキャラクタ—の画像を选择してください。　　(<a href="$img_path/chara.html" target="_blank">キャラ画像一览はこちら</a>）</td>
</tr>
<tr>
<td class="b1">キャラクタ—の能\力</td>
<td>
	<table border=1>
	<tr>
	<td class="b2" width="70">力</td><td class="b2" width="70">知能\</td><td class="b2" width="70">信仰心</td><td class="b2" width="70">生命力</td><td class="b2" width="70">器用さ</td><td class="b2" width="70">速さ</td><td class="b2" width="70">魅力</td>
	</tr>
	<tr>
EOM

	$point = int(rand(10));
	$point+=4;

	$i=0;$j=0;
	foreach(0..6){
		print "<td>$kiso_nouryoku[$i] + <select name=n_$i>\n";
		foreach(0..$point){
			print "<option value=\"$j\">$j\n";
			$j++;
		}
		print "</select>\n";
		print "</td>\n";
		$i++;$j=0;
	}

	print <<"EOM";
	</tr>
	</table>
△ボ—ナスポイント「<b>$point</b>」をそれぞれに振り分けてください。(振り分けた合计が、$point以下になるようにして下さい)
</td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="これで登录"></td>
</tr>
</table>
<input type="hidden" name=point value="$point">
</form>
EOM

	# フッタ—表示
	&footer;

	exit;
}
__SUB__

	make_end => <<'__SUB__',
#----------------#
#  登录完了画面  #
#----------------#
sub make_end {
	if($chara_stop){ &error("现在キャラクタ—の作成登录はできません"); }
	if ($in{'id'} =~ m/[^0-9a-zA-Z]/)
	{&error("IDに半角英数字以外の文字が含まれています。"); }
	if ($in{'pass'} =~ m/[^0-9a-zA-Z]/)
	{&error("パスワ—ドに半角英数字以外の文字が含まれています。"); }
	# 职业未选择の场合
		if($in{'syoku'} eq "") {
		if($in{'id'} eq "" or length($in{'id'}) < 4 or length($in{'id'}) > 8) { &error("IDは、4文字以上、8文字以下で入力して下さい。"); }
		elsif($in{'pass'} eq "" or length($in{'pass'}) < 4 or length($in{'pass'}) > 8) { &error("パスワ—ドは、4文字以上、8文字以下で入力して下さい。"); }
		elsif($in{'site'} eq "") { &error("ホ—ムペ—ジ名が未记入です"); }
		elsif($in{'url'} eq "") { &error("URLが未记入です"); }
		elsif($in{'c_name'} eq "") { &error("キャラクタ—の名前が未记入です"); }
		elsif($in{'sex'} eq "") { &error("性别が选择されていません"); }

		$g = $in{'n_0'} + $in{'n_1'} + $in{'n_2'} + $in{'n_3'} + $in{'n_4'} + $in{'n_5'} + $in{'n_6'};

		if($g > 15) { &error("ポイントの振り分けが多すぎます。振り分けの合计を、$in{'point'}以下にしてください。"); }

		&header;

		print "<h1>职业选择画面</h1><hr size=0>\n";
		print "あなたがなることができる职业は以下のとおりです。<p>\n";
		print "<form action=\"$scripto\" method=\"post\">\n";
		print "<input type=hidden name=mode value=regist>\n";
		print "<select name=syoku>\n";
		print "<option value=0>$chara_syoku[0]\n";

		open(IN,"$syoku_file");
	@syoku = <IN>;
	close(IN);

	$i=0;$hit=0;
	foreach(@syoku){
		($a,$b,$c,$d,$e,$f,$g,$h) = split(/<>/);
		if($in{'n_0'} + $kiso_nouryoku[0] >= $a and $in{'n_1'} + $kiso_nouryoku[1] >= $b and $in{'n_2'} + $kiso_nouryoku[2] >= $c and $in{'n_3'} + $kiso_nouryoku[3] >= $d and $in{'n_4'} + $kiso_nouryoku[4] >= $e and $in{'n_5'} + $kiso_nouryoku[5] >= $f and $in{'n_6'} + $kiso_nouryoku[6] >= $g and $ksyoku != $i) {
			print "<option value=\"$i\">$chara_syoku[$i]\n";
			$hit=1;
		}
		$i++;
	}

		print "</select>\n";
		print "<input type=hidden name=new value=new>\n";
		print "<input type=hidden name=id value=\"$in{'id'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=site value=\"$in{'site'}\">\n";
		print "<input type=hidden name=url value=\"$in{'url'}\">\n";
		print "<input type=hidden name=c_name value=\"$in{'c_name'}\">\n";
		print "<input type=hidden name=sex value=\"$in{'sex'}\">\n";
		print "<input type=hidden name=chara value=\"$in{'chara'}\">\n";
		print "<input type=hidden name=n_0 value=\"$in{'n_0'}\">\n";
		print "<input type=hidden name=n_1 value=\"$in{'n_1'}\">\n";
		print "<input type=hidden name=n_2 value=\"$in{'n_2'}\">\n";
		print "<input type=hidden name=n_3 value=\"$in{'n_3'}\">\n";
		print "<input type=hidden name=n_4 value=\"$in{'n_4'}\">\n";
		print "<input type=hidden name=n_5 value=\"$in{'n_5'}\">\n";
		print "<input type=hidden name=n_6 value=\"$in{'n_6'}\">\n";
		print "<input type=submit value=\"この职业でOK\"></form>\n";

		&footer;

		exit;
	}else{
		if($in{'sex'}) { $esex = "男"; } else { $esex = "女"; }
		$next_ex = $lv * $lv_up;

		&headernew;

		print <<"EOM";
<h1>登录完了画面</h1>
以下の内容で登录が完了しました。
<hr size=0>
<p>
<table border=1>
<tr>
<td class="b1">ホ—ムペ—ジ</td>
<td colspan="4"><a href="http\:\/\/$in{'url'}">$in{'site'}</a></td>
</tr>
<tr>
<td rowspan="8" align="center"><img src="$img_path/$chara_img[$in{'chara'}]"></td>
<td class="b1">なまえ</td>
<td>$in{'c_name'}</td>
<td class="b1">性别</td>
<td>$esex</td>
</tr>
<tr>
<td class="b1">职业</td>
<td>$chara_syoku[$in{'syoku'}]</td>
<td class="b1">お金</td>
<td>$gold</td>
</tr>
<tr>
<td class="b1">レベル</td>
<td>$lv</td>
<td class="b1">经验值</td>
<td>$ex/$next_ex</td>
</tr>
<tr>
<td class="b1">HP</td>
<td>$hp</td>
<td class="b1"></td>
<td></td>
</tr>
<tr>
<td class="b1">力</td>
<td>$n_0</td>
<td class="b1">知能\</td>
<td>$n_1</td>
</tr>
<tr>
<td class="b1">信仰心</td>
<td>$n_2</td>
<td class="b1">生命力</td>
<td>$n_3</td>
</tr>
<tr>
<td class="b1">器用さ</td>
<td>$n_4</td>
<td class="b1">速さ</td>
<td>$n_5</td>
</tr>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -