▼スレッド
│
└◇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

久しぶりにいろいろな改造を取り入れたのですが、ちょっとつまずいてしまったので質問に参りました。
なずさんのところで配布されているものについての質問なのですが、
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)に原因があるのだと思いますが。。
説明が下手ですみませんが、よろしくお願いします（＾＾；

> というところか、上のmainprogramのどこか(もしくはmykyouka_after)に原因があるのだと思いますが。。
printで調べましたのですが、mykyouka_afterはまったく動いていないようです。(最初から)

解決しました。
お騒がせしました。

いきなり違う題になりますが、オークションシステムの配布の予定はないですか？？
もしかしたら、以前にもこの質問がでていたかも知れませんが。
オークションシステムの配布サイトがどこにもないようなので（＾＾；
お返事お待ちしております。

> いきなり違う題になりますが、オークションシステムの配布の予定はないですか？？
> もしかしたら、以前にもこの質問がでていたかも知れませんが。
> オークションシステムの配布サイトがどこにもないようなので（＾＾；
> お返事お待ちしております。

配布しようかな、と思った時期もありますが配布用の修正が面倒だったので止めました。（修正は対して多くないと思うのですがそれさえ億劫だったので。）
希望者が多そうなら配布に乗り出すかもしれないですが、現時点ではほとんどその気が無いです。

>配布しようかな、と思った時期もありますが配布用の修正が面倒だったので止めました。（修正は対して多くないと思うのですがそれさえ億劫だったので。）
>希望者が多そうなら配布に乗り出すかもしれないですが、現時点ではほとんどその気が無いです。
わかりました(^^
希望者が増えるのを待ちます。
お忙しいところ失礼しました。