ffadventure.cgi

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

<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=item_eqq$ksyoku>
<input type=submit value="晲婍傪攦偆"></td>
<td align="center" bgcolor="#fffff0"></form>
<form action="$scripts" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=def_eqq$ksyoku>
<input type=submit value="杊嬶傪攦偆"></td>
<td align="center" bgcolor="#fffff0"></form>
<form action="$scriptk" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=kunren>
<input type=submit value="抌偊偵峴偔"></td></tr>
</table></form>
<table border=1 width="100%">
<tr><td colspan="2" class="b2" align="center">挰偺奜</td></tr>
<tr><td class="b1">
<form action="$scripto" method="post">
揮怑偺恄揳</td>
<td align="center" bgcolor=#fffff0>
<select name=syoku>
<option value="no">慖戰偟偰偔偩偝偄

EOM

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

	$i=0;$hit=0;
	foreach(@syoku){
		($a,$b,$c,$d,$e,$f,$g,$h) = split(/<>/);
		if($kn_0 >= $a and $kn_1 >= $b and $kn_2 >= $c and $kn_3 >= $d and $kn_4 >= $e and $kn_5 >= $f and $kn_6 >= $g and $klv >= $h and $ksyoku != $i) {
			print "<option value=\"$i\">$chara_syoku[$i]\n";
			$hit=1;
		}
		$i++;
	}
	print <<"EOM";
</select>
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=tensyoku>
EOM

	if(!$hit) { print "尰嵼揮怑偱偒傞怑嬈偼偁傝傑偣傫"; }
	else { print "<input type=submit value=\"揮怑偡傞\">\n"; }

	print <<"EOM";
</td></tr><tr><td colspan=2>
仸 揮怑偡傞偲丄尰嵼偺擻\椡抣偐傜儔儞僟儉偱壓偑傝傑偡丅<br>仸 HP偼偦偺傑傑偱偡偑LV偼1偵側傝傑偡丅</td></tr>
<tr></form><td class="b1">
<form action="$scriptt" method="post">
廃曈偺扵嶕</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=monster>

EOM

	if(!$kmons) { print "侾搙僉儍儔僋僞乕偲摤偭偰偔偩偝偄\n";
	}elsif($ltime >= $m_time or !$ktotal) {
		print "<input type=submit value=\"儌儞僗僞乕偲摤偆\"><br>\n";
	}else{
		print "$mtime昩屻摤偊傞傛偆偵側傝傑偡丅<br>\n";
	}

	print <<"EOM";
</td></tr><tr><td colspan=2>
仸廋峴偺椃偵偄偗傑偡丅</td></tr>
</form>
EOM

	if($klv%3 == 0){
	print "<tr><td class=\"b1\">\n";
	print "<form action=\"$scriptg\" method=\"post\">\n";
	print "撍慠偺弌尰</td>\n";
	print "<td align=\"center\" bgcolor=#fffff0>\n";
	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=monster2>\n";
	print "\n";


	if(!$kmons) { print "侾搙僉儍儔僋僞乕偲摤偭偰偔偩偝偄\n";
	}elsif($ltime >= $m_time or !$ktotal) {
		print "<input type=submit value=\"尪塭偺忛傊\"><br>\n";
	}else{
		print "$mtime昩屻峴偗傞傛偆偵側傝傑偡丅<br>\n";
	}

	print "<tr><td colspan=2>\n";
	print "仸嵿曮偑柊傞偲尵傢傟傞乽尪塭偺忛乿偵偄偗傑偡丅</td></tr>\n";
	print "</form>\n";
}

	print <<"EOM";
</td></tr><tr><td class="b1">
<form action="$scriptm" method="post">
杺偺怷</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=monster1>

EOM
	if($kmori < $boss) { print "侾搙僉儍儔偲愴偭偰偔偩偝偄"; 
	}elsif($ltime >= $m_time or !$ktotal) {
		print "<input type=submit value=\"杺偺怷傊峴偔\"><br>\n";
	}else{
		print "$mtime昩屻峴偗傞傛偆偵側傝傑偡丅<br>\n";
	}


	print <<"EOM";
</td></tr><tr><td colspan=2>仸揱愢偺儌儞僗僞乕偑柊傞偲尵傢傟傞乽杺偺怷乿偵峴偗傑偡丅</td></tr>
<tr></form><td class="b1">
<form action="$scripti" method="post">
堎師尦傊偺斷</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=himatubusi>
<input type=submit value="堎師尦傊偺斷偵嬤偯偔"></td></tr>
<tr><td colspan=2>仸儔儞僟儉偵僉儍儔偲摤偊傑偡丅(宱尡抣傗偍嬥偼庤偵擖傝傑偣傫)</td></tr>
<tr></form><td class="b1">
<form action="$scriptkumite" method="post">
榬帋偟戝夛</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=kumite>
EOM

	if($kkumite == 0){ print "侾搙僉儍儔偲愴偭偰偔偩偝偄"; 
	}else{
		print "<input type=submit value=\"戝夛偵嶲壛偡傞\"><br>\n";
	}

	print <<"EOM";
