> if ($idt !~ /Gl/) {push (@gotitem,"$inm△$idt"); push (@msg,"$inmをみつけました")}
> else {$money += substr($idt,0,4)}
>
> という部分があったのでこの二行の間に
>
> elsif(rand(1000)<1){$inm = int(substr($idt,0,4)).'コイン'; $cs += $inm;} # お金の確率の1/1000でコインが手に入る。
>
> を入れてみたのですが、
> 探索でコインは増えるのですが拾った際のメッセージが表示されなくなってしまいました。
> （2回探索してコインと2Gをそれぞれ拾った場合、2Gを見つけましたという一行しか表示されない）

アイテムである時にメッセージを追加しているようなので、「$cs += $inm;」の後ろにでも下記を追加すれば大丈夫だと思います。
push(@msg, "${inm}をみつけました");

▼関連発言
│
└◆1408:カジノのコインを探索で拾う場合の処理について [矢神] 12/18 00:19
　├◆1409:追記 [矢神] 12/18 00:28
　│└◆1410:Re:追記 [moon] 12/18 08:06
　│　└◆1411:ありがとうございました！！ +もう一つ [矢神] 12/18 17:45
　│　　└◆1412:Re:ありがとうございました！！ +もう一つ [moon] 12/18 22:35
　│　　　└◆1413:Re[2]:ありがとうございました！ [矢神] 12/19 00:00
　│　　　　└◆1415:すみません、さらに追加質問です。 [矢神] 12/19 02:32
　│　　　　　└◆1416:Re:すみません、さらに追加質問です。 [moon] 12/19 08:12
　│　　　　　　└◆1417:ありがとうございました！ [矢神] 12/19 09:39
　├◆1418:Re:補足 [moon] 12/19 20:11
　│└◆1419:ご親切にありがとうございます。 [矢神] 12/20 16:24
　└◆1421:設置のご報告 [矢神] 12/23 20:32
　　└◆1422:Re:設置のご報告 [moon] 12/23 21:44<-last