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

📄 wea.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
#!/usr/bin/perl


############################################################################
#
#	
#
#	masimaroさんのＨＰ	http://members.jcom.home.ne.jp/masimaro/
#	
#####   设定个所   ##########################################################

$SCRIPTNM = "wea.cgi";	#名字
$BUKIDB = "wea/wea";	#武器库檔案

require 'ebs_sub1.cgi';		
require "./$LOG_FOLDER/$HASH_DATA";	#不可變更
$TABLE_STYLE = "bordercolor=#404040 border=1 cellspacing=0 style=\"font-size:10pt\"";#<TABLE>のスタイルです。

#########################################################################
#これ以下はプログラム部分となります。

if($SUB){&ERROR('非法進入。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';}

@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;
}

&DBM_INPORT(P);
@LOOK = split(/\s/,$P{"$COOKIE{'pname'}"});

if(crypt($COOKIE{'pass'},$LOOK[2]) ne $LOOK[2]){&ERROR('密碼錯誤','請從新登陸。');}


!$SUB && ($SUB='MAIN');
&$SUB;

sub INPORT {
tie %NOTE,AnyDBM_File,"$BUKIDB",O_RDONLY,0666;
%BUKI=%NOTE;
untie %NOTE;
}


sub MAIN {

&INPORT;
&HEADER;

while (($Name,$Val) = each %BUKI){
if($COOKIE{'pname'} ne $Name){$option = "$option<option value=$Name>$Name的武器库";}
}

print<<"BUKIHTML";
<table width=100% height=70%><tr><td align=center>
<table $TABLE_STYLE>
<tr><td bgcolor=$TABLE_COLOR2 align=center><b>可以去別人的武器庫買武器、也能去自己倉庫存放武器</b>
</td></tr></table><p>　<p>
</td></tr><tr><td align=center>
<table border=0 cellpadding=5 cellspacing=0 bgcolor="#909090" align=center style="border:1px outset #909090;font-size:16px;">
<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="SOUKO">
<tr><td bgcolor=$TABLE_COLOR2 colspan=2 align=center><b>選擇您要去的地方</b></td></tr>
<tr>
<td bgcolor=$TABLE_COLOR1 colspan=2>
<select name=pname $STYLE_B1><option value="$COOKIE{'pname'}">$COOKIE{'pname'}的仓库$option</select></td>
</tr>

<tr><td align=center colspan=2 bgcolor=$TABLE_COLOR1>
<input type=submit value=决定 $STYLE_B1>
</td></tr></form></table>
</td></tr></table>
BUKIHTML

&ENDHTML;

}

sub ENDHTML{
print<<"ENDHT";
<br><br>
<br><br><br><input type=button value=武器库 $STYLE_B1 onClick=\"parent.Sub.location.replace('./$SCRIPTNM')\"><br><br><br>\n
<div align=center>
<font size=2>PROGRAMING:(C) 2002 - <a href=http://www.verytown.com/ target=_blank>
<font size=2>中文化添加改造-非常城市</font></a>
 - All Right Reserved.</font></div><p>
</body>
</html>
ENDHT

exit;
}

