📄 hima.cgi

📁 挖矿游戏源代码很好的哦可以研究
💻 CGI
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
	</TD>
	<TD>
	</TD>
	<TD ALIGN="center">
	<IMG SRC="$img_path/$chara_img[$wchara]">
	</TR>
<TR>
<TD>
<TABLE BORDER=1>
<TR>
	<TD CLASS="b1">
	なまえ
	</TD>
	<TD CLASS="b1">
	HP
	</TD>
	<TD CLASS="b1">
	职业
	</TD>
	<TD CLASS="b1">
	LV
	</TD>
</TR>
<TR>
	<TD>
	$kname
	</TD>
	<TD>
	$khp_flg\/$kmaxhp
	</TD>
	<TD>
	$chara_syoku[$ksyoku]
	</TD>
	<TD>
	$klv
	</TD>
</TR>
</TABLE>
</TD>
<TD>
<FONT SIZE=5 COLOR="#9999DD">VS</FONT>
</TD>
<TD>
<TABLE BORDER=1>
<TR>
	<TD CLASS="b1">
	なまえ
	</TD>
	<TD CLASS="b1">
	HP
	</TD>
	<TD CLASS="b1">
	职业
	</TD>
	<TD CLASS="b1">
	LV
	</TD>
</TR>
<TR>
	<TD>
	$wname
	</TD>
	<TD>
	$whp_flg\/$wmaxhp
	</TD>
	<TD>
	$chara_syoku[$wsyoku]
	</TD>
	<TD>
	$wlv
	</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<p>
<B>$com1 $clit1 $kawasi2 $wname に <font class="dmg"><b>$dmg1</b></font> のダメ—ジを与えた。</B><p>
<font color="#215b8f">$com2 $clit2 $kawasi1 $kname に <font class="dmg"><b>$dmg2</b></font> のダメ—ジを与えた。</font><p>
EOM

		$khp_flg = $khp_flg - $dmg2;
		$whp_flg = $whp_flg - $dmg1;

		if($whp_flg <= 0) { $win = 1; last; }
		elsif($khp_flg <= 0) { $win = 0; last; }

		$i++;
		$j++;
	}

	if($win) {
		
		$comment = "<b><font size=5>$knameは、<font size=6 color=\"red\">$wnameに胜利した！！</font></font></b><p>";
	}else{
		
		$comment = "<font size=5>$knameは、$wnameに负けた···。</font><p>";
	}

	

	$khp = $khp_flg + int(rand($kn_3));
	if($khp > $kmaxhp) { $khp = $kmaxhp; }
	$whp = $whp_flg + int(rand($wn_3));
	if($whp > $wmaxhp) { $whp = $wmaxhp; }
	if($khp <= 0) { $khp = $kmaxhp; }
	if($whp <= 0) { $whp = $wmaxhp; }
	$kgold = $kgold + $gold;

	if($refresh and !$win) { &header2; } else { &header; }

	print "<FONT SIZE=3>\n";
	print "现在、わたしたちが住んでいる世界とは违う不思议な世界が存在する。<P>\n";
	print "そこでは、わたしたちとそっくりな人间たちがまったく同じ生活をしている。<P>\n";
	print "その世界が何なのかわからないが、その世界への入り口が突然现れたのだ。<P>\n";
	print "しかも、その世界で何かを坏そうが、一度もとの世界に返り、再びその世界に行くと、またもとの世界と变わらないという。<P>\n";
	print "<b>どこからともなく<font size=6 color=\"red\">$wname</font>が现れた！！</b></font><hr size=0><p>\n";

	$i=0;
	foreach(@battle_date){
		print "$battle_date[$i]";
		$i++;
	}
	
	print "$comment<p>\n";

	&footer;

	$battle_flag=0;

	exit;
}

#--------------------#
#  チャンプ读み??み  #
#--------------------#
sub read_hima {
	open(IN,"$chara_file1") or &error('ファイルを开けませんでした。');
	@winner = <IN>;
	close(IN);

	$sousu = @winner;

	$hima = rand($sousu);

	($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(/<>/,$winner[$hima]);
}


#------------------#
#　HTMLのフッタ—　#
#------------------#
sub footer {
			
	print "<form action=\"$script\" method=\"post\">\n";
	print "<A HREF=\"$scripto\">ＴＯＰペ—ジへ</A>\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=log_in>\n";
	print "<input type=submit value=\"ステ—タス画面へ\">\n";
	print "</form>\n";

	print "<HR SIZE=0 WIDTH=\"100%\"><DIV align=right class=small>\n";
	print "$verhg edit by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";
	print "$verg remodeling by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";
	print "$verh by <a href=\"http://www.interq.or.jp/sun/cumro/\">D.Takamiya(CUMRO)</a><br>\n";
	print "</DIV></body></html>\n";
}

#------------------#
#  HTMLのヘッダ—  #
#------------------#
sub header {
	print "Content-Type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: $b_size }
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;}
.b2 {background: #669;border-color: #99c #336 #336 #99c;color:#fff; border-style: solid; border-width: 1px; text-align: center}
.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 header2 {
	print "Content-Type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<META http-equiv="refresh" content="$refresh;URL=http\:\/\/$wurl"> 
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: $b_size }
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;}
.b2 {background: #669;border-color: #99c #336 #336 #99c;color:#fff; border-style: solid; border-width: 1px; text-align: center}
.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 decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); }
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }
	@pairs = split(/&/, $buffer);
	foreach (@pairs) {
		($name,$value) = split(/=/, $_);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# 文字コ—ドをシフトJIS变换
		&jcode'convert(*value, "sjis", "", "z");

		# タグ处理
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/\"/&quot;/g;

		# 改行等处理
		$value =~ s/\r//g;
		$value =~ s/\n//g;

		# 一括削除用
		if ($name eq 'del') { push(@DEL,$value); }

		$in{$name} = $value;
	}
	$mode = $in{'mode'};
	$in{'url'} =~ s/^http\:\/\///;
	$cookie_pass = $in{'pass'};
	$cookie_id = $in{'id'};
}

#--------------#
#  エラ—处理  #
#--------------#
sub error {

	&header;

	if (-e $lockfile) { unlink($lockfile); }
	if (-e $cntlock)  { unlink($cntlock); }

	print "<center><hr width=400><h3>ERROR !</h3>\n";
	print "<P><font color=red><B>$_[0]</B></font>\n";
	print "<P><hr width=400></center>\n";
	print "</body></html>\n";
	exit;
}
上一页 1 23
⌨️ 快捷键说明

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