</td></tr><tr><td colspan=2>仸搊榐幰偲愴偭偰偄偒傑偡</td></tr>
<tr></form><td class="b1">
<form action="$scriptmes" method="post" target="_new">
揱払強</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=messe>
<input type=submit value="儊僢僙乕僕傪憲傞"></td></tr>
<tr><td colspan=2>仸懠偺僉儍儔僋僞乕傊儊僢僙乕僕傪憲傞偙偲偑偱偒傑偡丅</td></tr>
<tr></form><td class="b1">
<form action="$scriptkousin" method="post">
峏怴強</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=kousin>
<input type=submit value="帺暘偺僨乕僞傪峏怴"></td></tr>
<tr><td colspan=2>仸儔儞僉儞僌丒僉儍儔堦棗丒戝夛嶲愴幰丒揱払強梡僼傽僀儖偺<br>帺暘偺僨乕僞傪怴婯搊榐or峏怴偟傑偡丅</td></tr>
</form>
</td>
</tr>
</table></table>
亂撏偄偰偄傞儊僢僙乕僕亃昞\帵悢<b>$max_gyo</b>審傑偱<br>
EOM

	open(IN,"$message_file");
	@MESSAGE_LOG = <IN>;
	close(IN);

	$hit=0;$i=1;
	foreach(@MESSAGE_LOG){
		($pid,$hid,$hname,$hmessage,$hhname,$htime) = split(/<>/);
		if($kid eq "$pid"){
			if($max_gyo < $i) { last; }
			print "<hr size=0><font color=red><small><b>$hname偝傫</b>丂亜 乽<b>$hmessage</b>乿($htime)</small></b></font><br>\n";
			$hit=1;$i++;
		}elsif($kid eq "$hid"){
			print "<hr size=0><small>$kname偝傫偐傜$hhname偝傫傊丂亜 乽$hmessage乿($htime)</small><br>\n";
		}
	}
	if(!$hit){ print "<hr size=0>$kname偝傫埗偰偺儊僢僙乕僕偼偁傝傑偣傫<p>\n"; }
	print "<hr size=0><p>";

	&footer;

	$chara_flag=0;

	exit;
}
__SUB__

	footer => <<'__SUB__',
#------------------#
#丂HTML偺僼僢僞乕丂#
#------------------#
sub footer {
	print "<A HREF=\"$scripto\">俿俷俹儁乕僕傊</A>\n";

	print "<HR SIZE=0 WIDTH=\"100%\"><DIV align=right class=small>\n";
	print "$verg remodeling by <a href=\"http://www.gun-online.com/\" target=\"_top\">俧倀俶</a><br>\n";
	print "$ver by <a href=\"http://www.interq.or.jp/sun/cumro/\">D.Takamiya(CUMRO)</a><br>\n";

if($ltime < $b_time or !$ktotal and $vtime > 0){	
	print <<"EOM";
<SCRIPT language="JavaScript">
<!--
window.setTimeout('CountDown()',100);
//-->
</SCRIPT>
EOM
}
	print "</DIV></body></html>\n";
}
__SUB__

	header => <<'__SUB__',
#------------------#
#  HTML偺僿僢僟乕  #
#------------------#
sub header {
	print "Cache-Control: no-cache\n";
	print "Pragma: no-cache\n";
	print "Content-Type: text/html\n\n";

	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
EOM

if($mode eq 'log_in') {
if($ltime < $b_time or !$ktotal and $vtime > 0){
	print <<"EOM";
<META HTTP-EQUIV="Refresh" CONTENT="$xtime; url=$script_url?mode=log_in&id=$kid&pass=$kpass">
<SCRIPT LANGUAGE="JavaScript">
<!--
	var start=new Date();
	start=Date.parse(start)/1000;
	var counts=$xtime;
	function CountDown(){
		var now=new Date();
		now=Date.parse(now)/1000;
		var x=parseInt(counts-(now-start),10);
		if(document.form1){document.form1.clock.value = x;}
		if(x>0){
			timerID=setTimeout("CountDown()", 100)
		}else{
			location.href="$script_url?mode=log_in&id=$kid&pass=$kpass"
		}
	}
//-->
</SCRIPT>
EOM
}
}
	print <<"EOM";
<STYLE type="text/css">
<!--
body { font-size: $b_size }
tr,td,th { font-size: 10pt }
a:hover { color: $alink }
.small { font-size: 10pt }
.b1 {background: #9ac;border-color: #ccf #669 #669 #ccf;color:#fff; border-style: solid; border-width: 1px; font-size: 10pt;}
.b2 {background: #669;border-color: #99c #336 #336 #99c;color:#fff; border-style: solid; border-width: 1px; text-align: center; font-size: 10pt;}
.b3 {background: #fff;border-color: #ccf #669 #669 #ccf;}
.dmg { color: #FF0000; font-size: 18pt }
.clit { color: #0000FF; font-size: 18pt }
-->
</STYLE>
EOM
	print "<title>$main_title</title></head>\n";
	print "<body background=\"$backgif\" bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
}
__SUB__
);
}