> 一様、カジノ設置までは、いったのですが、コインを手に入れるがいまだにわかりません、探索でコインを手に入れるようにしたいのですが・・・

過去ログに書いてある以上に単純なやり方だと、
　　if ($stellatio <= $def_zd) {
の上にでも、
if(rand(100) < 1){ # 1パーセントの確率の場合
　　$coin = int(rand(3)) + 1; # ランダムで1〜3コインが入手できるようにする場合
　　@cs = split(/△/, $cs, 2);
　　$cs[0] += $coin;
　　$cs = join('△', @cs);
　　push(@msg, "${coin}コインを拾いました");
　　&userout;
　　return;
}
を追加すれば探索でもコインが入手できるようになると思います。
オリジナル版のsub find_itemの場合なので複数回探索などを取り入れている場合は適宜変更が必要です。

▼関連発言
│
└◆994:コロシアムシステム借りました [おずびと] 03/23 21:03
　└◆996:Re:コロシアムシステム借りました [moon] 03/24 09:03
　　└◆998:Re[2]:コロシアムシステム借りました [おずびと] 03/26 00:30
　　　└◆999:Re[3]:コロシアムシステム借りました [おずびと] 03/26 00:48
　　　　└◆1000:Re[4]:コロシアムシステム借りました [moon] 03/26 09:12
　　　　　└◆1001:Re[5]:コロシアムシステム借りました [おずびと] 03/26 11:45
　　　　　　└◆1002:Re[6]:コロシアムシステム借りました [moon] 03/26 20:06
　　　　　　　└◆1003:Re[7]:コロシアムシステム借りました [おずびと] 03/26 23:23<-last