> > dungeon.plは今はこのようになってます（メイン部分
> > >># Sub Dungeon Form -- ダンジョンメインフォーム--
> > sub dungeon_form {
> > &header;
> > &table_top;
> > &dungeon_in　　　　　　　　if $Fm{'mode'} eq 'dungeon';
> > ##&use_before if $Fm{'mode'} eq 'dungeon_item';
> > &use_after 　　　　#if $Fm{'mode'} eq 'ditem_after';
> #> if ($Fm{'mode'} eq 'ditem_after') { require 'dungeon.pl'; &dungeon_form }
> > ##&dump_before if $Fm{'mode'} eq 'dungeon_dump';
> > &dump_after　　　　　　　　#if $Fm{'mode'} eq 'ddump_after';
> #> if ($Fm{'mode'} eq 'ddump_after') { require 'dungeon.pl'; &dungeon_form }
> > &dungeon_fight　　　　if $Fm{'mode'} eq 'dungeon_fight';
> > &dungeon_escape　　　　if $Fm{'mode'} eq 'dungeon_escape';
> > &dungeon_north　　　　if $Fm{'mode'} eq 'dungeon_north';
> > &dungeon_south　　　　if $Fm{'mode'} eq 'dungeon_south';
> > &dungeon_east　　　　if $Fm{'mode'} eq 'dungeon_east';
> > &dungeon_west　　　　if $Fm{'mode'} eq 'dungeon_west';
> > &msg;
> > &dungeon_action;
> > &player_data;
> > &table_bottom;
> > }
>
> これを見た限りでは「#」を付けた箇所が余分なためのようです。

#の箇所を削除したところ
戦闘にエラーが出てたので
&use_afterと&dump_afterの直後の#を外して元に戻してみました。
if ($Fm{'mode'} eq 'dungeon_item') { &OKbuttoninform('n','ditem_after') }
も付けたしてみましたがだめでした・・。
呼び出すとこがplay_formなのかと
差し替えてもうまくいかず・・。

Player_Data
のアイテムの記述の部分に何か足りないのでしょうか？
Main Program
はそのままでよいのですよね？
文法エラーはチェックしてるので
それ以外・・と思うのですが
あとはどの辺りをチェックしたらよろしいでしょうか？？

アイテムの記述はこうなっております
>>
if ($Fm{'mode'} =~ /sort_item/) {
　　　　　　　　&sort_item('i');
　　　　　　　　&joinitem('i');
　　　　　　　　&userout; }
　　　　if (@items) {
　　　　　　　　&form('start');
　　　　　　　　print qq|<SELECT name="mode">\n|;
　　　　　　　　print qq|<OPTION value="|, $getdstatusflag ? 'ditem_after' : 'use_after', qq|" selected>脱着・使用\n|;
　　　　　　　　if ($Fm{'mode'} eq 'dungeon_item') { &OKbuttoninform('n','ditem_after') }
print qq|<OPTION value="|, $getdstatusflag ? 'ddump_after' : 'dump_after', qq|">捨てる\n|;
if ($Fm{'mode'} eq 'dungeon_dump') { &OKbuttoninform('n','ddump_after') }

　　　　　　　　print qq|<OPTION value="sort_item">並び替え\n| if (!$def_so);
　　　　　　　　print qq|<OPTION value="sort_item_up">指定品を上へ\n|;
　　　　　　　　print qq|</SELECT><HR>\n|;
　　　　　　　　foreach (0 .. $#items) {
　　　　　　　　　　　　($item,$sts,$price) = split(/△/,$items[$_]);
　　　　　　　　　　　　require './itmicon.pl'; &itm_icon;
　　　　　　　　　　　　if ($sts =~ /Li/) { print qq|<FONT color="red">|; }
　　　　　　　　　　　　if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】<BR>\n"); }
　　　　　　　　　　　　elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G<BR>\n"); }
　　　　　　　　　　　　else { &input('checkbox',"$_",'on'," id=$_","$item<BR>\n"); }
　　　　　　　　　　　　if ($sts =~ /Li/) { print qq|</FONT>|; }
　　　　　　　　}
　　　　　　　　&input('hidden','icount',"$#items",'','');
　　　　　　　　&OKbuttoninform('n','');
　　　　　　　　&form('end');
　　　　} else { print qq|なし<BR>|; }
-------

よろしくお願いします。

▼関連発言
│
└◆1466:ダンジョンとアイテム強化 [rien] 02/25 18:38
　├◆1467:Re:ダンジョンとアイテム強化 [moon] 02/26 00:37
　│└◆1468:Re[2]:ダンジョンとアイテム強化 [rien] 02/26 01:17
　│　└◆1469:Re[3]:ダンジョンとアイテム強化 [moon] 02/26 08:07
　│　　└◆1470:Re[4]:ダンジョンとアイテム強化 [rien] 02/26 11:19
　│　　　└◆1471:Re[5]:ダンジョンとアイテム強化 [moon] 02/26 21:05
　│　　　　└◆1472:Re[6]:ダンジョンとアイテム強化 [rien] 02/27 00:20
　│　　　　　└◆1473:Re[7]:ダンジョンとアイテム強化 [moon] 02/27 08:12
　│　　　　　　└◆1474:Re[8]:ダンジョンとアイテム強化 [rien] 02/27 11:33
　│　　　　　　　└◆1475:Re[9]:ダンジョンとアイテム強化 [rien] 02/27 11:41
　│　　　　　　　　└◆1476:Re[10]:ダンジョンとアイテム強... [moon] 02/27 20:20
　│　　　　　　　　　└◆1479:Re[11]:ダンジョンとアイテム... [rien] 02/28 22:28
　│　　　　　　　　　　└◆1481:Re[12]:ダンジョンとアイテ... [moon] 02/28 23:35
　│　　　　　　　　　　　└◆1482:Re[13]:ダンジョンとアイ... [rien] 02/29 01:35
　│　　　　　　　　　　　　└◆1483:Re[14]:ダンジョンとア... [moon] 02/29 07:53
　└◆1486:Re:ダンジョンとアイテム強化 [rien] 02/29 18:27<-last