罪罰改造板２/526

# 以下処理 基本的にこれ以下はいじらないように。

#-------------------------------------------------------------------------------
# 武具(ｼｮｯﾋﾟﾝｸﾞ)
sub bugu_s{

	$log.=<<EOM;
<form action=$script method=$method name=ore_>
<input type=hidden name=id value="$id">
<input type=hidden name=pw value="$pw_p">
<input type=hidden name=cmd value=-1>
EOM

	foreach(11 .. $#dg_data){
		$log .=qq|<table width="505" border="0" cellpadding="0" cellspacing="0">\n|;
		$log .=qq|<tr align="left" valign="top">\n|;
		$log .=qq|<td colspan="2" align="left" valign="top"><b>$dg_data[$_][1]</b></tr>\n|;
		$log .=qq|<tr>\n|;
		$log .=qq|<td width="106" rowspan="3" align="left" valign="top"><img src="test.gif" width="75" height="100"></td>\n|;
		$log .=qq|<td width="399" align="left" valign="top"><span>攻撃：</span>$dg_data[$_][4]<span>価格：</span>$dg_data[$_][2]</td></tr>\n|;
		$log .=qq|<tr>\n|;
		$log .=qq|<td align="left" valign="top"><span>重量：</span>40<span>武器Lv：</span>1<span>属性：</span>−<span>精錬：</span>可<span>破損：</span>$dg_data[$_][3]回</td></tr>\n|;
		$log .=qq|<tr>\n|;
		$log .=qq|<td align="left" valign="top"><span>説明：</span>$dg_data[$_][5]</td></tr>\n|;
		$log .=qq|</table>\n|;
		$log .=qq|<tt><br></tt><input type=submit value="購入/やめる" class="button1"></form>\n|;
}

#-------------------------------------------------------------------------------
# 防具(ｼｮｯﾋﾟﾝｸﾞ)
sub bogu_s{