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

📄 wars.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
		}
	}

	if ($PL_VALUES[12] != 6){$PL_VALUES[12]='6' if ($FORM{'mode'} ==1 && rand(255) > 253 && $NT_START==1) || (rand(255) > 253 && $NT_START==2) || (rand(255) > 253 && $NT_START==2) || (rand(500) == 1 && $NT_START==3);}else{$PL_VALUES[12]="$VS_VALUES[12]" if ($FORM{'mode'} !=1 && rand(255) > 200 && $NT_END==1) || (rand(255) > 253 && $NT_END==2) || (rand(255) > 253 && $NT_END==2) || (rand(500) == 1 && $NT_END==3);}

	if ($Pl_W[7] =~ m/1/){
		if (rand(255) > 240){print "<font color=#8000ff>敌机攻击系统被破坏</font><br>\n";$VS_VALUES[19]--;}
		if (rand(255) > 240){print "<font color=#8000ff>敌机防御系统被破坏</font><br>\n";$VS_VALUES[20]--;}
		if (rand(255) > 240){print "<font color=#8000ff>敌机回避系统被破坏</font><br>\n";$VS_VALUES[21]--;}
		if (rand(255) > 240){print "<font color=#8000ff>敌机命中系统被破坏</font><br>\n";$VS_VALUES[22]--;}
	}
	if ($Pl_W[7] =~ m/2/ && rand(255) > 240){print "<font color=#ff0080>$VS_VALUES[3]战斗不\能力\</font><br>\n";$VS_VALUES[25]=1;}
	if ($Vs_W[7] =~ m/2/ && rand(255) > 240){print "<font color=#ff0080>$PL_VALUES[3]战斗不\能力\</font><br>\n";$PL_VALUES[25]=1;}

	$WLDUMMYpl=$PL_WLV;$PL_WLV+=$PL_In[0] if $PL_WLV < $MAX_WEAPONLV*100;
	$WLDUMMYvs=$VS_WLV;$VS_WLV+=$VS_In[0] if $VS_WLV < $MAX_WEAPONLV*100;
	$PL_WLV=$MAX_WEAPONLV*100 if $PL_WLV > $MAX_WEAPONLV*100;
	$VS_WLV=$MAX_WEAPONLV*100 if $VS_WLV > $MAX_WEAPONLV*100;

	if(int($PL_WLV/$WEAPON_LVUP) > int($WLDUMMYpl/$WEAPON_LVUP) && $PL_WLV < $MAX_WEAPONLV*100){
		print "<font color=#f7e957>$FORM{'pname'}的$Pl_W[0]升级</font><br>\n";
		$PL_VALUES[14]=$PL_VALUES[14]-$WEAPON_LVUP;
	}
	if(int($VS_WLV/$WEAPON_LVUP) > int($WLDUMMYvs/$WEAPON_LVUP) && $VS_WLV < $MAX_WEAPONLV*100){
		print "<font color=#f7e957>$YOUSAINM的$Pl_W[0]升级</font><br>\n";
		$VS_VALUES[14]=$VS_VALUES[14]-$WEAPON_LVUP;
	}
		$PL_VALUES[9]="$PL_WN!$PL_WLV";
		$VS_VALUES[9]="$VS_WN!$VS_WLV";

	$TheEnd=1 if $FORM{'yousai'} && !$ResultBattle;
	$VC_VALUES[11]="$VS_VALUES[15]!$Y_HP[1]!$DATE" if $FORM{'yousai'};
	if(!$ResultBattle && $PL_VALUES[5]){$CL_VALUES[1]+=$VS_VALUES[0]+20;$CL_VALUES[1]+=5000 if $TheEnd==1;}
	elsif($ResultBattle && $PL_VALUES[5]){$CL_VALUES[1]+=int(($VS_VALUES[0]+20)/3);}
	$CL_VALUES[1]+=$VS_VALUES[0]+20;
	$CL_VALUES[1]='99999' if $CL_VALUES[1] > 99999;

	&LOCK;
	dbmopen (%PL,"$DBM_P",0666);
		$PL{"$FORM{'pname'}"}="@PL_VALUES";

	dbmclose %PL;

	if ($PL_Country ne "$NONE_NATIONALITY" && !$FORM{'b_mode'}){
		dbmopen (%CL,"$DBM_C",0666);
			$CL{"$PL_Country"}="@CL_VALUES" if $CL{"$PL_Country"} && $PL_Country ne "$NONE_NATIONALITY";

		dbmclose %CL;
	}

