⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 battle.cgi

📁 挖矿游戏源代码 很好的哦 可以研究
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	if($wtac == 49){
		if($dmg2 < 0){
			$dmg2 = 0;
			}
		$dmg2 = int($dmg2 * 0.5);
		}

	if($wtac == 53){
		if($i%15 == 0){
			$dmg2 = $dmg2 * 1000;
			}
		$sake2 = 1;
		}





			if($dmg2 < 0){$dmg2 = $dmg2;}
			elsif($dmg2 < $cd_dmg){$dmg2 = 0;}
			else{$dmg2 = $dmg2 - $cd_dmg;}

			if($dmg1 < 0){$dmg1 = $dmg1;}
			elsif($dmg1 < $wd_dmg){$dmg1 = 0;}
			else{$dmg1 = $dmg1 - $wd_dmg;}

	if($whp_flg < $wmclit){
		if($whp_flg < $kclit){
			if($i > 5){
			$dmg2 = $dmg2 * 10;
			$com2 .="<p>残った力をふりしぼった！！<p>";
				}
			}
	}elsif(int(rand($sake1)) + int(rand($klp)) - int(rand($wlp))> $kaihiritu1) {
		$dmg2 = 0;
		$kawasi1 = "<P><FONT SIZE=4 COLOR=\"#DD6699\">$knameは身をかわした！</FONT><P>";
	}
	if($khp_flg < $kmclit){
		if($khp_flg < $wclit){
			if($i > 5){
			$dmg1 = $dmg1 * 10;
			$com1 .="<p>残った力をふりしぼった！！<p>";
				}
			}
	}elsif(int(rand($sake2)) + int(rand($wlp)) - int(rand($klp))> $kaihiritu2) {
		$dmg1 = 0;
		$kawasi2 = "<P><FONT SIZE=4 COLOR=\"#DD6699\">$wnameは身をかわした！</FONT><P>";
	}

		$battle_date[$j] = <<"EOM";
<TABLE BORDER=0>
<TR>
	<TD CLASS="b2" COLSPAN="3" ALIGN="center">
	$iタ—ン
	</TD>
</TR>
<TR>
	<TD ALIGN="center">
	<IMG SRC="$img_path/$chara_img[$kchara]"><table width="100%" border=1>
<tr><td class="b2">武器</td><td bgcolor="#fffff0" align="right">$ci_name</td></tr>
<tr><td class="b2">防具</td><td bgcolor="#fffff0" align="right">$cd_name</td></tr>
</table>
	</TD>
	<TD>
	</TD>
	<TD ALIGN="center">
	<IMG SRC="$img_path/$chara_img[$wchara]"><table width="100%" border=1>
<tr><td class="b2">武器</td><td bgcolor="#fffff0" align="right">$wi_name</td></tr>
<tr><td class="b2">防具</td><td bgcolor="#fffff0" align="right">$wd_name</td></tr>
</table></TD>
	</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>
