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

📄 rank.cgi

📁 挖矿游戏源代码 很好的哦 可以研究
💻 CGI
📖 第 1 页 / 共 2 页
字号:
🔍
12 
#!/usr/bin/perl

#------------------------------------------------------#
#　FF ADVENTURE v0.21
#　programed by CUMRO
#　http://cgi.members.interq.or.jp/sun/cumro/mm/
#　cumro@sun.interq.or.jp
#
#  FF ADVENTURE(改) v1.104
#  remodeling by GUN
#  http://www.gun-online.com/
#  webmaster@gun-online.com
#-----------------------------------------------------#

# 日本语ライブラリの读み??み
require 'jcode.pl';

# レジストライブラリの读み??み
require 'regist.pl';

# 初期设定ファイルの读み??み
require 'ffadventure.ini';

# [设定はここまで]------------------------------------------------------------#

# これより下は、CGIのわかる方以外は、变更しないほうが良いです。

#-----------------------------------------------------------------------------#
$method="POST";          
#-----------------------------------------------------------------------------#
if($mente) { &error("现在バ—ジョンアップ中です。しばらくお待ちください。"); }
&decode;
&rank;
exit;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   オ—トロ—ダ—
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub AUTOLOAD {
	my $name = ($AUTOLOAD =~ /^main::(.+)$/)[0];
	($FLAG{'autoload'}++ > 50) && die $AUTOLOAD; # 念のため无限ル—プ防止
	defined %SUB or &SUBS;
	if (!defined $SUB{$name}) {
		&error("定义されていない关数($AUTOLOAD)が呼ばれました。"); exit;
	}
	eval $SUB{$name}; length($@) && &error("EVAL ERROR: $@ ($AUTOLOAD)");
	delete $SUB{$name}; goto &{'main::' . $name};
}

sub SUBS {
%SUB = (
	rank => <<'__SUB__',
#------------------#
#  ランキング表示  #
#------------------#
sub rank {



	# キャラデ—タ读み??み
	open(IN,"$chara_file1")|| &error('オ—プンエラ—','指定された书??みファイルが开けません。');
	@level=<IN>;
	close(IN);

	$sousu = @level;

	# 配列18番目でソ—ト
	@tmp = map {(split /<>/)[18]} @level;
	@level = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列11番目でソ—ト
	@tmp = map {(split /<>/)[16]} @level;
	@hitp = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列14番目でソ—ト
	@tmp = map {(split /<>/)[7]} @level;
	@atack = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列15番目でソ—ト
	@tmp = map {(split /<>/)[8]} @level;
	@def = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列16番目でソ—ト
	@tmp = map {(split /<>/)[9]} @level;
	@rp = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列17番目でソ—ト
	@tmp = map {(split /<>/)[10]} @level;
	@gp = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列18番目でソ—ト
	@tmp = map {(split /<>/)[11]} @level;
	@sp = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列19番目でソ—ト
	@tmp = map {(split /<>/)[12]} @level;
	@bp = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列20番目でソ—ト
	@tmp = map {(split /<>/)[13]} @level;
	@lp = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列21番目でソ—ト
	@tmp = map {(split /<>/)[20]} @level;
	@yen = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	# 配列21番目でソ—ト
	@tmp = map {(split /<>/)[19]} @level;
	@lyen = @level[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	&header;

	print <<"EOM";
<H3>英雄たちの记录</H3>
<FONT SIZE="3">それぞれのステ—タスのTOP10を表\示しています。
<P>全登录キャラクタ—数は、<B>$sousu</B>人です。
</FONT>
<P>
| <A HREF="$scripto">戾る</A> |
<HR SIZE=0>
EOM
	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "レベル</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">LV</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@level){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$klv\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}

	print "</TABLE>\n";

	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "HP</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">HP</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@hitp){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kmaxhp\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";

	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "ちから</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">ちから</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@atack){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_0\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";

	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "知\能\</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">知\能\</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@def){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_1\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";


	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "信仰心</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">信仰心</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@rp){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
12

⌨️ 快捷键说明

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