> elsif(rand(1000)<1){$inm = int(substr($idt,0,4)).'コイン'; $cs += $inm;} # お金の確率の1/1000でコインが手に入る。

上記についてなのですが、http://www11.big.or.jp/~hazymoon/ownerbbs/treebbs.cgi?all=1205&s=1205 の問題があるのを忘れていました。
修正案としましては「$cs += $inm;」を「@cslist = split(/△/, $cs); $cslist[0] += int($inm); $cs = join('△', @cslist);」に置換すれば大丈夫だと思います。

▼関連発言
│
└◆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