> if ($idt !~ /Gl/) { push(@items,"$inm△$idt"); &joinitem('i') }
> elsif(rand(1000)<1){$inm = int(substr($idt,0,4)).'コイン'; @cs = split(/△/, $cs); $cs[0] += substr($idt, 0, 4); $cs = join('△', @cs);} # お金の確率の1/1000でコインが手に入る。
> else { $mn += substr($idt,0,4) }

変更していまいちだったところがあるので、上記の$cs[0] += substr($idt, 0, 4);を$cs[0] += $inm;にしたほうが良いかもしれません。（動作的には変わりが無いです。）

▼関連発言
│
└◆533:カジノ [akira] 05/02 12:32
　└◆535:Re:カジノ [moon] 05/02 21:40
　　└◆536:設定してみました [akira] 05/03 05:23
　　　└◆537:Re:設定してみました [akira] 05/03 05:27
　　　　└◆538:Re[2]:設定してみました [moon] 05/03 12:57
　　　　　└◆539:Re[3]:設定してみました [akira] 05/03 14:05
　　　　　　└◆540:Re[4]:設定してみました [moon] 05/03 16:25
　　　　　　　└◆541:Re[5]:設定してみました [akira] 05/04 00:54
　　　　　　　　└◆542:質問 [akira] 05/04 09:56
　　　　　　　　　└◆543:Re:質問 [moon] 05/04 13:39
　　　　　　　　　　└◆545:Re[2]:質問 [akira] 05/04 14:05<-last