私設SoS2オーナー応援BBS

新規発言 ｜ 一覧 ｜ 最新記事 ｜ 過去一覧 ｜ 検索 ｜ ダウンロードページ ｜ ＨＯＭＥ 
▼スレッド
│
└◇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

537● Re:設定してみました[ akira ] 2003 05/03 05:27
> こんにちわ。
> まったくの手探りで変更したりしてみて
> 一番厄介だった、マイレコのバグは初歩的ミスによるもので
> 自分で何とか正常にすることができました。
>
> いくつか不安要素があるのでご確認お願いします。
>
> # 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のほうもダウンロードさせていただきました。初心者ですが大変便利なプログラムだと思いました。ありがとうございます。
アドレスはまだアップしていないのでもう少しお待ちください。
ローカルでバッチリできたらアップするつもりです。
スレッド一覧

538● Re[2]:設定してみました[ moon ] 2003 05/03 12:57
> 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数などのデータが消えてしまうので良くないということです。

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

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

539● Re[3]:設定してみました[ akira ] 2003 05/03 14:05
> > 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) }

にするということなのでしょうか?

> > お金でコインを買えるようにしたいのですが、
> > これは今は配布停止中のようだったので。
>
> 古いものであれば希望により配布しますが。（古いもの＝お金で買えるものでは最新ですが通常版と比べるとゲーム数が少ない）

今のところ探索のほうでやってみます。
ミニバカラが楽しいのでゲーム数が減るという事のようで
ミニバカラができなくなってしまったら
ちょっと残念になるので、探索で確率下げて出現させるようにしてみます。
お気遣いありがとうございました。
スレッド一覧

540● Re[4]:設定してみました[ moon ] 2003 05/03 16:25
> 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;にしたほうが良いかもしれません。（動作的には変わりが無いです。）
スレッド一覧

541● Re[5]:設定してみました[ akira ] 2003 05/04 00:54
こんばんわ。
何とか設置できました。
それでようやくアドレスのほうをかけます。

http://eyeshield021.hp.infoseek.co.jp/
です。
スレッド一覧

542● 質問[ akira ] 2003 05/04 09:56
少し気になった箇所がありましたので質問です。
カジノ景品交換のチェックをやっていたら
所持数マックスを超えて景品をもらえるのですが
これは仕様なのでしょうか?
できれば所持数マックスを超えるようならば景品交換をできないようにしたいのですが。
スレッド一覧

543● Re:質問[ moon ] 2003 05/04 13:39
> 少し気になった箇所がありましたので質問です。
> カジノ景品交換のチェックをやっていたら
> 所持数マックスを超えて景品をもらえるのですが
> これは仕様なのでしょうか?
> できれば所持数マックスを超えるようならば景品交換をできないようにしたいのですが。

これは仕様です。
どうせアイテム数が最大所持数を超えたとしてもメイン（であると思う）の探索が出来ないので問題ないと考えて・・・。

変更箇所の説明が難しいので、手抜きでそのあたりのソースをそのまま載せます。
　　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 '')内に追加
スレッド一覧

545● Re[2]:質問[ akira ] 2003 05/04 14:05
> > 少し気になった箇所がありましたので質問です。
> > カジノ景品交換のチェックをやっていたら
> > 所持数マックスを超えて景品をもらえるのですが
> > これは仕様なのでしょうか?
> > できれば所持数マックスを超えるようならば景品交換をできないようにしたいのですが。
>
> これは仕様です。
> どうせアイテム数が最大所持数を超えたとしてもメイン（であると思う）の探索が出来ないので問題ないと考えて・・・。
>
> 変更箇所の説明が難しいので、手抜きでそのあたりのソースをそのまま載せます。
> 　　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 '')内に追加

あ、そうですね、マックス超えても探索できないですもんね。 いや、そこに気づかなかったです…。
変更方法ありがとうございます。
こちらはゆっくりと改良に手をつけていこうと思います。
重ね重ねありがとうございます。
スレッド一覧

CGIROOM