ffadventube.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__
);
}