sub SOUKO {

&ERROR('ID入力エラ—！！') if $FORM{'pname'} eq '';
&DBM_INPORT(P);
&INPORT;

@VALS = split(/\s/,$P{"$COOKIE{'pname'}"});
@WEP = split(/\s/,$BUKI{"$FORM{'pname'}"});

	local($WN_A,$WLV_A) = split(/!/,$VALS[9]);	
	local($WN_B,$WLV_B) = split(/!/,$VALS[10]);
	local($WN_C,$WLV_C) = split(/!/,$VALS[11]);
	local($WN_D,$WLV_D) = split(/!/,$VALS[35]);
	local($WN_E,$WLV_E) = split(/!/,$VALS[36]);
	$WEP_A=$WLV_A%$WEAPON_LVUP;	
	$WEP_B=$WLV_B%$WEAPON_LVUP;	
	$WEP_C=$WLV_C%$WEAPON_LVUP;
	$WEP_D=$WLV_D%$WEAPON_LVUP;	
	$WEP_E=$WLV_E%$WEAPON_LVUP;
	$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;

@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"});

	local($OWN_A,$OWLV_A) = split(/!/,$WEP[0]);
	local($OWN_B,$OWLV_B) = split(/!/,$WEP[1]);
	local($OWN_C,$OWLV_C) = split(/!/,$WEP[2]);
	local($OWN_D,$OWLV_D) = split(/!/,$WEP[3]);
	local($OWN_E,$OWLV_E) = split(/!/,$WEP[4]);

	$OWEP_A=$OWLV_A%$WEAPON_LVUP;
	$OWEP_B=$OWLV_B%$WEAPON_LVUP;
	$OWEP_C=$OWLV_C%$WEAPON_LVUP;
	$OWEP_D=$OWLV_D%$WEAPON_LVUP;
	$OWEP_E=$OWLV_E%$WEAPON_LVUP;

	$OWLV_A=int$OWLV_A/$WEAPON_LVUP;
	$OWLV_B=int$OWLV_B/$WEAPON_LVUP;
	$OWLV_C=int$OWLV_C/$WEAPON_LVUP;
	$OWLV_D=int$OWLV_D/$WEAPON_LVUP;
	$OWLV_E=int$OWLV_E/$WEAPON_LVUP;

@OWN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});
@OWN_sB=split(/\,/,$WEAPON_LIST{"$OWN_B"});
@OWN_sC=split(/\,/,$WEAPON_LIST{"$OWN_C"});
@OWN_sD=split(/\,/,$WEAPON_LIST{"$OWN_D"});
@OWN_sE=split(/\,/,$WEAPON_LIST{"$OWN_E"});

if($VALS[10]){$ININ10 = "$WN_sB[0](Lv.$WLV_B)\n";}else{$ININ10 = "　 ";}
if($VALS[11]){$ININ11 = "$WN_sC[0](Lv.$WLV_C)\n";}else{$ININ11 = "　 ";}
if($VALS[35]){$ININ35 = "$WN_sD[0](Lv.$WLV_D)\n";}else{$ININ35 = "　 ";}
if($VALS[36]){$ININ36 = "$WN_sE[0](Lv.$WLV_E)\n";}else{$ININ36 = "　 ";}

$noin = 0;

if($OWN_sA[0] eq "" || $OWN_sB[0] eq "" || $OWN_sC[0] eq "" || $OWN_sD[0] eq "" || $OWN_sE[0] eq ""){$noin = 1;}

