久しぶりにいろいろな改造を取り入れたのですが、ちょっとつまずいてしまったので質問に参りました。
なずさんのところで配布されているものについての質問なのですが、
mainprogramに
if ($Fm{'mode'} eq 'mykyouka_before') {require 'kyouka.pl'; &action_form}
if ($Fm{'mode'} eq 'mykyouka_after') {require 'kyouka.pl'; &play_form}
を追加して、
kyouka.plの中に
mykyouka_beforeとmykyouka_afterを作ったのですが、mykyouka_beforeからmykyouka_afterへ移動しません。
mykyouka_before内の

&form('start'); print qq|<tr><td colspan=2>|;
　　　　 foreach (0 .. $#items) {
　　　　　　　　 ($item,$sts,$price) = split(/△/,$items[$_]);
　　　　　　　　
　　　　 if ($sts =~ /Q[swath]/) {&input('radio',"MK",'$_','','');print qq|【$item】　\n|}
　　　　　　　　 elsif ($sts =~/(Sw|Kn|Kt|Ax|Gv|Bw|Mi|Wd|Yw|Ar|Sh|Jw|Ya|Ys|Yt)/){
　　　　　　　　 &input('radio','MK',"$_",'','');print qq| $item　\n| }
　　　　　　　　 else {print"<font color = red>$item　</font>"; }
　　　　　　　　}
　　　　&OKbuttoninform('n','mykyouka_after');
　　　　print qq|</td></tr>|; &form('end');

というところか、上のmainprogramのどこか(もしくはmykyouka_after)に原因があるのだと思いますが。。
説明が下手ですみませんが、よろしくお願いします（＾＾；

▼関連発言
│
└◆723:アイテム強化について [masaki] 08/14 17:57
　└◆724:Re:アイテム強化について [masaki] 08/14 18:01
　　└◆725:自己解決しました（＾＾ [masaki] 08/15 12:05
　　　└◆726:オークション [masaki] 08/15 14:10
　　　　└◆727:Re:オークション [moon] 08/15 15:35
　　　　　└◆729:Re[2]:オークション [masaki] 08/16 11:22<-last