▼スレッド
│
└◇310:Re[3]:体力 [moon] 01/28 20:15

　└◇312:Re[4]:体力 [masaki] 01/28 20:38
　　└◇316:Re[5]:体力 [masaki] 01/29 18:31
　　　└◇317:Re[6]:体力 [moon] 01/29 23:06
　　　　└◇319:Re[7]:体力 [masaki] 01/30 17:54<-last

> 自力で知恵をふりしぼってやった結果
> if ($php <= 3)　　　　{ push (@msg,"$pnmは戦闘できる体力がありません"); return }
> を、
> if ($plf eq $id)　　　　{ push (@msg,"$pnmとは暫く戦えません"); return }
> の下に追加してみました。
> テストしてみて文法のミスは無さそうですが自信がありません。（バグがありそう）（TT
> どうか、一言ご教授を。。

大丈夫だと思いますよ。
あえて「一言」と言われれば、「テストしてみて文法のミスは無さそうですが自信がありません」これはPerlで文法チェックしてエラーが出ていないのなら「文法エラー」は確実にありません。ただしプログラミングの通例として、文法エラーではないバグがわんさかある可能性は否定できませんが。（笑）

> あえて「一言」と言われれば、「テストしてみて文法のミスは無さそうですが自信がありません」これはPerlで文法チェックしてエラーが出ていないのなら「文法エラー」は確実にありません。ただしプログラミングの通例として、文法エラーではないバグがわんさかある可能性は否定できませんが。（笑）
ありがとうございます！！(jДj
初めてできたので嬉しいです！！！
思わぬエラーもありますよね（＾＾；
本当にありがとうございました！

と、おもったところで早速問題発生です（；；
保存後、体力が4以上あっても「〜は戦闘できる体力がありません」と表示され戦闘できなくなってしまいました。
sub fight {
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　@prclines = &get_partner("$Fm{'pd'}");

　　　　if ($pav eq 'dead') { push (@msg,"$pnmは死んでいます"); return }
　　　　if ($av eq 'dead') { push (@msg,'あなたは死んでいます'); return }
　　　　if ($hp <= 2)　　　　　　　　{ push (@msg,'戦闘できる体力がありません'); return }
　　　　if ($plf eq $id)　　　　{ push (@msg,"$pnmとは暫く戦えません"); return }
if ($php <= 3)　　　　{ push (@msg,"$pnmは戦闘できる体力がありません"); return }

↑これです（；；
（難しいなぁ（TT)

回復前に判定しているから変ということかな。
下のほうにある($php,$ptm) = &hprecover($php,$pxp,$psp,$pav,$ptm,$pfg);をif($php<=3)の処理前に移動すればとりあえず大丈夫かも。

直りました〜（＾＾
ありがとうございます！！
頑張って勉強します！！