ffadventure.cgi

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

#!/usr/bin/perl

#--- [拲堄帠崁] ------------------------------------------------#
# 1. 偙偺僗僋儕僾僩偼僼儕乕僜僼僩偱偡丅偙偺僗僋儕僾僩傪巊梡偟偨	#
#    偄偐側傞懝奞偵懳偟偰嶌幰偼堦愗偺愑擟傪晧偄傑偣傫丅		#
# 2. 愝抲偵娭偡傞幙栤偼僒億乕僩宖帵斅偵偍婅偄偄偨偟傑偡丅	#
#    捈愙儊乕儖偵傛傞幙栤偼堦愗偍庴偗偄偨偟偰偍傝傑偣傫丅	#
#---------------------------------------------------------------#

# 擔杮岅儔僀僽儔儕偺撉傒崬傒
require 'jcode.pl';

# 儗僕僗僩儔僀僽儔儕偺撉傒崬傒
require 'regist.pl';

# 嶲壛幰儔僀僽儔儕偺撉傒崬傒
require 'sankasya.pl';

# 弶婜愝掕僼傽僀儖偺撉傒崬傒
require 'ffadventure.ini';

#================================================================#
#劕劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劖#
#劔 偙傟傛傝壓偼CGI偵帺怣偺偁傞曽埲奜偼埖傢側偄傎偆偑柍擄偱偡丂劔#
#劘劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劗#
#================================================================#

#--------------#
#丂儊僀儞張棟丂#
#--------------#
if($mente) { &error("僶乕僕儑儞傾僢僾拞偱偡丅俀丄俁侽昩傎偳偍懸偪壓偝偄丅m(_ _)m"); }
&decode;
if($mode eq 'log_in') { &log_in; }
else { &error("傾僋僙僗偱偒傑偣傫"); }

