私設SoS2オーナー応援BBS

新規発言一覧最新記事過去一覧検索ダウンロードページHOME

スレッド

└◇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


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