▼スレッド
│
└◇448:Re[3]:解呪について（；； [masaki] 03/22 17:59

　└◇450:Re[4]:解呪について（；； [moon] 03/22 21:27
　　└◇451:Re[5]:解呪について（；； [masaki] 03/22 22:43<-last

ありがとうございます！
でも、問題発生です（；；
moonさんに教えていただいた場所はちゃんと動いたのですが、ユーザーデータへの書きこみがされてないらしいです（＾＾；
sub fee_beforeの
print qq|アイテムの解呪料：HP $judg_hp 使用\n| if $sp =~ /Ki/;
　　　　&input('text','kaizyu',"$kaizyu",' size=10',' G<br>') if $sp =~ /Ki/;
の部分が怪しいのですが（＾＾
自分でユーザーデータへ直接書きこめば出来るのですが（笑

sub fee_beforeで$kaizyuの値を取得していますか？
解毒料とかと同じフラグ$feに記録している場合は、($cr,$rv,$kaizyu) = split(/△/,$fe);というように。

また、sub fee_afterで$fe = "$Fm{'cr'}△$Fm{'rv'}△$Fm{'kaizyu'}";としていますか？

以上2点を確認してみてください。

ありがとうございます！
やっとできました（＾＾；
いろいろ改造してあると、複雑で（ぉ
いつもこんな初歩的な質問に答えていただき、ありがとうございます！