if ($ResultBattle==0){
        $prize=int(rand(100)+100);$seikaku=int(rand(7));
        if($wrecord eq ''){$wrecord=$wcount;$recnum=$cname;}
        $VALS="$FORM{'pname'}<>$PL_VALUES[0]<>$PL_VALUES[1]<>$PL_VALUES[2]<>$PL_VALUES[3]<>$PL_VALUES[4]<>$PL_VALUES[5]<>$PL_VALUES[6]<>$PL_VALUES[7]<>$PL_VALUES[8]<>$PL_VALUES[9]<>$PL_VALUES[10]<>$PL_VALUES[11]<>$seikaku<>$PL_VALUES[13]<>$PL_VALUES[14]<>$PL_VALUES[15]<>$PL_VALUES[16]<>$PL_VALUES[17]<>$PL_VALUES[18]<>$PL_VALUES[19]<>$PL_VALUES[20]<>$PL_VALUES[21]<>$PL_VALUES[22]<>$PL_VALUES[23]<>$PL_VALUES[24]<>$PL_VALUES[25]<>$PL_VALUES[26]<>$PL_VALUES[27]<>$PL_VALUES[28]<>$PL_VALUES[29]<>$PL_VALUES[30]<>1<>$wrecord<>$recnum<>$prize<>\n";
}else{
        $cname=$FORM{'pname'} if $cname eq '';$wcount=0 if $wcount eq '';
        $wcount++;$prize+=int(rand(100)+100)*$bairitu;$seikaku=int(rand(7));
        if($VS_VALUES[10] ne ''){$WEAPONS=$VS_VALUES[9];$VS_VALUES[9]=$VS_VALUES[10];$VS_VALUES[10]=$WEAPONS;}
        if($wrecord<=$wcount or $wrecord eq ''){$wrecord=$wcount;$recnum=$cname;}
        $VALS="$cname<>$VS_VALUES[0]<>$VS_VALUES[1]<>$VS_VALUES[2]<>$VS_VALUES[3]<>$VS_VALUES[4]<>$VS_VALUES[5]<>$VS_VALUES[6]<>$VS_VALUES[7]<>$VS_VALUES[8]<>$VS_VALUES[9]<>$VS_VALUES[10]<>$VS_VALUES[11]<>$seikaku<>$VS_VALUES[13]<>$VS_VALUES[14]<>$VS_VALUES[15]<>$VS_VALUES[16]<>$VS_VALUES[17]<>$VS_VALUES[18]<>$VS_VALUES[19]<>$VS_VALUES[20]<>$VS_VALUES[21]<>$VS_VALUES[22]<>$VS_VALUES[23]<>$VS_VALUES[24]<>$VS_VALUES[25]<>$VS_VALUES[26]<>$VS_VALUES[27]<>$VS_VALUES[28]<>$VS_VALUES[29]<>$VS_VALUES[30]<>$wcount<>$wrecord<>$recnum<>$prize<>\n";
}
        open(OUT,">$winforder$winfile");
	print OUT $VALS;
	close(OUT);
        chmod(0666,"$winforder$winfile");


	&UNLOCK;

	print << "	END_OF_HTML";
	</td></tr></table><table border=0 cellspacing=0>
	<form action=$SCRIPTNM method=POST target=Main>
	<input type=hidden name=cmd value=MAIN_FRAME>
	<input type=hidden name=pname value=$FORM{'pname'}>
	<input type=hidden name=pass value=$FORM{'pass'}><tr><td>
	<input class=buttonA value="" onmouseover="value='返回';" style="BACKGROUND-IMAGE: url(img/button2.jpg)" onClick=\"parent.Sub.location.replace(\'$SCRIPTNM?LOGO\');\" onmouseout="value='';" type=submit>
	</td><input id=ccSeeURL name=ccSeeURL type=hidden value='$SCRIPTNM'>
<input id=ccSeeFormInputCharset name=ccSeeFormInputCharset type=hidden value='1'>
<input id=ccSeeFormOrigitalCharset name=ccSeeFormOrigitalCharset type=hidden value='4'>
</form>
	END_OF_HTML



}

sub SYUSEI{
		$AT="$_[2]_AttPoint";$DE="$_[2]_DefPoint";$SP="$_[2]_SpPoint";
	if($_[0] eq 'm'){
		$MsnStyle="$_[2]_MsnStyle";
		if   ($_[1] == 1){$$MsnStyle="普通攻击";}
		elsif($_[1] == 2){$$AT*=1.3;$$DE*=0.7;$$MsnStyle="突击";}
		elsif($_[1] == 3){$$AT*=0.8;$$DE*=2;$$MsnStyle="防御";}
		elsif($_[1] == 4){$$AT*=0.7;$$SP*=2;$$MsnStyle="防守反击";}
		elsif($_[1] == 5){$$DE*=0.8;$$MsnStyle="狙击";
			$Pl_W[2]+=20 if $_[2] eq 'Pl';$Vs_W[2]+=20 if $_[2] eq 'Vs';
		}elsif($_[1] == 6){$$AT*=2;$$DE/=5;$$MsnStyle="闪身";}
		elsif($_[1] == 7){$$AT*=0.9;$$SP*=3;$$MsnStyle="偷袭";
			$Pl_W[2]+=10 if $_[2] eq 'Pl';$Vs_W[2]+=10 if $_[2] eq 'Vs';
		}elsif($_[1] == 8){$$MsnStyle="全弹放出";
			($Pl_W[2]-=35,$Pl_W[3]*=2,$Pl_W[4]*=2) if $_[2] eq 'Pl';
			($Vs_W[2]-=35,$Vs_W[3]*=2,$Vs_W[4]*=2) if $_[2] eq 'Vs';
		}else{$$MsnStyle="普通攻击";}
	}
	if($_[0] eq 's'){
		if   ($_[1] eq "1"){$$AT*=1.2;$$DE-=2;}
		elsif($_[1] eq "2"){$$AT*=1.2;$$WM-=5;}
		elsif($_[1] eq "3"){$$AT*=0.9;$$SP+=3;}
		elsif($_[1] eq "4"){$$WM+=5;}
		elsif($_[1] eq "5"){$$AT*=1.3;$$WM+=10;$$DE-=4;}
		elsif($_[1] eq "6"){$$AT*=1.5;$$DE*=1.5;$$SP*=4;$$WM*=1.5;}
	}
}