$com1 $clit1 $kawasi2 $wname に <font class="dmg"><b>$dmg1</b></font> のダメ—ジを与えた。<p>
<BLOCKQUOTE>$com2 $clit2 $kawasi1 $kname に <font class="dmg"><b>$dmg2</b></font> のダメ—ジを与えた。</BLOCKQUOTE><p>
EOM

		$whp_flg = $whp_flg - $dmg1 - $dmgme2;

		if($whp_flg <= 0) { $win = 1; last; }
		else {
		$khp_flg = $khp_flg - $dmg2 - $dmgme1;
			}
		if($khp_flg <= 0) { $win = 0; last; }

		$i++;
		$j++;
	}

	if($win) {
		$ktotal += 1;
		$kkati += 1;
		$exp = int($wlv * $kiso_exp + (rand($klp) + 1));
		$kex = $kex + $exp;
		if($kgold < $wgold){
		$gold = $klv * 10 + int(rand($klp)) + $kubau;
		}else{
		$gold = $klv * 10 + int(rand($klp));
		}
		$kmons = $sentou_limit;
		$kmori = $boss;
		$kkumite = 10000;
		$comment = "<b><font size=5>$knameは、战斗に胜利した！！</font></b><p>";
	}else{
		$ktotal += 1;
		$exp = int($wlv * (rand($klp) + 1));
		$kex = $kex + $exp;
		$gold = int(rand($klp));
		$kmons = $sentou_limit;
		$kmori = $boss;
		$kkumite = 10000;
		$comment = "<b><font size=5>$knameは、战斗に负けた···。</font></b><p>";
	}

	if($kex >= ($klv * $lv_up)) {
		$comment .= "$knameは、レベルが上がった！！<p>";
		$hpup = int(rand($kn_3)) + 1;
		$kmaxhp = $kmaxhp + $hpup;
		$khp = $kmaxhp;
		$comment .= "ＨＰが<b>$hpup</b>上がった！！<p>";
		$kex = 0;
		$klv += 1;
		if(int(rand(5)) == 0) { $kn_0 += 1; $t1 = 1;}
		if(int(rand(5)) == 0) { $kn_1 += 1; $t2 = 1;}
		if(int(rand(5)) == 0) { $kn_2 += 1; $t3 = 1;}
		if(int(rand(5)) == 0) { $kn_3 += 1; $t4 = 1;}
		if(int(rand(5)) == 0) { $kn_4 += 1; $t5 = 1;}
		if(int(rand(5)) == 0) { $kn_5 += 1; $t6 = 1;}
		if(int(rand(5)) == 0) { $kn_6 += 1; $t7 = 1;}
		if($t1) { $comment .= "力が上がった。"; }
		if($t2) { $comment .= "知\能\が上がった。"; }
		if($t3) { $comment .= "信仰心が上がった。"; }
		if($t4) { $comment .= "生命力が上がった。"; }
		if($t5) { $comment .= "器用さが上がった。"; }
		if($t6) { $comment .= "速さが上がった。"; }
		if($t7) { $comment .= "魅力が上がった。"; }
	}

	$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 ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	if($win){
		@new=();
		open(IN,">$winner_file");
		@winnew = <IN>;
		unshift(@new,"$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<>$host<>$date<>$win<>$wsite<>$wurl<>$wname<>$kmori<>$kdef<>$ktac<>$wid<>$kkumite<>\n");
		print IN @new;
		close(IN);

	}else{
		$wcount += 1;
		@new=();
		open(IN,">$winner_file");
		@winnew = <IN>;
		unshift(@new,"$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<>$host<>$date<>$wcount<>$ksite<>$kurl<>$kname<>$wmori<>$wdef<>$wtac<>$kid<>$wkumite<>\n");
		print IN @new;
		close(IN);

		open(IN,"$recode_file") or &error('ファイルを开けませんでした。');
		@recode = <IN>;
		close(IN);

		($count,$name) = split(/<>/,$recode[0]);

		if($wcount > $count) {
			open(OUT,">$recode_file") or &error('ファイルを开けませんでした。');
			print OUT "$wcount<>$wname<>$wsite<>$wurl<>$date<>\n";
			close(IN);
		}

		open(IN,"$recode_file1") or &error('ファイルを开けませんでした。');
		@recode1 = <IN>;
		close(IN);

		($tocount,$toname,$tosite,$tourl,$todate) = split(/<>/,$recode1[0]);
		if(($date - $todate) > (60 * 60 * 24 * 7)){
			open(OUT,">$recode_file1") or &error('ファイルを开けませんでした。');
			print OUT "<><><><><>\n";
			close(IN);
		}

		if($wcount > $tocount) {
			open(OUT,">$recode_file1") or &error('ファイルを开けませんでした。');
			print OUT "$wcount<>$wname<>$wsite<>$wurl<>$date<>\n";
			close(IN);
		}
	}

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

	&regist;


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

	print "<h1>$knameは、$wnameに战いを挑んだ！！</h1><hr size=0><p>\n";

	$i=0;
	foreach(@battle_date){
		print "$battle_date[$i]";
		$i++;
	}
	
	print "$comment<p>$knameは、<b>$exp</b>の经验值を手に入れた。<b>$gold</b>G手に入れた。<p>\n";

	&footer;

	$battle_flag=0;

	exit;
}
__SUB__

	read_winner => <<'__SUB__',
#--------------------#
#  チャンプ读み??み  #
#--------------------#
sub read_winner {
	open(IN,"$winner_file") or &error('ファイルを开けませんでした。');
	@winner = <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(/<>/,$winner[0]);
}
__SUB__

	footer => <<'__SUB__',
#------------------#
#　HTMLのフッタ—　#
#------------------#
sub footer {
	if($refresh and !$win and $mode eq 'battle') {
		print "【<b><a href=\"http\:\/\/$wurl\">チャンプのホ—ムペ—ジへ</a></b>】\n";
	}else{
			
	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>\n";
	print "$verbg 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 "$ver by <a href=\"http://www.interq.or.jp/sun/cumro/\">D.Takamiya(CUMRO)</a><br>\n";
	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">
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: 10pt }
a:hover { color: $alink }
.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 => <<'__SUB__',
#--------------#
#  强制送还用  #
#--------------#
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" target="_new"> 
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: 10pt }
a:hover { color: $alink }
.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__
);
}
123

⌨️ 快捷键说明

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