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

📄 bukiko.cgi

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


############################################################################
#
#	このスクリプトはmasimaroさんが配布している仓库スクリプトを参考にして
#	作成されています。
#
#	masimaroさんのＨＰ	http://members.jcom.home.ne.jp/masimaro/
#	44NET FACTORY		http://melcha.zone.ne.jp/ebs/dl/
#
#####   设定个所   ##########################################################

$SCRIPTNM = "bukiko.cgi";	#このスクリプト名
$BUKIDB = "buki/bukidb";	#武器库ＤＢ

require 'ebs_sub1.cgi';		#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://melcha.zone.ne.jp/ebs/dl/ target=_blank>
<font size=2>44NET FACTORY</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]);
	$WEP_A=$WLV_A%$WEAPON_LVUP;	
	$WEP_B=$WLV_B%$WEAPON_LVUP;	
	$WEP_C=$WLV_C%$WEAPON_LVUP;
	$WLV_A=int$WLV_A/$WEAPON_LVUP;
	$WLV_B=int$WLV_B/$WEAPON_LVUP;
	$WLV_C=int$WLV_C/$WEAPON_LVUP;

@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});
@WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});

	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 = "　 ";}

$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>";}
}
else{$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></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 ""){$noout = 1;}
elsif($VALS[10] eq ""){$dasimode = "dasi2";}
elsif($VALS[11] eq ""){$dasimode = "dasi3";}
else{$bukimoti = 1;}

if($noout ne 1 && $FORM{'pname'} eq $COOKIE{'pname'}){

print "<tr><td align=center bgcolor=$TABLE_COLOR2>出库</td>";

if($WEP[0] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[0]">
<input type=hidden name="wepnum" value="1">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=出す $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[1] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[1]">
<input type=hidden name="wepnum" value="2">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=出す $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[2] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[2]">
<input type=hidden name="wepnum" value="3">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=出す $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[3] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[3]">
<input type=hidden name="wepnum" value="4">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=出す $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[4] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[4]">
<input type=hidden name="wepnum" value="5">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=出す $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}
print "</tr>";

}

if($FORM{'pname'} eq $COOKIE{'pname'}){

print "<tr><td align=center bgcolor=$TABLE_COLOR2>废弃</td>";

if($WEP[0] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="0">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[1] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="1">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[2] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="2">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[3] ne ''){
print << "-----END-----";
12

⌨️ 快捷键说明

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