📄 ebs_sub5.cgi
字号:
&CUSTOM_HEADER('Main');
if ($PL_VALUES[6] == 1 && $PL_VALUES[5]){
&JScfm(checkInteam,"解雇 。 ？");
print "<tr><td $BgColor><br> <br>\n";
print " <select name=delunit $STYLE_L>\n";
foreach $Key (sort {$P{$b} <=> $P{$a}} keys %P){
@VALUES = split(/\s/,$P{$Key});
if ($PL_VALUES[5] && $PL_VALUES[5] eq $VALUES[5] && $VALUES[6] ne 1)
{print "<option value=\"$Key\">$Key\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 COMMENT {
&CUSTOM_HEADER('Main');
&JScfm(checkComment,"自国的发言变更？？");
&JScfm(checkBaCom,"战斗的台词变更？？");
&JScfm(checkHiCom,"必杀技名变更？");
&JScfm(checkCiCom,"超必杀技名变更？");
print << " -----END-----";
<tr><td $BgColor><b>自国发言变更</b><br>
<input type="text" name="com" size="70" maxlength=5 value="" $STYLE_L><br>
<span style="font-size:13px;">自国发言入後、必须按「变更」按钮o。
</span><br>
<input name="Cmode" type="submit" value="变更" $STYLE_B1 onClick=\"return checkComment()\">
<input type="reset" value="清空" $STYLE_B1 ;\"><BR>
<b>战斗台词变更</b><br>
<input type="text" name="bacom" size="70" maxlength=10 value="" $STYLE_L><BR>
<span style="font-size:13px;">战斗台词变更之後、必须按「台词 」按钮。
</span><br>
<input name="Cmode" type="submit" value="台词" $STYLE_B1 onClick=\"return checkBaCom()\">
<input type="reset" value="清空" $STYLE_B1 ;\"><br>
<b>必杀技名</b><br>
<input type="text" name="hicom" size="70" maxlength=10 value="" $STYLE_L><BR>
<span style="font-size:13px;">必杀技入後、必须按「必杀」按钮。
</span><br>
<input name="Cmode" type="submit" value="必杀" $STYLE_B1 onClick=\"return checkHiCom()\">
<input type="reset" value="清空" $STYLE_B1 ;\"><br>
<b>超必杀技名</b><br>
<input type="text" name="cicom" size="70" maxlength=10 value="" $STYLE_L><BR>
<span style="font-size:13px;">超必杀技名入力後按「超必」按钮。</span><br>
<input name="Cmode" type="submit" value="超必" $STYLE_B1 onClick=\"return checkCiCom()\">
<input type="reset" value="清空" $STYLE_B1 ;\"><br>
</td></tr></form></table>
-----END-----
&FOOTER;
}
sub MAKE_K2{
&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]");
&CUSTOM_HEADER('Main');
&JScfm(checkkoui,"要把王位让给别人？？");
print "<tr><td $BgColor colspan=4>准备把王未让给谁呢呢？<br><B>国民一览 </B><BR>\n";
print "<select name=atotugi $STYLE_L>\n";
foreach $Key (sort {$P{$b} <=> $P{$a}} keys %P){
@VALUES = split(/\s/,$P{$Key});
if ($VALUES[5] eq $PL_VALUES[5] && $FORM{'pname'} ne $Key)
{print "<option value=\"$Key\">$Key\n";}
}
print "</select>\n";
print "<input type=submit name=\"Cmode\" value=\"继承\" $STYLE_B1 onClick='";
print "return checkkoui()'>" ;
print "</td></tr>";
}
sub FACE_C{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
&CUSTOM_HEADER('Main');
print "<script language=\"JavaScript\">\nfunction changeImg(){num=document.Ms.icon.value;document.msImg.src=\"$IMG_FOLDER3/\"+ num +\".gif\";}\n</script>";
&JScfm(checkface,"要更换脸谱，确定吗？");
print "<tr><td $BgColor colspan=4><b>选择你喜欢的脸谱吧</b><br> $20000<br>\n";
print " <img src=\"$IMG_FOLDER3/$PL_VALUES[37].gif\" name=\"msImg\"> <a href=ebs.cgi?ICON2 target=face><font size=4>脸谱图库</font></a><br>\n";
print " <select name=icon $STYLE_L onChange=\"changeImg()\">\n";
foreach (0..$ICON2){
print "<option value=\"$_\"";
print " selected\n"if $_ eq $PL_VALUES[37];
print ">ICON No.$_\n";
}
print "<div align=right>\n";
print "<input name=\"Cmode\" type=submit value=\"脸谱变更\" $STYLE_B1 onClick='";
print "return checkface()'>" ;
print "</div></td></tr>\n";
}
sub BANK_kk{
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");
&DBM_CONVERT('C',"$PL_VALUES[5]");&UNLOCK;
&CUSTOM_HEADER('Main');
dbmopen (%P,"$DBM_P",0666); @ENTRy=keys %P; dbmclose %L;
$ENTRYS=@ENTRy;
$yokin=$PL_VALUES[40] if $PL_VALUES[40];
$yokin="0" if !$PL_VALUES[40];
print "<tr><td $BgColor width=350><table cellpadding=0 cellspacing=0 style=font-size:13px; width=100%><tr><td nowrap><tr><td nowrap width=50%><b>銀行大廳</b></td><td >存款額：\$$yokin</td></tr></table>";
print " 您好，歡迎您來到銀行，有什麽能爲您效勞的嗎？？<br>\n";
print "<input type=radio name=bank checked value=bank1>支援國家建設"if $PL_VALUES[5] && @CL_VALUES;
print " <input type=radio name=bank value=bank2>寄錢"if $ENTRYS>=2;
print " <input type=radio name=bank value=bank3>存錢"; print " <input type=radio name=bank value=bank4>取錢"if $PL_VALUES[40]>0; print "<br><table cellpadding=0 cellspacing=0 style=font-size:13px; width=100%><tr><td nowrap width=50%>";
print " □金額設定（半角数字）<br>";
print " ＄<input type=text name=money size=8 maxlength=8 $STYLE_L></td>";
print "<td> </td><td nowrap width=50%> □請選擇收錢人。<br>";
print " <select name=soukin $STYLE_L>\n";
foreach $Key (sort {$P{$b} <=> $P{$a}} keys %P){
@VALUES = split(/\s/,$P{$Key});
if ($Key ne "$FORM{pname}"){
print "<option value=\"$Key\">$Key \n";}
}
print "</select>\n";
print "</td></table></td></tr><tr><td $BgColor></td></tr><tr><td $BgColor>";
&JScfm(checkbank,"銀行的手續都辦好了嗎？？");
print "<div align=center><input name=Cmode type=submit value=手續 $STYLE_B1 onClick=\"return checkbank()\">";
print "</td></tr></form></table>";
&FOOTER;
}
sub BOUGU2 {
&CUSTOM_HEADER('Main');
require "./$LOG_FOLDER/_bougu.data";
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
local($BG_A) = split(/!/,$PL_VALUES[41]);
@BG_sA=split(/\,/,$BOUGU_LIST{"$BG_A"});
$Pl_BOUGUNameA="$BG_sA[0]";
if ($BG_sA[0]){
$PartofSB.="<option value=1>$Pl_BOUGUNameA" if $BG_sA[0];
print "<SCRIPT language=\"JavaScript\">\nfunction checkMoney (){\n";
print "num=document.Ms.sellb.value;\nif (num==1){var bn='$Pl_BOUGUNameA';var mn='".int($BG_sA[5]/3)."';}\n";
print "if (confirm(bn + '\$' + mn + '賣出') == true){\n";
print "window.location.replace(\"./dummy.html\");return true;}else{return false}\n";
print "}\n</script>\n<tr><td $BgColor><b>輔助裝置出售</b><div align=right><select name=sellb $STYLE_L>";
print "$PartofSB</select><input type=submit name=Cmode value=輔助裝置出售 ";
print "$STYLE_B1 onClick=\"return checkMoney()\"></div></td></tr>";
}
if (!$BG_sA[0]){
print "<tr><td $BgColor><b>辅助装置購入</b><table style=\"font-size:9pt;\">\n";
&JScfm(checkBuy,"确定购买该项目?？");
local($Flag=0);
$buy="<select name=buyb $STYLE_L>";
while (my($key,$value) = each %BOUGU_LIST){
if (length($key) == 1){
my @ByB = split(/\,/,$value);
if($ByB[5] <= $PL_VALUES[8] && $ByB[8] != 1 && $ByW[8] != 4 && $ByW[8] != 5){
print "<tr><td> $ByB[0]</td><td>\$$ByB[5]</td></tr>";
$buy.="<option value=$key>$ByB[0]\n";$Flag++;}
}
}
if ($Flag>0){$buy.="</select><input name=\"Cmode\" type=submit value=辅助購入
$STYLE_B1 onClick=\"return checkBuy()\">\n";}else{$buy="所持金额不足。";$Flag++;}
print "</table><div align=right>$buy</div></td></tr>\n";
}
if (!$PL_VALUES[41] && $Flag==0 && $WeCH ==0){
print "<tr><td $BgColor>実行确定。</td></tr>\n";}
print "</form></table>\n";&FOOTER;
}
sub WEX {
&CUSTOM_HEADER('Main');
require "./$LOG_FOLDER/$HASH_DATA";
require "./$LOG_FOLDER/_ex.data";
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
local($WN_A,$WLV_A,$WEX_A) = split(/!/,$PL_VALUES[9]);
local($WN_B,$WLV_B,$WEX_B) = split(/!/,$PL_VALUES[10]);
local($WN_C,$WLV_C,$WEX_C) = split(/!/,$PL_VALUES[11]);
local($WN_D,$WLV_D,$WEX_D) = split(/!/,$PL_VALUES[35]);
local($WN_E,$WLV_E,$WEX_E) = split(/!/,$PL_VALUES[36]);
@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});
@WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});
@WN_sD=split(/\,/,$WEAPON_LIST{"$WN_D"});
@WN_sE=split(/\,/,$WEAPON_LIST{"$WN_E"});
@WEX_sA=split(/\,/,$WEAPONEX_LIST{"$WEX_A"});
@WEX_sB=split(/\,/,$WEAPONEX_LIST{"$WEX_B"});
@WEX_sC=split(/\,/,$WEAPONEX_LIST{"$WEX_C"});
@WEX_sD=split(/\,/,$WEAPONEX_LIST{"$WEX_D"});
@WEX_sE=split(/\,/,$WEAPONEX_LIST{"$WEX_E"});
$WLV_A=int $WLV_A/$WEAPON_LVUP;
$WLV_B=int $WLV_B/$WEAPON_LVUP;
$WLV_C=int $WLV_C/$WEAPON_LVUP;
$WLV_D=int $WLV_D/$WEAPON_LVUP;
$WLV_E=int $WLV_E/$WEAPON_LVUP;
$Pl_WeaponNameA="$WN_sA[0](Lv$WLV_A)$WEX_sA[0]";
$Pl_WeaponNameB="$WN_sB[0](Lv$WLV_B)$WEX_sB[0]";
$Pl_WeaponNameC="$WN_sC[0](Lv$WLV_C)$WEX_sC[0]";
$Pl_WeaponNameD="$WN_sD[0](Lv$WLV_D)$WEX_sD[0]";
$Pl_WeaponNameE="$WN_sE[0](Lv$WLV_E)$WEX_sE[0]";
print "<tr><td $BgColor><b>武器改造</b><table style=\"font-size:9pt;\">\n";
&JScfm(checkBuy,"武器改造？");
local($Flag=0);
$buy2="<select name=buyww $STYLE_L>";
while (my($key,$value) = each %WEAPONEX_LIST){
# if (length($key) == 1){
my @ByW = split(/\,/,$value);
if($PL_VALUES[24]>=500){
print "<tr><td> $ByW[0]</td><td>\＄1000000</td></tr>";
$buy2.="<option value=$key>$ByW[0]\n";$Flag++;}
# }
}
if ($Flag>0){$buy2.="</select><input name=\"Cmode\" type=submit value=武器
$STYLE_B1 onClick=\"return checkBuy()\">\n";}else{$buy2="金錢或者熟練不足。";$Flag++;}
print "</table><div align=right>$buy2</div></td></tr>\n";
if ($Flag==0 && $WeCH ==0){
print "<tr><td $BgColor>実行。</td></tr>\n";}
print "</form></table>\n";&FOOTER;
}#--- 18
1;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -