先日、呪いについておしえてもらい、呪いまでは出来たのですが（＾＾；
こんどは解呪で動かない場所があるので質問させていただきます。
(わからないことだらけなので、初歩的なミスをしているかもしれません（；；）
やったのは、次の通りです（＾＾；
main programに
if ($Fm{'mode'} eq 'kaizyu')　　　　{ &contact_form }
を追加。
sub contact_formに
　　　　&cure_revive　　　　if $Fm{'mode'} eq 'kaizyu';
を追加。（もう、ここでまちがているかも（；；）
解呪スキルをKiとして
　　　　&input('radio','mode','kaizyu','',"解呪してもらう<br>\n") if $psp =~ /Ki/;
↑一応テストのため、Kiがあるだけで表示させてます。
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_afterに
if (($Fm{'kaizyu'} =~ /[^0-9]/ || !$Fm{'kaizyu'}) && $sp =~ /Ki/) {
　　　　push (@msg,"解呪の価格が設定されていません"); $Fm{'kaizyu'} = 0;
追加。
sub cure_reviveに
if ($def_hr >= $php && $Fm{'mode'} eq 'kaizyu') {
　　　　　　　　push (@msg,"$pnmは解呪できる体力がありません");return }
と
if ($psp=~ /Ki/) {
　　　　　　　　if ($av ne 'dead') { return }
　　　　　　　　if (!$kaizyu) { push (@msg,"$pnmは解呪を行っていません");return }
　　　　　　　　if ($mn < $kaizyu) { push (@msg,"解呪費を払うお金がありません");return }
　　　　　　　　$mn -= $kaizyu; $pmn += $kaizyu; $php -= $def_hr;if($sts =~ /No/ && $sts =~ /Q[swat]/){$sts =~ s/No//g;}
　　　　　　　　&add_record("[$id] $nmを$kl\Gで解呪しました");
　　　　}
を追加しました。
長いうえに、見づらくてすみません（；；
それで、テストしてみたところやっぱり動きませんでした（；；
(解呪しました。のメッセージが表示されず、何も変かなしです）
色々やってみて、「解呪できる体力がありません」は表示されたので、
if ($psp=~ /Ki/) {
　　　　　　　　if ($av ne 'dead') { return }
　　　　　　　　if (!$kaizyu) { push (@msg,"$pnmは解呪を行っていません");return }
　　　　　　　　if ($mn < $kaizyu) { push (@msg,"解呪費を払うお金がありません");return }
　　　　　　　　$mn -= $kaizyu; $pmn += $kaizyu; $php -= $def_hr;if($sts =~ /No/ && $sts =~ /Q[swat]/){$sts =~ s/No//g;}
　　　　　　　　&add_record("[$id] $nmを$kl\Gで解呪しました");
}
の部分が動いてないのだと思うのですが、どこが違っているのでしょう（＾＾；
お忙しいところすみません。m(_ _)m

▼関連発言
│
└◆444:解呪について（；； [masaki] 03/22 12:58
　└◆445:Re:解呪について（；； [masaki] 03/22 13:41
　　└◆446:Re[2]:解呪について（；； [moon] 03/22 16:36
　　　└◆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