sankasya.pl

挖矿游戏源代码 很好的哦 可以研究

#--- [注意事项] ------------------------------------------------------------------------------------------------#
# 著作权は放弃していませんので、この参加者表示ライブラリのみを使う场合は				 	#
# フッタ—部分に												#
#														#
#  print "参加者\表\示 edit by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";	#
#														#
# と记述して下さい       										 	#
#    直接メ—ルによる质问は一切お受けいたしておりません。						 	#
#---------------------------------------------------------------------------------------------------------------#
#----------------#
#  参加者登录    #
#----------------#
sub guest_list{
	# ファイルロック
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	&get_host;

	open(IN,"./charalog/$in{'id'}.cgi")|| &error('オ—プンエラ—','指定された书??みファイルが开けません。');
	@SANKA=<IN>;
	close(IN);

	$hit=0;
	foreach(@SANKA){
		($jid,$jpass,$jsite,$jurl,$jname,$jsex,$jchara,$jn_0,$jn_1,$jn_2,$jn_3,$jn_4,$jn_5,$jn_6,$jsyoku,$jhp,$jmaxhp,$jex,$jlv,$jgold,$jlp,$jtotal,$jkati,$jwaza,$jitem,$jmons,$jhost,$jdate,$jmori,$jdef,$jtac,$jkumite) = split(/<>/);
		if($in{'id'} eq "$jid" and $in{'pass'} eq "$jpass") {
			$hit=1; last;
		}
	}

open(GUEST,"$guestfile") or &error('ファイルを开けませんでした。');
@guest=<GUEST>;
close(GUEST);
$flag=1;
$times = time();
undef(@member);
foreach $line (@guest) {
($timer,$name,$id,$host) = split(/ \, /, $line);
if( $times-65 > $timer){
$line = '';
next;
}
if((($jname eq $name)||($id eq $jid)) && $flag){
if( $times-2 <= $timer){ &error("アクセスが集中しています··"); }
$line = "$times \, $jname \, $jid \, $jhost \, \n";
$flag = 0;
}
if($jname ne $name){
push (@member, "<font size=2 color=#0000aa>$name</font><font size=1 color=#000000>　|　</font>");
}
if($jname eq $name){
push (@member, "<font size=2 color=#0000aa>$jname</font><font size=1 color=#000000>　|　</font>");
}
}
if($flag){
push(@guest,"$times \, $jname \, $jid \, $jhost \, \n");
if($name ne $jname){
push(@member, "<font size=2 color=#0000aa>$jname</font><font size=1 color=#000000>　|　</font>"); 
       }
}
	
open(GUEST,">$guestfile") or &error('ファイルを开けませんでした。');
print GUEST @guest;
close(GUEST);

	# ロック解除
	if (-e $lockfile) { unlink($lockfile); }
}

1;

#----------------#
#  参加者表示    #
#----------------#

sub guest_view {
$num = @member;
if(!@member){@member = '边りには谁もいません···'; $num = 0;}
print "<font size=2 color=#000000>现在の冒险者($num人)：</font>@member";
}

1;