sub LOG01{
	&HEADER;
        &DBM_INPORT(C);
print"<center><BR>地球区域势力  围图<BR><BR><table><tr>";
        $i=0;
        while (my($key,$val) = each %C){
        @VALS = split(/\s/,$val);
        $CNAME[$i]=$key;
        $CCOLOR[$i]=$VALS[0];

print"<td bgcolor=$CCOLOR[$i]><font >●</font></td><td><b>$CNAME[$i]</b></td>";

        $i++;
        }
print"<tr></table>";

	&LOCK;
        foreach $no (0 .. 10){
        open(IN,"$winforder$no\.cgi");
        $cdat[$no] = <IN>;
        close(IN);
        ($cname[$no],$c_0[$no],$c_1[$no],$c_2[$no],$c_3[$no],$c_4[$no],$c_5[$no],$c_6[$no],$c_7[$no],$c_8[$no],$c_9[$no],$c_10[$no],$c_11[$no],$c_12[$no],$c_13[$no],$c_14[$no],$c_15[$no],$c_16[$no],$c_17[$no],$c_18[$no],$c_19[$no],$c_20[$no],$c_21[$no],$c_22[$no],$c_23[$no],$c_24[$no],$c_25[$no],$c_26[$no],$c_27[$no],$c_28[$no],$c_29[$no],$c_30[$no],$wcount[$no],$wrecord[$no],$recnum[$no],$prize[$no]) = split(/<>/,$cdat[$no]);

        foreach $cno (0 .. $i){
        if($CNAME[$cno] eq $c_5[$no]){$areacolor[$no]="$CCOLOR[$cno]";last;}
        }

        }
	&UNLOCK;

print << "-----END-----";

<table>
<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=$areacolor[10]><font color=$areacolor[10]><a href="#TOP" title="$c_5[10] 贝尔法斯特">●</a></font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[8]><font color=$areacolor[8]><a href="#TOP" title="$c_5[8] 奥德萨">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[6]><font color=$areacolor[6]><a href="#TOP" title="$c_5[6] 北京">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[1]><font color=$areacolor[1]><a href="#TOP" title="$c_5[1] 纽约">●</a></font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=$areacolor[2]><font color=$areacolor[2]><a href="#TOP" title="$c_5[2] 加里福尼亚">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[7]><font color=$areacolor[7]><a href="#TOP" title="$c_5[7] 马得拉斯">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=$areacolor[4]><font color=$areacolor[4]><a href="#TOP" title="$c_5[4] 夏威夷">●</a></font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[3]><font color=$areacolor[3]><a href="#TOP" title="$c_5[3] 扎布罗">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[9]><font color=$areacolor[9]><a href="#TOP" title="$c_5[9] 乞力马扎罗">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=$areacolor[5]><font color=$areacolor[5]><a href="#TOP" title="$c_5[5] 托灵顿">●</a></font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

<tr><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=green><font color=green>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td><td bgcolor=skyblue><font color=skyblue>●</font></td></tr>

</table>
-----END-----

if($c_5[1] eq $c_5[2] and $c_5[2] eq $c_5[3] and $c_5[3] eq $c_5[4] and $c_5[4] eq $c_5[5] and $c_5[5] eq $c_5[6] and $c_5[6] eq $c_5[7] and $c_5[7] eq $c_5[8] and $c_5[8] eq $c_5[9] and $c_5[9] eq $c_5[10]){
print "<br><br>月<br><br><table><tr><td bgcolor=black><font color=black>●</font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=black><font color=black>●</font></td></tr><tr><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=silver><font color=silver>●</font></td></tr><tr><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=$areacolor[0]><font color=$areacolor[0]><a href=\"#TOP\" title=\"$c_5[0] 格兰纳达薄呢\">●</a></font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=silver><font color=silver>●</font></td></tr><tr><td bgcolor=black><font color=black>●</font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=silver><font color=silver>●</font></td><td bgcolor=black><font color=black>●</font></td></tr></table>";
}
        print "</center>";
	print "$COMMENT_2" if $COMMENT_2;
	&FOOTER;
}
12345

⌨️ 快捷键说明

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