▼スレッド
│
└◇591:Re[5]:新アイテム [moon] 05/20 19:32

　├◇592:補足 [moon] 05/20 23:20
　└◇593:Re[6]:新アイテム [akira] 05/21 05:31
　　└◇594:Re[7]:新アイテム [moon] 05/21 08:37
　　　└◇595:Re[8]:新アイテム [akira] 05/21 09:45
　　　　└◇597:Re[9]:新アイテム [masaki] 05/21 13:14
　　　　　└◇598:Re[10]:新アイテム [moon] 05/21 19:25
　　　　　　└◇599:できました! [akira] 05/21 22:06
　　　　　　　└◇600:Re:できました! [masaki] 05/22 16:46<-last

> 試してみたのですがどうもうまくいきません。
> この構文はfood内のどこに書き込めばよいんでしょうか?

&umsg('摂');を置き換えるだけです。

# そのままコピペして全角空白の変換をしていないとか。（笑）

No.589で書いた処理では「アイテム名」や「摂取した」というメッセージが出ないので、それらのメッセージを出すためには出力を適宜変更してください。

> &umsg('摂');を置き換えるだけです。
>
> # そのままコピペして全角空白の変換をしていないとか。（笑）

# Sub Food #
sub food {
　　　　if ($av eq 'dead') { &umsg('死') }
　　　　elsif ($bp =~ /Hb/) {
　　　　　　　　$item = $bn . $item; $bp =~ tr/a-zA-Z//d;
　　　　　　　　$iak *= $bp; $iak = 999 if $iak > 999; $iak = -99 if $iak < -99;
　　　　　　　　$sts = sprintf("%04d%03d%03d",0,$iak,0) . "FdWi";
　　　　　　　　&umsg('作'); $bp = $bn = '';
if(index($sts, 'Pf') < 0){
　　 &umsg('摂'); # 通常のメッセージ
}
else{
　　 push(@msg, '腐っていたようでお腹を壊しました。'); # 賞味期限切れのメッセージ
　　 $av = 'poison';
}
}
文法チェックは大丈夫だったのですが、
毒状態にならないしメッセージも出ません。
上はコピペしたのでスペース加減は違って見えるかもしれないんですが。

>
> > &umsg('摂');を置き換えるだけです。
> >
> > # そのままコピペして全角空白の変換をしていないとか。（笑）
>
> # Sub Food #
> sub food {
> 　　　　if ($av eq 'dead') { &umsg('死') }
> 　　　　elsif ($bp =~ /Hb/) {
> 　　　　　　　　$item = $bn . $item; $bp =~ tr/a-zA-Z//d;
> 　　　　　　　　$iak *= $bp; $iak = 999 if $iak > 999; $iak = -99 if $iak < -99;
> 　　　　　　　　$sts = sprintf("%04d%03d%03d",0,$iak,0) . "FdWi";
> 　　　　　　　　&umsg('作'); $bp = $bn = '';
> if(index($sts, 'Pf') < 0){
> 　　 &umsg('摂'); # 通常のメッセージ
> }
> else{
> 　　 push(@msg, '腐っていたようでお腹を壊しました。'); # 賞味期限切れのメッセージ
> 　　 $av = 'poison';
> }
> }
> 文法チェックは大丈夫だったのですが、
> 毒状態にならないしメッセージも出ません。
> 上はコピペしたのでスペース加減は違って見えるかもしれないんですが。

元の&umsg('摂');を囲んであったelse{}が無いようですが。

> > > &umsg('摂');を置き換えるだけです。
> 元の&umsg('摂');を囲んであったelse{}が無いようですが。

結局のところ勉強不足というか言葉がいまいち分からず、
「置き換え」の仕方が分からないです。
置き換え、置換で探しても置換演算子あたりでヒットしてしまって。これとは別物ですよね。

何度も同じところですみませんが、
# Sub Food #
sub food {
　　　　if ($av eq 'dead') { &umsg('死') }
　　　　elsif ($bp =~ /Hb/) {
　　　　　　　　$item = $bn . $item; $bp =~ tr/a-zA-Z//d;
　　　　　　　　$iak *= $bp; $iak = 999 if $iak > 999; $iak = -99 if $iak < -99;
　　　　　　　　$sts = sprintf("%04d%03d%03d",0,$iak,0) . "FdWi";
　　　　　　　　&umsg('作'); $bp = $bn = '';
　　　　} else { &umsg('摂'); $hp = &hpcheck($hp,$xp,$iak); $gn = 1 }
if(index($sts, 'Pf') < 0){
　　 &umsg('摂'); # 通常のメッセージ
}
else{
　　 push(@msg, '腐っていたようでお腹を壊しました。'); # 賞味期限切れのメッセージ
　　 $av = 'poison';
}
}
にすると当然「置き換え」の指示通りではないし
単に書き込んだだけ、文法もだめになっちゃいます。

akiraさん初めまして（＾＾
moonさんいつもお世話になっております。m(_ _)m
ちょっと覗きに来て、思ったので一言ｗ
>else { &umsg('摂'); $hp = &hpcheck($hp,$xp,$iak); $gn = 1 }
>if(index($sts, 'Pf') < 0){
>　　 &umsg('摂'); # 通常のメッセージ
>}
>else{
>　　 push(@msg, '腐っていたようでお腹を壊しました。'); # 賞味期限切れのメッセージ
>　　 $av = 'poison';
>}
ではなく、
else {
if(index($sts, 'Pf') < 0){
&umsg('摂'); # 通常のメッセージ
}
else{
push(@msg, '腐っていたようでお腹を壊しました。'); # 賞味期限切れのメッセージ
$av = 'poison';
}
$hp = &hpcheck($hp,$xp,$iak); $gn = 1;}
ということではないでしょうか？
置き換えとはそのまま置きかえるだけですから、深く考えないほうが言いと思います（＾＾；
間違っているかもしれませんｗ
失礼しました（＾＾

masakiさんが書かれた通りです。

変更のついでに、push(@msg, '腐っていたようでお腹を壊しました。');をpush(@msg, "$itemを摂取したら腐っていたようでお腹を壊しました。");のような感じにしたほうが良いと思います。

moonさん、いつもありがとうございます。
無事できました。

masakiさん、はじめまして。
masakiさんの書き込みをみてはこういうのもできるんだ、
と思っていました。
ご指摘ありがとうございました。
無事できました♪

それでは、失礼します。
本当に助かりました。
これからもよろしくお願いします。

> moonさん、いつもありがとうございます。
> 無事できました。
>
> masakiさん、はじめまして。
> masakiさんの書き込みをみてはこういうのもできるんだ、
> と思っていました。
> ご指摘ありがとうございました。
> 無事できました♪
>
> それでは、失礼します。
> 本当に助かりました。
> これからもよろしくお願いします。
僕はなにもしてないですけどねｗ
勉強中ですから〜（＾＾
これからも宜しくお願いします。