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

📄 kumite.cgi

📁 挖矿游戏源代码 很好的哦 可以研究
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
			}elsif(7 == $kuura) {
				$com2 .= "<font size=5>THE LOVERS！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_6)) * 13;
			}elsif(8 == $kuura) {
				$com2 .= "<font size=5>THE HERMIT！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_1)) + int(rand($kun_2)) * 13;
			}elsif(9 == $kuura) {
				$com2 .= "<font size=5>WHEEL of FORTUNE！！！！</font>\n";
				$dmg2 = $dmg2 * int(rand(300));
			}elsif(10 == $kuura) {
				$com2 .= "<font size=5>JUSTICE！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_4)) + int(rand($kun_5)) * 13;
			}elsif(11 == $kuura) {
				$com2 .= "<font size=5>THE HANGEDMAN！！！！</font>\n";
				$dmg2 = int(0);
			}elsif(12 == $kuura) {
				$com2 .= "<font size=5>DEATH！！！！</font>\n";
				$dmg2 = int(0) - int(rand($kun_2)) - int(rand($kun_2)) - int(rand($kun_6)) * 20;
			}elsif(13 == $kuura) {
				$com2 .= "<font size=5>TEMPERANCE！！！！</font>\n";
				$dmg2 = $dmg2 * int(rand($kun_4));
			}elsif(14 == $kuura) {
				$com2 .= "<font size=5>THE DEVIL！！！！</font>\n";
				$dmg2 = int(0) - $dmg2 - int(rand($kun_2)) - int(rand($kun_2)) - int(rand($kun_2)) * 15;
			}elsif(15 == $kuura) {
				$com2 .= "<font size=5>THE TOWER！！！！</font>\n";
				$dmg2 = int(0) - int(rand($kun_2)) - int(rand($kun_2)) - int(rand($kun_6)) * 13;
			}elsif(16 == $kuura) {
				$com2 .= "<font size=5>THE STAR！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_3)) * 13;
			}elsif(17 == $kuura) {
				$com2 .= "<font size=5>THE MOON！！！！</font>\n";
				$dmg2 = $dmg2 - int(rand($kun_2)) - int(rand($kun_6)) * 13;
			}elsif(18 == $kuura) {
				$com2 .= "<font size=5>THE SUN！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_3)) + int(rand($kun_3)) * 13;
			}elsif(19 == $kuura) {
				$com2 .= "<font size=5>THE JUDGEMENT！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_2)) + int(rand($kun_2)) * int(rand($kun_2));
			}elsif(20 == $kuura) {
				$com2 .= "<font size=5>THE WORLD！！！！</font>\n";
				$dmg2 = ($dmg2 + int(rand($kun_0)) + int(rand($kun_1)) + int(rand($kun_2)) + int(rand($kun_3)) + int(rand($kun_4)) + int(rand($kun_5)) + int(rand($kun_6))) * 100;
			}else{
				$com2 .= "<font size=5>THE FOOL····</font>\n";
				$dmg2 = int(0);
			}
			}elsif($kusyoku == 21){
				$dmg2 = $dmg2+ (int(rand($kun_4)) + int(rand($kun_5)) + int(rand($kun_6))) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameはダンスを始めた。$kui_nameが华丽な舞いを惹き立てる！！！"; }
				else{ $com2 = "$kunameは、ダンスを始めた！！</FONT><p>";}
			}elsif($kusyoku == 22){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_0)) + int(rand($kun_3)) + int(rand($kun_3)) + int(rand($kun_4)) + int(rand($kun_5));
				if($kuitem){ $com2 = "$kunameは$kui_name後ろに投げた···。天地を碎く刚拳が敌を袭う！!<p>"; }
				else{ $com2 = "$kunameに後退はない。あるのは前进胜利のみ！天地を碎く刚拳が敌を袭う！!<p>";}
			}

			if(int(rand(20)) == 0) {
				$clit1 = "<b class=\"clit\">クリティカル！！</b>";
				$dmg1 = $dmg1 * 2;
			}

			if(int(rand(30)) == 0) {
				$clit2 = "<font size=5>$kuname「<b>$kuwaza</b>」</font><p><b class=\"clit\">クリティカル！！</b>";
				$dmg2 = int($dmg2 * 2);
			}

			if($kumaxhp > ($kmaxhp * 2) and $i == 1) {
				if($kulv - $klv >= $level_sa){
				$sa = $kmaxhp;
				$clit1 .= "<p><font size=5><b>$knameの体から<font color=blue>青い炎</font>のようなものが涌き上がる···。</b></font>";
					if($kuhp_flg < $sa){$dmg1 = $dmg1;}
					elsif($dmg1 > $kuhp_flg - $sa){$dmg1 = $dmg1;}
					else{$dmg1 = $kuhp_flg - $sa;}
				}else{
					if(int(rand(4)) == 1){
				$sa = $kmaxhp;
				$clit1 .= "<p><font size=5><b>$knameの体から<font color=blue>青い炎</font>のようなものが涌き上がる···。</b></font>";
					if($kuhp_flg < $sa){$dmg1 = $dmg1;}
					elsif($dmg1 > $kuhp_flg - $sa){$dmg1 = $dmg1;}
					else{$dmg1 = $kuhp_flg - $sa;}
					}
				}
			}

			if($kmaxhp > ($kumaxhp * 2) and $i == 1) {
				if($klv - $kulv >= $level_sa){
				$kusa = $kumaxhp;
				$clit2 .= "<p><font size=5><b>$kunameの体から<font color=blue>青い炎</font>のようなものが涌き上がる···。</b></font>";
					if($khp_flg < $kusa){$dmg2 = $dmg2;}
					elsif($dmg2 > $khp_flg - $kusa){$dmg2 = $dmg2;}
					else{$dmg2 = $khp_flg - $kusa;}
				}else{
					if(int(rand(4)) == 1){
				$kusa = $kumaxhp;
				$clit2 .= "<p><font size=5><b>$kunameの体から<font color=blue>青い炎</font>のようなものが涌き上がる···。</b></font>";
					if($khp_flg < $kusa){$dmg2 = $dmg2;}
					elsif($dmg2 > $khp_flg - $kusa){$dmg2 = $dmg2;}
					else{$dmg2 = $khp_flg - $kusa;}
					}
				}
			}

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

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


	if(int(rand($sake1)) + int(rand($klp)) - int(rand($kulp))> $kaihiritu1) {
		$dmg2 = 0;
		$kawasi1 = "<P><FONT SIZE=4 COLOR=\"#DD6699\">$knameは身をかわした！</FONT><p>";
	}
	if(int(rand($sake2)) + int(rand($kulp)) - int(rand($klp))> $kaihiritu2) {
		$dmg1 = 0;
		$kawasi2 = "<P><FONT SIZE=4 COLOR=\"#DD6699\">$kunameは身をかわした！</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[$kuchara]"><table width="100%" border=1>
<tr><td class="b2">武器</td><td bgcolor="#fffff0" align="right">$kui_name</td></tr>
<tr><td class="b2">防具</td><td bgcolor="#fffff0" align="right">$kud_name<td></tr>
</table>
	</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>
	$kuname
	</TD>
	<TD>
	$kuhp_flg\/$kumaxhp
	</TD>
	<TD>
	$chara_syoku[$kusyoku]
	</TD>
	<TD>
	$kulv
	</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<p>
$com1 $clit1 $kawasi2 $kuname に <font class="dmg"><b>$dmg1</b></font> のダメ—ジを与えた。<p>
<BLOCKQUOTE>$com2 $clit2 $kawasi1 $kname に <font class="dmg"><b>$dmg2</b></font> のダメ—ジを与えた。</BLOCKQUOTE><p>
EOM

		$kuhp_flg = $kuhp_flg - $dmg1 - $dmgme2;

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

		$i++;
		$j++;
	}

	if($win) {
		$kkumite -= 1;
		$ktotal += 1;
		$kkati += 1;
		$exp = (10 * ($hajime - $kkumite));
		$kex = $kex + $exp;
		$gold = ($kulv * 5) + int(rand($kulp));
		if($kkumite <= 1){
	# ファイルロック
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }


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

	$hit=0;@rankernew=();
	foreach(@ranker){
		($rnumb,$pname,$pid,$ename) = split(/<>/);
		if($pid eq "$in{'id'}"){
			$hit=1;
			if($numb > $rnumb){
				unshift(@rankernew,"$numb<>$kname<>$kid<>$kuname<>\n");
			}
		}else{
			push(@rankernew,"$_");
		}
	}

	if(!$hit){
		unshift(@rankernew,"$numb<>$kname<>$kid<>$kuname<>\n");
	}

	@tmp = map {(split /<>/)[0]} @rankernew;
123

⌨️ 快捷键说明

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