▼スレッド
│
└◇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
> こんにちわ。スレッド一覧
> まだperlの勉強中なのですが
> 慣れも必要かと思ってカジノのほうをダウンロードさせていただきました。
> ローカルチェックをしているところなのですが、
> さっそくいろいろ問題が…。
> 一応ゴールデンウィークもあることなので（時間があるので）
> もう少し自分で考えてみます。
> 今回はダウンロードさせてもらったという報告を。
ダウンロードありがとうございます。
自分は案外癖のあるコーディングをしているので、内容がわかりにくいと思いますが頑張ってください。
こんにちわ。スレッド一覧
まったくの手探りで変更したりしてみて
一番厄介だった、マイレコのバグは初歩的ミスによるもので
自分で何とか正常にすることができました。
いくつか不安要素があるのでご確認お願いします。
# Main Program #のところ
if ($Fm{'mode'} eq 'casino') {require 'casino.pl';&play_form;}
# Sub Make New #のところ
$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");
上記のようであってるでしょうか?
casino.plを呼び出すようにしています。
今のところこれで動いてるのですが。
あと
# ゲーム中でコイン（$csの最初の部分）が手に入るようにする。
をどうしたらよいものか…。
お金でコインを買えるようにしたいのですが、
これは今は配布停止中のようだったので。
過去ログ
http://www11.big.or.jp/~hazymoon/ownerbbs/treebbs.cgi?kako=1&log=75
にある探索時にコインを見つけるという方法ですが
http://www11.big.or.jp/~hazymoon/ownerbbs/treebbs.cgi?kako=1&all=148&s=148
の164のコメントが気になって…。
この辺のことを詳しく教えていただけますか?
> こんにちわ。スレッド一覧
> まったくの手探りで変更したりしてみて
> 一番厄介だった、マイレコのバグは初歩的ミスによるもので
> 自分で何とか正常にすることができました。
>
> いくつか不安要素があるのでご確認お願いします。
>
> # Main Program #のところ
> if ($Fm{'mode'} eq 'casino') {require 'casino.pl';&play_form;}
>
> # Sub Make New #のところ
> $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");
>
> 上記のようであってるでしょうか?
> casino.plを呼び出すようにしています。
> 今のところこれで動いてるのですが。
>
>
> あと
> # ゲーム中でコイン（$csの最初の部分）が手に入るようにする。
> をどうしたらよいものか…。
> お金でコインを買えるようにしたいのですが、
> これは今は配布停止中のようだったので。
> 過去ログ
> http://www11.big.or.jp/~hazymoon/ownerbbs/treebbs.cgi?kako=1&log=75
> にある探索時にコインを見つけるという方法ですが
> http://www11.big.or.jp/~hazymoon/ownerbbs/treebbs.cgi?kako=1&all=148&s=148
> の164のコメントが気になって…。
> この辺のことを詳しく教えていただけますか?
追加ですみませんが、add flagのほうもダウンロードさせていただきました。初心者ですが大変便利なプログラムだと思いました。ありがとうございます。
アドレスはまだアップしていないのでもう少しお待ちください。
ローカルでバッチリできたらアップするつもりです。
> 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数などのデータが消えてしまうので良くないということです。
> お金でコインを買えるようにしたいのですが、
> これは今は配布停止中のようだったので。
古いものであれば希望により配布しますが。（古いもの＝お金で買えるものでは最新ですが通常版と比べるとゲーム数が少ない）
> > 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なので動作には問題ないですが念のため）
0にしました。
>
> > 164のコメントが気になって…。
> $cs += $inm;を例えば、@cs = split(/△/, $cs); $cs[0] += substr($idt, 0, 4); $cs = join('△', @cs);のように0番目だけを変更しないとBET数などのデータが消えてしまうので良くないということです。
>
これは
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) }
にするということなのでしょうか?
> > お金でコインを買えるようにしたいのですが、
> > これは今は配布停止中のようだったので。
>
> 古いものであれば希望により配布しますが。（古いもの＝お金で買えるものでは最新ですが通常版と比べるとゲーム数が少ない）
今のところ探索のほうでやってみます。
ミニバカラが楽しいのでゲーム数が減るという事のようで
ミニバカラができなくなってしまったら
ちょっと残念になるので、探索で確率下げて出現させるようにしてみます。
お気遣いありがとうございました。
> 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;にしたほうが良いかもしれません。（動作的には変わりが無いです。）
こんばんわ。スレッド一覧
何とか設置できました。
それでようやくアドレスのほうをかけます。
http://eyeshield021.hp.infoseek.co.jp/
です。
少し気になった箇所がありましたので質問です。スレッド一覧
カジノ景品交換のチェックをやっていたら
所持数マックスを超えて景品をもらえるのですが
これは仕様なのでしょうか?
できれば所持数マックスを超えるようならば景品交換をできないようにしたいのですが。
> 少し気になった箇所がありましたので質問です。スレッド一覧
> カジノ景品交換のチェックをやっていたら
> 所持数マックスを超えて景品をもらえるのですが
> これは仕様なのでしょうか?
> できれば所持数マックスを超えるようならば景品交換をできないようにしたいのですが。
これは仕様です。
どうせアイテム数が最大所持数を超えたとしてもメイン（であると思う）の探索が出来ないので問題ないと考えて・・・。
変更箇所の説明が難しいので、手抜きでそのあたりのソースをそのまま載せます。
foreach(0..$#itemlist){
my ($itemname,$itemstatus,$itemrate) = split(/<>/,$itemlist[$_]);
print qq|<tr><td>|;
&input('checkbox',"$_",'on','',"$itemname");
print qq|</td><td>$itemrate</td></tr>\n|;
if($Fm{"$_"}){
if($coin>=$itemrate){
if($bg ne ''){$bg .= ",$itemname△$itemstatus";}
else{$bg = "$itemname△$itemstatus";}
$coin -= $itemrate;
if($get ne ''){$get .= "、$itemname";}
else{$get = "$itemname";}
push(@message,"「$itemname」を手に入れました<br>");
}
else{push(@message,"「$itemname」の交換には${itemrate}コインが必要です");}
}
}
を、
&splititem('i'); # 追加
foreach(0..$#itemlist){
my ($itemname,$itemstatus,$itemrate) = split(/<>/,$itemlist[$_]);
print qq|<tr><td>|;
&input('checkbox',"$_",'on','',"$itemname");
print qq|</td><td>$itemrate</td></tr>\n|;
if($Fm{"$_"}){
if($coin>=$itemrate){
if(@items < $xi){ # 追加
push(@items, "$itemname△$itemstatus"); # 変更
$coin -= $itemrate;
if($get ne ''){$get .= "、$itemname";}
else{$get = "$itemname";}
push(@message,"「$itemname」を手に入れました<br>");
}
else{push(@message, "所持品が一杯のため「$itemname」が交換できません<br>");} # 追加
}
else{push(@message,"「$itemname」の交換には${itemrate}コインが必要です");}
}
}
&joinitem('i') if($get ne ''); # ここかこの下にあるif($get ne '')内に追加
> > 少し気になった箇所がありましたので質問です。スレッド一覧
> > カジノ景品交換のチェックをやっていたら
> > 所持数マックスを超えて景品をもらえるのですが
> > これは仕様なのでしょうか?
> > できれば所持数マックスを超えるようならば景品交換をできないようにしたいのですが。
>
> これは仕様です。
> どうせアイテム数が最大所持数を超えたとしてもメイン（であると思う）の探索が出来ないので問題ないと考えて・・・。
>
> 変更箇所の説明が難しいので、手抜きでそのあたりのソースをそのまま載せます。
> foreach(0..$#itemlist){
> my ($itemname,$itemstatus,$itemrate) = split(/<>/,$itemlist[$_]);
> print qq|<tr><td>|;
> &input('checkbox',"$_",'on','',"$itemname");
> print qq|</td><td>$itemrate</td></tr>\n|;
> if($Fm{"$_"}){
> if($coin>=$itemrate){
> if($bg ne ''){$bg .= ",$itemname△$itemstatus";}
> else{$bg = "$itemname△$itemstatus";}
> $coin -= $itemrate;
> if($get ne ''){$get .= "、$itemname";}
> else{$get = "$itemname";}
> push(@message,"「$itemname」を手に入れました<br>");
> }
> else{push(@message,"「$itemname」の交換には${itemrate}コインが必要です");}
> }
> }
> を、
> &splititem('i'); # 追加
> foreach(0..$#itemlist){
> my ($itemname,$itemstatus,$itemrate) = split(/<>/,$itemlist[$_]);
> print qq|<tr><td>|;
> &input('checkbox',"$_",'on','',"$itemname");
> print qq|</td><td>$itemrate</td></tr>\n|;
> if($Fm{"$_"}){
> if($coin>=$itemrate){
> if(@items < $xi){ # 追加
> push(@items, "$itemname△$itemstatus"); # 変更
> $coin -= $itemrate;
> if($get ne ''){$get .= "、$itemname";}
> else{$get = "$itemname";}
> push(@message,"「$itemname」を手に入れました<br>");
> }
> else{push(@message, "所持品が一杯のため「$itemname」が交換できません<br>");} # 追加
> }
> else{push(@message,"「$itemname」の交換には${itemrate}コインが必要です");}
> }
> }
> &joinitem('i') if($get ne ''); # ここかこの下にあるif($get ne '')内に追加
あ、そうですね、マックス超えても探索できないですもんね。 いや、そこに気づかなかったです…。
変更方法ありがとうございます。
こちらはゆっくりと改良に手をつけていこうと思います。
重ね重ねありがとうございます。