#劕劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒
#劔   僆乕僩儘乕僟乕
#劘劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒
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 = (
	log_in => <<'__SUB__',
#----------------#
#  儘僌僀儞夋柺  #
#----------------#
sub log_in {
	$chara_flag=1;

	open(IN,"./charalog/$in{'id'}.cgi") or &error('僼傽僀儖傪奐偗傑偣傫偱偟偨丅');
	@log_in = <IN>;
	close(IN);

	$hit=0;
	foreach(@log_in){
		($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(/<>/);
		if($in{'id'} eq "$kid" and $in{'pass'} eq "$kpass") {
			$hit=1; last;
		}
	}
open (IN,"$winner_file") || &error('僆乕僾儞僄儔乕','巜掕偝傟偨彂崬傒僼傽僀儖偑奐偗傑偣傫丅');
	$LINE = <IN>;
	close (IN);
    ($wid,$wpass,$wsite,$wurl,$wname,$wsex,$wchara,$wn_0,$wn_1,$wn_2,$wn_3,$wn_4,$wn_5,$wn_6,$wsyoku,$whp,$wmaxhp,$wex,$wlv,$wgold,$wlp,$wtotal,$wkati,$wwaza,$witem,$wmons,$whost,$wdate,$wcount,$lsite,$lurl,$lname,$wmori,$wdef,$wtac,$lid,$wkumite)=split(/<>/,$LINE);


	open(IN,"$taikai_file");
	@TAIKAI = <IN>;
	close(IN);


	$ltime = time();
	$ltime = $ltime - $kdate;
	$vtime = $b_time - $ltime;
	$xtime = $vtime + 1;
	$ztime = $vtime - 1;
	$mtime = $m_time - $ltime;
	if($in{'id'} ne "$kid" or $in{'pass'} ne $kpass) {&error("僆乕僾儞僄儔乕丄ID丒僷僗儚乕僪偑惓偟偔偁傝傑偣傫丅");}
	$yado_daix = int($klv * $yado_dai);
	if($kkati) { $syouritu = int(($kkati / $ktotal) * 100); }
	else { $syouritu = 0; }

	if(!$hit) { &error("擖椡偝傟偨ID偼搊榐偝傟偰偄傑偣傫丅枖偼僷僗儚乕僪偑堘偄傑偡丅"); }
	if($kmori < $boss) { $kmori = 0; }

	&class;

	if($ksex) { $esex = "抝"; } else { $esex = "彈"; }
	$next_ex = $klv * $lv_up;

	open(IN,"$item_file");
	@log_item = <IN>;
	close(IN);

	$hit=0;
	foreach(@log_item){
		($i_no,$i_name,$i_dmg,$i_gold) = split(/<>/);
		if($kitem eq "$i_no"){ $hit=1;last; }
	}
	if(!$hit) { $i_name="亅"; }
	if(!$hit) { $i_dmg="亅"; }

	open(IN,"$def_file");
	@log_def = <IN>;
	close(IN);

	$hit=0;
	foreach(@log_def){
		($d_no,$d_name,$d_dmg,$d_gold) = split(/<>/);
		if($kdef eq "$d_no"){ $hit=1;last; }
	}
	if(!$hit) { $d_name="-"; }
	if(!$hit) { $d_dmg="-"; }

	open(IN,"$tac_file");
	@log_tac = <IN>;
	close(IN);

	$hit=0;
	foreach(@log_tac){
		($ktac_no,$ktac_name) = split(/<>/);
		if($ktac eq "$ktac_no"){ $hit=1;last; }
	}
	if(!$hit) { $ktac_name="晛捠偵愴偆"; }

	&guest_list;

	&header;

	&guest_view;

	print <<"EOM";
<h1>$kname偝傫梡僗僥乕僞僗夋柺</h1>
<hr size=0>
<a href="$scripto?mode=ranking" target="_blank">搊榐幰堦棗</a>/ <a href="$ranking" target="_blank">\擻\椡暿儔儞僉儞僌傊</a> / <a href="$syoku_html" target="_blank">奺怑嬈偵昁梫側摿惈抣</a> / <a href="$bbs" target="_blank">$bbs_title</a>  / <a href="$sbbs" target="_blank">$sbbs_title</a>  / <a href="$vote" target="_blank">$vote_title</a>/ <a href="$svote" target="_blank">$svote_title</a>/
EOM

if($ltime < $b_time or !$ktotal and $vtime > 0){
	print <<"EOM";
<FORM NAME="form1">
僠儍儞僾偲摤偊傞傑偱巆傝<INPUT TYPE="text" NAME="clock" SIZE="3" VALUE="$xtime">昩偱偡丅0偵側傞偲丄帺摦揑偵峏怴偟傑偡偺偱僽儔僂僓偺峏怴偼墴偝側偄偱壓偝偄丅乮僉儍儔徚幐偺尨場偵側傝傑偡乯
</FORM>
EOM
	}else{
	print <<"EOM";
<form action="$script" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=log_in>
<input type=submit value="峏怴">
</form>
EOM

}
	print <<"EOM";
<table align="center" border=0><tr><td>
<table bgcolor="#000000" align="center" border=2>
<TR><TD>
	<table border=1 bgcolor="#fffff0" align="center">
	<TR><TD align="center" colspan="2" bgcolor="#000000"><font color="#ffffff">尰嵼偺僠儍儞僺僆儞</FONT></TD>
	<TD rowspan="3" bgcolor="777777" align="center"><font color="#ffff00"><b><i>$wcount</i></b></FONT><br><font color="#eaffaa"><i>楢彑拞</i></font></TD></TR>
	<TR><TD align="center"><FONT color="#f23e66"><B>$wname</B></font>偝傫</TD>
	<TD><B>$whp\/$wmaxhp</B></TD></TR>
	<TR><TD align="right" colspan="2">嵟屻偵<font color="#f23e66">$lname</font>偝傫偵彑棙偟偰偄傑偡丅</TD></TR></table>
</TD></TR></table></td><td align="center">
<table border=1 bgcolor="#fffff0">
<tr>
<td colspan="4" bgcolor="#000000" align="center"><font color="#ffffff">戝夛儗僐乕僪儀僗僩俁</FONT></td>
</tr>
EOM
	$i=1;
	foreach(@TAIKAI){
		($rnumb,$pname,$pid,$ename) = split(/<>/);
		if($i == 4){ last; }
		$kiroku = $rnumb - 1;
		print "<tr>\n";
		print "<td align=center>$i埵</td><td>$pname偝傫</td><td>$kiroku恖敳偒両</td><td>$ename偝傫偵攕杒</td>\n";
		print "</tr>\n";
		$i++;
	}

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

	print <<"EOM";
<form action="$scriptb" method="post">
<table border=0 align="center" width='100%'>
<tr>
<td valign=top width='50%'>
<table border=1 width='100%'>
<tr><td colspan="5" class="b2" align="center">儂乕儉儁乕僕僨乕僞</td></tr>
<tr><td class="b1">儂乕儉儁乕僕柤</td><td colspan="4"><input type="text" name=site value="$ksite" size=50></td></tr>
<tr><td class="b1">儂乕儉儁乕僕偺URL</td><td colspan="4"><input type="text" name=url value="http\:\/\/$kurl" size=50></td></tr>
<tr><td colspan="5" class="b2" align="center">僉儍儔僋僞乕僨乕僞</td></tr>
<tr><td rowspan="8" align="center" valign=bottom><img src="$img_path/$chara_img[$kchara]"><p>彑棪丗$syouritu\%<br>
<br>
<table width="100%" border=1>
<tr><td class="b2">晲婍</td><td bgcolor="#fffff0" align="right">$i_name</td></tr>
<tr><td class="b1">峌寕椡</td><td bgcolor="#fffff0" align="right">$i_dmg</td></tr>
<tr><td class="b2">杊嬶</td><td bgcolor="#fffff0" align="right">$d_name</td></tr>
<tr><td class="b1">杊屼椡</td><td bgcolor="#fffff0" align="right">$d_dmg</td></tr>
</table></td>
<td class="b1">側傑偊</td><td><input type="text" name=c_name value="$kname"></td><td class="b1">惈暿</td><td>$esex</td></tr>
<tr><td class="b1">怑嬈</td><td>$chara_syoku[$ksyoku]</td><td class="b1">僋儔僗</td><td>$class</td></tr>
<tr><td class="b1">儗儀儖</td><td>$klv</td><td class="b1">宱尡抣</td><td>$kex/$next_ex</td></tr>
<tr><td class="b1">偍嬥</td><td>$kgold</td><td class="b1">HP</td><td>$khp\/$kmaxhp</td></tr>
<tr><td class="b1">椡</td><td>$kn_0</td><td class="b1">抦擻\</td><td>$kn_1</td></tr>
<tr><td class="b1">怣嬄怱</td><td>$kn_2</td><td class="b1">惗柦椡</td><td>$kn_3</td></tr>
<tr><td class="b1">婍梡偝</td><td>$kn_4</td><td class="b1">懍偝</td><td>$kn_5</td></tr>
<tr><td class="b1">枺椡</td><td>$kn_6</td><td class="b1">塣</td><td>$klp</td></tr>
<tr><td class="b1">媄敪摦帪僐儊儞僩</td><td colspan="4" align="center" bgcolor="#fffff0"><input type="text" name=waza value="$kwaza" size=50></td></tr>
<tr><td class="b1">僠儍儞僺僆儞傪栚巜偡</td><td colspan="4" align="center" bgcolor=#fffff0>
<input type="hidden" name=mode value=battle>
<input type="hidden" name=id value="$kid">
<input type="hidden" name=pass value="$kpass">

EOM

	if($wid eq $kid) { print "尰嵼僠儍儞僾側偺偱摤偊傑偣傫\n";
	}elsif($kid eq $lid and $chanp_milit == 1) { print "僠儍儞僾偲愴偭偨捈屻側偺偱旀傟偰摤偊傑偣傫\n";
	}elsif($ltime > $b_time or !$ktotal) {
		print "<input type=\"submit\" value=\"僠儍儞僾偵挧愴\">\n";
	}else{
		print "$ztime昩屻摤偊傞傛偆偵側傝傑偡丅\n";
	}

	print <<"EOM";
</td>
</tr></form><tr><td class="b1">
<form action="$scriptsent" method="post">
岲偒側僉儍儔偲懳愴</td><td align="center" bgcolor=#fffff0 colspan="4">

EOM

	if($wid eq $kid){ print "尰嵼僠儍儞僾側偺偱摤偊傑偣傫\n";
	}elsif($kmons < $sentou_limit){ print "堦搙僠儍儞僾偲愴傢側偄偲愴摤偱偒傑偣傫\n";
	}elsif($kid eq $lid and $chanp_milit == 1){ print "僠儍儞僾偲愴偭偨捈屻側偺偱旀傟偰摤偊傑偣傫\n";
	}else{
print "<input type=hidden name=id value=$kid>\n";
print "<input type=hidden name=pass value=$kpass>\n";
print "<input type=hidden name=mode value=sentak>\n";
print "<input type=submit value=\"懳愴憡庤傪慖傇\">\n";
}

	print <<"EOM";
</td><tr></form>
<form action="./tac.cgi" method="post">
<td class="b1">嶌愴</td>
<td colspan="3" align="center" bgcolor=#fffff0><B>$ktac_name</B></td><td align="center" bgcolor=#fffff0>
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=tac_eqq$ksyoku>
<input type=submit value="愴弍傪曄峏偡傞"></td>
</tr>
</table></form>
<td valign="top">
<table border=1 width="100%">
<tr><td colspan="4" class="b2" align="center">挰偺巤愝</td></tr>
<tr><td bgcolor="#cbfffe" align="center">亂椃偺廻亃(<b>$yado_daix</b>G)</td>
<td bgcolor="#cbfffe" align="center">亂晲婍壆亃</td>
<td bgcolor="#cbfffe" align="center">亂杊嬶壆亃</td>
<td bgcolor="#cbfffe" align="center">亂孭楙強亃</td></tr>
<tr><td align="center" bgcolor="#fffff0">
<form action="$scripty" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=yado>
<input type=submit value="廻攽偡傞"></td>
<td align="center" bgcolor="#fffff0"></form>
<form action="$scripts" method="post">