> if ($Fm{'mode'} eq 'casino') {require 'casino.pl';&play_form;}

これで大丈夫です。

> $line = join('<>',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','',$host,'',0,0,'cs',"\n");

'cs'が$csを表しているのだと思いますがここは0のほうが良いです。（'cs'も0も数値で扱えばどちらも0なので動作には問題ないですが念のため）

> 164のコメントが気になって…。
$cs += $inm;を例えば、@cs = split(/△/, $cs); $cs[0] += substr($idt, 0, 4); $cs = join('△', @cs);のように0番目だけを変更しないとBET数などのデータが消えてしまうので良くないということです。

> お金でコインを買えるようにしたいのですが、
> これは今は配布停止中のようだったので。

古いものであれば希望により配布しますが。（古いもの＝お金で買えるものでは最新ですが通常版と比べるとゲーム数が少ない）

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