> &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';
}
}
文法チェックは大丈夫だったのですが、
毒状態にならないしメッセージも出ません。
上はコピペしたのでスペース加減は違って見えるかもしれないんですが。

▼関連発言
│
└◆586:新アイテム [akira] 05/19 00:22
　└◆587:Re:新アイテム [moon] 05/19 09:05
　　└◆588:Re[2]:新アイテム [akira] 05/19 12:23
　　　└◆589:Re[3]:新アイテム [moon] 05/19 22:33
　　　　└◆590:Re[4]:新アイテム [akira] 05/20 09:08
　　　　　└◆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