if($FORM{'pname'} eq $COOKIE{'pname'} && $noin == 1){

if($VALS[10] ne ''){
$nyuko10 = "
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=\"azuke2\" value=\"$VALS[10]\">
<input type=hidden name=\"cmd\" value=\"HOKAN\">
<input type=hidden name=\"pname\" value=\"$COOKIE{'pname'}\">
<input type=hidden name=\"pass\" value=\"$COOKIE{'pass'}\">
<input type=submit value=入库 $STYLE_B1>
</td>
</form>
";
}
else{$nyuko10 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($VALS[11] ne ''){
$nyuko11 = "
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=\"azuke3\" value=\"$VALS[11]\">
<input type=hidden name=\"cmd\" value=\"HOKAN\">
<input type=hidden name=\"pname\" value=\"$COOKIE{'pname'}\">
<input type=hidden name=\"pass\" value=\"$COOKIE{'pass'}\">
<input type=submit value=入库 $STYLE_B1>
</td>
</form>
";
}
else{$nyuko11 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($VALS[35] ne ''){
$nyuko35 = "
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=\"azuke4\" value=\"$VALS[35]\">
<input type=hidden name=\"cmd\" value=\"HOKAN\">
<input type=hidden name=\"pname\" value=\"$COOKIE{'pname'}\">
<input type=hidden name=\"pass\" value=\"$COOKIE{'pass'}\">
<input type=submit value=入库 $STYLE_B1>
</td>
</form>
";
}
else{$nyuko35 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($VALS[36] ne ''){
$nyuko36 = "
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=\"azuke5\" value=\"$VALS[36]\">
<input type=hidden name=\"cmd\" value=\"HOKAN\">
<input type=hidden name=\"pname\" value=\"$COOKIE{'pname'}\">
<input type=hidden name=\"pass\" value=\"$COOKIE{'pass'}\">
<input type=submit value=入库 $STYLE_B1>
</td>
</form>
";
}
else{$nyuko36 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";}
}
else{$nyuko36 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";$nyuko35 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";$nyuko11 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";$nyuko10 = "<td align=center bgcolor=$TABLE_COLOR1>　</td>";}
&HEADER;

print<<"MIDHTML";
<table border=0 height=100%>
<tr>
<td valign=top align=left>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=3 align=left><b>$COOKIE{'pname'}的装备</b></td></tr>
<tr>
<td bgcolor=$TABLE_COLOR2 align=center>装备\</td>
<td bgcolor=$TABLE_COLOR1 align=center>$WN_sA[0]</font></b>Lv.$WLV_A</td>
<td bgcolor=$TABLE_COLOR1>　 </td>
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2 align=center>予\备\</td>
<td bgcolor=$TABLE_COLOR1 align=center>$ININ10</td>
$nyuko10
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2 align=center>予\备\</td>
<td bgcolor=$TABLE_COLOR1 align=center>$ININ11</td>
$nyuko11

</tr>
<tr>
<td bgcolor=$TABLE_COLOR2 align=center>予\备\</td>
<td bgcolor=$TABLE_COLOR1 align=center>$ININ35</td>
$nyuko35
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2 align=center>予\备\</td>
<td bgcolor=$TABLE_COLOR1 align=center>$ININ36</td>
$nyuko36
</tr></table>

</td><td valign=top align=left>

<table $TABLE_STYLE width=750>
<tr><td bgcolor=$TABLE_COLOR2 colspan=6 align=left><b>$FORM{'pname'}的武器库</b>&nbsp;&nbsp;&nbsp;$KEKKA</td></tr>
MIDHTML

print "<tr><td align=center bgcolor=$TABLE_COLOR2>武器名</td>";
if($OWN_sA[0] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><b>$OWN_sA[0]</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sB[0] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><b>$OWN_sB[0]</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sC[0] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><b>$OWN_sC[0]</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sD[0] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><b>$OWN_sD[0]</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sE[0] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><b>$OWN_sE[0]</b></td></tr>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td></tr>\n";}

print "<tr><td align=center bgcolor=$TABLE_COLOR2>武器Ｌｖ</td>";
if($OWN_sA[0] ne ""){print "<td bgcolor=$TABLE_COLOR1 align=center><b>Lv.$OWLV_A/exp.$OWEP_A</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sB[0] ne ""){print "<td bgcolor=$TABLE_COLOR1 align=center><b>Lv.$OWLV_B/exp.$OWEP_B</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sC[0] ne ""){print "<td bgcolor=$TABLE_COLOR1 align=center><b>Lv.$OWLV_C/exp.$OWEP_C</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sD[0] ne ""){print "<td bgcolor=$TABLE_COLOR1 align=center><b>Lv.$OWLV_D/exp.$OWEP_D</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
if($OWN_sE[0] ne ""){print "<td bgcolor=$TABLE_COLOR1 align=center><b>Lv.$OWLV_E/exp.$OWEP_E</b></td>\n";}else{print "<td bgcolor=$TABLE_COLOR1>－－－－－－</td>\n";}
print "</tr>";

if($VALS[10] ne "" && $VALS[11] ne "" && $VALS[35] ne "" && $VALS[36] ne ""){$noout = 1;}
elsif($VALS[10] eq ""){$dasimode = "dasi2";}
123

⌨️ 快捷键说明

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