▼スレッド
│
└◇337:Re:場違いな質問ですが [masaki] 02/09 17:43

　└◇338:Re[2]:場違いな質問ですが [moon] 02/09 21:30
　　└◇339:Re[3]:場違いな質問ですが [masaki] 02/09 22:13
　　　└◇340:Re[4]:場違いな質問ですが [moon] 02/09 23:11
　　　　└◇343:Re[5]:場違いな質問ですが [masaki] 02/10 18:29
　　　　　└◇344:Re[6]:場違いな質問ですが [moon] 02/10 19:39<-last

http://m3voyage.hp.infoseek.co.jp/sos.jpg
↑これは、相手プレイヤーの所で「鑑定をお願いする」をやった後です。。
（自分で「鑑定をする」をやったわけではありません（＾＾；）

> http://m3voyage.hp.infoseek.co.jp/sos.jpg
> ↑これは、相手プレイヤーの所で「鑑定をお願いする」をやった後です。。
> （自分で「鑑定をする」をやったわけではありません（＾＾；）

まずは注意から。
マルチポストはマナー上やめたほうが良いと思いますよ。
ここでは注意書きもないしそれほどは気にしない（今回のように注意するくらい）ですけれどsatosiさんのところでは赤で目立つように「マルチポストは、ご遠慮ください！」と書いてあるわけだし。
あ、ちなみにここは他サイトの改造の質問でも構いませんので場違いではないです。（笑）

で、ここからが本題。

設定終了のメッセージが出ないのは$myspを使用しているからです。
そのサブルーチン内の全ての$myspを$spに置換すれば正常に表示されると思います。

自分の行動画面に戻ってしまうのは推測しか出来ませんが、「鑑定をお願いする」を実行したときのサブルーチンがsub contact_form以外（play_formやaction_form）にあるということはありませんか？

マルチポストですね。
謝ってきます。。（；；

ええと、
&input('radio','mode','judge_before2','',"アイテムを鑑定してもらう<br>\n") if $psp =~ /Eo/ && $pjudg != "";
となっていました、
&judge_before2 if $Fm{'mode'} eq 'judge_before2';
がaction_formにもあったので削除してみましたが、こんどは自分の元の行動画面に戻ってしまいました。（ログインしたときの状態）
（moonさんがおっしゃっていることと違いますか？（＾＾；）

> ええと、
> &input('radio','mode','judge_before2','',"アイテムを鑑定してもらう<br>\n") if $psp =~ /Eo/ && $pjudg != "";
> となっていました、
> &judge_before2 if $Fm{'mode'} eq 'judge_before2';
> がaction_formにもあったので削除してみましたが、こんどは自分の元の行動画面に戻ってしまいました。（ログインしたときの状態）
> （moonさんがおっしゃっていることと違いますか？（＾＾；）

ちょっと違うかもしれません。
ええと、改造方法の該当箇所を見てみたらaction_formにするようになっていますね・・・。
ということでオリジナル改造では鑑定してもらうアイテムを選択するときは通常行動の画面になるのが正常みたいです。（鑑定結果時は接触画面）
もしかしたら改造方法の記述漏れなのかもしれませんね。（流れからすると以下の方法2）

選択時にも接触画面にする場合は次のような方法が考えられると思います。
方法1.
　　&judge_before2 if $Fm{'mode'} eq 'judge_before2';をcontact_formに移し、judge_before2のメイン処理の分岐をaction_formからcontact_formに変更する。
方法2.
　　action_formのままで、if($Fm{'mode'}=~/(trade|sell|buy)/)をif($Fm{'mode'}=~/(trade|sell|buy|before2)/)に変更する。

ありがとうございました〜（＾＾
やっぱりperl難しいですね（＾＾；
（今、本で勉強しています）
わからないことがあったらこれからも宜しくお願いします。。

> ありがとうございました〜（＾＾
> やっぱりperl難しいですね（＾＾；
> （今、本で勉強しています）
> わからないことがあったらこれからも宜しくお願いします。。

プログラミングは慣れが大切ですからね〜。
がんばってください。

# 今回のことはPerlのことというよりはSoS2の複雑さによるもののような気も。（笑）