お金を払ってアイコンを変更する方法

ebs_sub1.cgiに以下を追加

sub AIKON {require 'ebs_sub5.cgi';&AIKON;}

ebs_sub3.cgiに以下を追加


<td><input type=submit name="custom" value="アイコン変更" $STYLE_B1 onClick="document.FM.cmd.value='AIKON';Move()"></td>


/^アイコン変更$/ && do{&ERROR("お金足りないでしょｗ") if ($PL_VALUES[8]<=20000);$PL_VALUES[8]-=20000;$PL_VALUES[27]=$FORM{'icon2'};last CUSTOM;};
ebs_sub5.cgiに以下を追加

sub AIKON {
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
&CUSTOM_HEADER('Main');
if ($PL_VALUES[8] >= 20000){
print "<script language=\"JavaScript\">\nfunction changeImg(){num=document.Ms.icon2.value;document.msImg.src=\"$IMG_FOLDER2/\"+ num +\".gif\";}\n</script>";
&JScfm(checkCustom,"アイコンを変更します。よろしいですか？");
print "<tr><td $BgColor colspan=4>＄20000<br>\n";
print "&nbsp;&nbsp;アイコン変更<img src=\"$IMG_FOLDER2/$PL_VALUES[27].gif\" name=\"msImg\"><br>\n";
print "&nbsp;&nbsp;&nbsp;&nbsp;<select name=icon2 $STYLE_L onChange=\"changeImg()\">\n";
foreach (0..$ICON){
print "<option value=\"$_\"";
print " selected\n"if $_ eq $PL_VALUES[27];
print ">アイコンNo.$_\n";
}
print "<div align=right>\n";
print "<input name=\"Cmode\" type=submit value=\"アイコン変更\" $STYLE_B1 onClick=\"return checkCustom()\">\n";
print "</div></td></tr>\n";
print "</form></table>\n";
}else{
print "<tr><td bgcolor=$TABLE_COLOR1>お金が足りません</td></tr></table></form>";
}

&FOOTER;
}

ココではサブルーチンを追加していますがsub CUSTOMING2に入れてやった方がすっきりしそうですｗ
ちなみに覚醒時のアイコンは無視してありますｗ

フレームが無かったらココをクリックしてください