📄 ebs_sub5.cgi
字号:
foreach $Key (sort {$b <=> $a} keys %NOTE){$c++;
if ($c <= $HISTORY_MAX){
print "<tr><td $BgColor><b>".&DATE_DECORD($Key)."</b> $NOTE{$Key}</td></tr>\n";
}else{delete $NOTE{$Key};}
}
dbmclose %NOTE;
print "</table>\n";
&FOOTER;
}
sub COMMENT {
&CUSTOM_HEADER('Main');
&JScfm(checkComment,"提案变更，确认吗？");
print << " -----END-----";
<tr><td $BgColor><b>提案变更</b><br>
<input type="text" name="com" size="70" maxlength="30" value="" $STYLE_L><br>
<span style="font-size:13px;">提案输入以後，必须按回车或者确定键才能刷新变更</span><br>
<input name="Cmode" type="submit" value="变更" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick=\"return checkComment()\">
<input type="reset" value="清除" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\"></td></tr></form></table>
-----END-----
&FOOTER;
}
sub SPECIAL{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
&CUSTOM_HEADER('Sub');
print "<tr><td $BgColor><br>";
$sp.= "<input name=\"custom\" type=\"submit\" value=\"銀行\" $STYLE_B1 onClick=\"document.Ms.cmd.value='BANK_KK';\">";
$sp.= "<input name=\"custom\" type=\"submit\" value=\"建国\" $STYLE_B1 onClick=\"document.Ms.cmd.value='MAKE_C';\">" if $PL_VALUES[8] > $MAKE_COUNTRY && !$PL_VALUES[6];
$sp.= "<input name=\"custom\" type=\"submit\" value=\"部队\" $STYLE_B1 onClick=\"document.Ms.cmd.value='MAKE_T';\">"if $PL_VALUES[6]!=1 && $PL_VALUES[5];
$sp.= "<input name=\"custom\" type=\"submit\" value=\"战略\" $STYLE_B1 onClick=\"document.Ms.cmd.value='MISSION';\">" if $PL_VALUES[6] == 1 && $PL_VALUES[5];
$sp.= "<input name=\"custom\" type=\"submit\" value=\"要塞强化\" $STYLE_B1 onClick=\"document.Ms.cmd.value='BOSS';\">" if $PL_VALUES[6] != 0 && $PL_VALUES[5];
$sp.= "<input name=\"custom\" type=\"submit\" value=\"部队解散\" $STYLE_B1 onClick=\"document.Ms.cmd.value='DEL_U';\">" if $PL_VALUES[6] == 1 && $PL_VALUES[5] && $PL_VALUES[8]>=$MAKE_TEAM*2;
$sp.= "<input name=\"custom\" type=\"submit\" value=\"继承\" $STYLE_B1 onClick=\"document.Ms.cmd.value='MAKE_K';\">" if $PL_VALUES[5] && $PL_VALUES[6] == 1;
$sp='目前没有可以执行的特殊指令' if !$sp;
print " $sp <br><br></td></tr></form></table>";
print "</form></table>\n";
&FOOTER;
}
sub MISSION2{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&DBM_INPORT('C');&UNLOCK;
@C_VALUES = split(/\s/,$C{"$PL_VALUES[5]"});
&ERROR if $PL_VALUES[6]!=1 || !$PL_VALUES[5] || !$C{"$PL_VALUES[5]"};
&ERROR('ERROR',"现在$C_VALUES[5]作战正在发动中") if $C_VALUES[7] > time;
&CUSTOM_HEADER('Main');
print "<tr><td $BgColor align=right><br>";
while (my($key,$val) =each %C) {
if ($PL_VALUES[5] ne "$key"){$op.= "<option value=\"$key\">$key\n";}
}
&ERROR('攻略国还没有指定') if !$op;
print "<input type=hidden name=dmmy>";
print "国费<b>\$ $C_VALUES[1]</b><br>";
print "战略费<input type=text name=sikin size=10 maxlength=10 style=\"border:none;background:#000000;text-align:right;\"><br>";
print "作战名<input type=text name=mname size=25 maxlength=15 class=button2><br>";
print "战略对象：<select name=main $STYLE_L onChange=\"YOSAN()\">$op</select><br>";
print "第一军团 $C_VALUES[2] 战略：<select name=u1 $STYLE_L onChange=\"YOSAN()\">$op</select><br>" if $C_VALUES[2];
print "第二军团 $C_VALUES[3] 战略：<select name=u2 $STYLE_L onChange=\"YOSAN()\">$op</select><br>" if $C_VALUES[3];
print "第叁军团 $C_VALUES[4] 战略：<select name=u3 $STYLE_L onChange=\"YOSAN()\">$op</select><br>" if $C_VALUES[4];
print "战略时限：<select name=kikan $STYLE_L onChange=\"YOSAN()\"><option value=1>2小时<option value=2>4小时<option value=3>6小时</select><br>";
print "<input name=\"Cmode\" type=\"submit\" value=\"发动\" class=button2 onClick=\"return ChMn()\">";
print "<script language=\"JavaScript\">\nfunction YOSAN(){\nvar mm=8000;\n";
print "if (document.Ms.main.selectedIndex != document.Ms.u1.selectedIndex){mm+=1000;}\n" if $C_VALUES[2];
print "if (document.Ms.main.selectedIndex != document.Ms.u2.selectedIndex){mm+=1000;}\n" if $C_VALUES[3];
print "if (document.Ms.main.selectedIndex != document.Ms.u3.selectedIndex){mm+=1000;}\n" if $C_VALUES[4];
print "if (document.Ms.u1.selectedIndex == document.Ms.u2.selectedIndex){mm-=1000;}\n" if $C_VALUES[2] && $C_VALUES[3];
print "if (document.Ms.u2.selectedIndex == document.Ms.u3.selectedIndex){mm-=1000;}\n" if $C_VALUES[3] && $C_VALUES[4];
print "if (document.Ms.u1.selectedIndex == document.Ms.u3.selectedIndex){mm-=1000;}\n" if $C_VALUES[2] && $C_VALUES[4];
print "if (document.Ms.u1.selectedIndex != document.Ms.u2.selectedIndex && document.Ms.u1.selectedIndex != document.Ms.u3.selectedIndex){mm+=3000;}\n" if $C_VALUES[2] && $C_VALUES[3] && $C_VALUES[4];
print << " -----END-----";
total=(eval(document.Ms.kikan.selectedIndex) + 1)*mm;
document.Ms.sikin.value='\$'+total;
document.Ms.dmmy.value=total;
if (total > $C_VALUES[1]){document.Ms.sikin.style.color='#ffadac';}
}
function ChMn(){
if (document.Ms.dmmy.value > $C_VALUES[1]){alert('资金不足');return false;}
if (document.Ms.mname.value == ''){alert('没有指定作战名');return false;}
if (confirm('战略就要发动。\\n你确认吗？') == true){return true;}else{return false;}
}
YOSAN();
</script></td></tr></form></table>
-----END-----
&FOOTER;
}
sub BOSS2{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&DBM_CONVERT('C',"$PL_VALUES[5]");&UNLOCK;
&ERROR if $PL_VALUES[6]==0 || !$PL_VALUES[5] || !@CL_VALUES;
&CUSTOM_HEADER('Main');
print "<tr><td $BgColor><br>";
print "<b>国费：\$ $CL_VALUES[1]</b><br>";
@Y_HP=split(/!/,$CL_VALUES[11]);
$Y_HP[0]=$Y_HP[0]+(time-$Y_HP[2])*$HP_REPAIR*2;$Y_HP[0]=$Y_HP[1] if $Y_HP[0] > $Y_HP[1];
@Y_ST=split(/!/,$CL_VALUES[12]);
print "<input type=hidden name=yousaiCheck value=$DATE";
print "<b><span style=\"font-size:20px;\">HP</span> $Y_HP[0]/$Y_HP[1]</b> ";
print "<input name=\"Cmode\" type=\"submit\" value=\"回覆少\"$STYLE_B1 \"";
print " onClick=\"return ChMn('HP的回覆（少）','1000')\">";
print "<input name=\"Cmode\" type=\"submit\" value=\"回覆大\"$STYLE_B1 \"";
print " onClick=\"return ChMn('HP的回覆（大）','10000')\">";
if ($PL_VALUES[6] == 1){
print "<input name=\"Cmode\" type=\"submit\" value=\"HP强化\" $STYLE_B1 ;\"";
print " onClick=\"return ChMn('HP的强化','50000')\"><br><b>攻击力</b> ";
print "<b style=\"color:#ff0080;\">NT</b>+$Y_ST[0] ";
print "<input name=\"Cmode\" type=\"submit\" value=\"攻击力强化\" $STYLE_B1 ;\"";
print " onClick=\"return ChMn('攻击力的强化','10000')\"><br><b>防御力</b> ";
print "<b style=\"color:#ff0080;\">NT</b>+$Y_ST[1] ";
print "<input name=\"Cmode\" type=\"submit\" value=\"防御力强化\" $STYLE_B1 ;\"";
print " onClick=\"return ChMn('防御力的强化','10000')\"><br><b>命中力</b> ";
print "<b style=\"color:#ff0080;\">NT</b>+$Y_ST[2] ";
print "<input name=\"Cmode\" type=\"submit\" value=\"命中力强化\" $STYLE_B1 ;\"" ;
print " onClick=\"return ChMn('命中力的强化','10000')\"><br>";
}
print << " -----END-----";
<script language="JavaScript">
function ChMn(msg,mny){
if (mny > $CL_VALUES[1]){alert('资金不足');return false;}
if (confirm(msg+'累计\\n费用\$'+mny+'）\\n确认吗？') == true){
return true;}else{return false;}
}
</script>
</td></tr></form></table>
-----END-----
&FOOTER;
}
sub MAKE_C2{
&LOCK;&DBM_INPORT('C');&UNLOCK;
&CUSTOM_HEADER('Main');
my@C=%C;my$C=@C/2;
if ($C >= $COUNTRY_MAX){print "<tr><td $BgColor>$COUNTRY_MAX已经超过了限制的国家数量</td></tr></table>\n";
}else{
print << " -----END-----";
<tr><td $BgColor><b>建国费用 \$$MAKE_COUNTRY</b><br> 国家名字
<input type=text name=\"cname\" size=25 maxlength=20 $STYLE_L><br> 国家颜色<br>
<input type=\"radio\" name=\"cl\" value=\"#C0C0C0\" checked><font color=#C0C0C0>■</font>
-----END-----
$br=1;
foreach $Ccol(@COLOR){$br++;
print "<input type=\"radio\" name=\"cl\" value=$Ccol><font color=$Ccol>■</font>\n";
if ($br==5){print"<br> \n";$br=0;}
}
&JScfm(checkCountry,"建立国家，你确认吗？");
print "<input name=\"Cmode\" type=submit value=建国 $STYLE_B1 onClick=\"if (document.Ms.cname.value!=''){if (document.Ms.cname.value.match('[&! =.,<>]') != null){alert('不要使用非法字。');return false;}else{return checkCountry()}}else{alert('重复国家名称。');return false;}\">\n";
print "<input type=reset value=清除 $STYLE_B1 ;\"></td></tr></form></table>\n";
}
&FOOTER;
}
sub MAKE_T2{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&DBM_CONVERT('C',"$PL_VALUES[5]");&UNLOCK;
&CUSTOM_HEADER('Main');
if ($PL_VALUES[6] != 1 && $PL_VALUES[5]){
if (!$PL_VALUES[28] && ($CL_VALUES[2] || $CL_VALUES[3] || $CL_VALUES[4])){
&JScfm(checkInteam,"加入部队，确认吗？");
print "<tr><td $BgColor><b>入队</b><br> 部队<br>\n";
print " <select name=inunit $STYLE_L>\n";
for ($i=2;$i <= 4; $i++){
if ($CL_VALUES[$i]){print "<option value=\"$CL_VALUES[$i]\">$CL_VALUES[$i]\n";}
}
print "</select>\n";
print "<input name=\"Cmode\" type=submit value=\"入队\"";
print " class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick=\"return checkInteam()\"></td></tr>\n";
}elsif ($PL_VALUES[28]){
&JScfm(checkOutteam,"离开部队，确认吗？");
print "<tr><td $BgColor><b>离队</b><br> 部队 $PL_VALUES[28]\n";
print "<input name=\"Cmode\" type=submit value=\"离队\"";
print " class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick=\"return checkOutteam()\"></td></tr>\n";
}
if (!$PL_VALUES[28] && $PL_VALUES[8] >= $MAKE_TEAM && $PL_VALUES[0] >= 150 &&
(!$CL_VALUES[2] || !$CL_VALUES[3] || !$CL_VALUES[4]) && $PL_VALUES[5]){
print << " -----END-----";
<SCRIPT language="JavaScript">
function checkUnit(){
if (document.Ms.uname.value == ''){alert("部队名称没有输入");return false; }
else if (confirm('建立部队，确认吗？') == true){
window.location.replace("./$MAIN_SCRIPT?LOGO");return true;
}else{return false}
}
</script>
<tr><td $BgColor><b>部队成立</b><br>
<b>成立费用 \$$MAKE_TEAM</b><br>
部队的名字
<input type=text name="uname" size=25 maxlength=15 $STYLE_L>
<input name="Cmode" type=submit value="部队编成" class=button2 onClick="return checkUnit()"></td></tr>
-----END-----
}
print "</form></table>\n";
}else{print "<tr><td $BgColor><b>还不能使用部队成立的指令</b></td></tr></table>";}
&FOOTER;
}
sub DEL_U2{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&DBM_CONVERT('C',"$PL_VALUES[5]");&UNLOCK;
&CUSTOM_HEADER('Main');
if ($PL_VALUES[6] == 1 && $PL_VALUES[5] && @CL_VALUES){
if (!$PL_VALUES[28] && ($CL_VALUES[2] || $CL_VALUES[3] || $CL_VALUES[4])){
&JScfm(checkInteam,"解散部队要花费总帅个人一倍的建队费用，确定吗？");
print "<tr><td $BgColor><b>解散</b><br> 部队<br>\n";
print " <select name=delunit $STYLE_L>\n";
for ($i=2;$i <= 4; $i++){
if ($CL_VALUES[$i]){print "<option value=\"$CL_VALUES[$i]\">$CL_VALUES[$i]\n";}
}
print "</select>\n";
print "<input name=\"Cmode\" type=submit value=\"解散\"";
print " class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick=\"return checkInteam()\"></td></tr>\n";
}
print "</form></table>\n";
}else{print "<tr><td $BgColor><b>还不能使用解散部队的指令</b></td></tr></table>";}
&FOOTER;
}
sub DEL_UNIT{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&DBM_CONVERT('C',"$PL_VALUES[5]");&UNLOCK;
@pair = split(/\;/, $ENV{'HTTP_COOKIE'});
foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
@pairs = split(/\,/, $DUMMY{'EB'});
foreach (@pairs) {my($key, $value) = split(/\:/, $_);$COOKIE{"$key"} = $value;}
&ERROR('COOKIE 無i 。') if !$COOKIE{'pname'};
&DBM_INPORT(P);
@PL_VALUES = split(/\s/,$P{"$COOKIE{'pname'}"});
&DBM_CONVERT('C',"$PL_VALUES[5]");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -