▼スレッド
│
└◇1418:Re:補足 [moon] 12/19 20:11

　└◇1419:ご親切にありがとうございます。 [矢神] 12/20 16:24

> 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);」に置換すれば大丈夫だと思います。

助かります。お切に従い書き換えておきました。