▼スレッド
│
└◇1000:Re[4]:コロシアムシステム借りました [moon] 03/26 09:12

　└◇1001:Re[5]:コロシアムシステム借りました [おずびと] 03/26 11:45
　　└◇1002:Re[6]:コロシアムシステム借りました [moon] 03/26 20:06
　　　└◇1003:Re[7]:コロシアムシステム借りました [おずびと] 03/26 23:23<-last

> > > > http://f25.aaacafe.ne.jp/~ozekisan/
> > > > コロシアムシステムを借りました。これから設置します
> > >
> > > 了解しました。ありがとうございます。
> > ついでにカジノも借りました、こちらはうまく行きません、途中のコインが手に入るようにするとはどうゆうことですか？
> ついでに
> sub play_formのnormal_action;をif($Fm{'mode'} ne 'casino'){&normal_action;}else{&casino_action;}に変更。
> ですが、すでにコロシアムで
> if($Fm{'mode'} eq 'colosseum'){&colo_action;}else{&normal_action;}
> となっています。どうすればいいでしょうか？

どちらも過去ログに記事がありますので検索してみてください。
if(〜ne〜){通常}else{カジノ}のほうは書くのが簡単なので書きますが、if(〜eq〜){コロシアム}elsif(〜eq〜){カジノ}else{通常}という形式にするだけです。

> > > > > http://f25.aaacafe.ne.jp/~ozekisan/
> > > > > コロシアムシステムを借りました。これから設置します
> > > >
> > > > 了解しました。ありがとうございます。
> > > ついでにカジノも借りました、こちらはうまく行きません、途中のコインが手に入るようにするとはどうゆうことですか？
> > ついでに
> > sub play_formのnormal_action;をif($Fm{'mode'} ne 'casino'){&normal_action;}else{&casino_action;}に変更。
> > ですが、すでにコロシアムで
> > if($Fm{'mode'} eq 'colosseum'){&colo_action;}else{&normal_action;}
> > となっています。どうすればいいでしょうか？
>
> どちらも過去ログに記事がありますので検索してみてください。
> if(〜ne〜){通常}else{カジノ}のほうは書くのが簡単なので書きますが、if(〜eq〜){コロシアム}elsif(〜eq〜){カジノ}else{通常}という形式にするだけです。
一様、カジノ設置までは、いったのですが、コインを手に入れるがいまだにわかりません、探索でコインを手に入れるようにしたいのですが・・・

> 一様、カジノ設置までは、いったのですが、コインを手に入れるがいまだにわかりません、探索でコインを手に入れるようにしたいのですが・・・

過去ログに書いてある以上に単純なやり方だと、
　　if ($stellatio <= $def_zd) {
の上にでも、
if(rand(100) < 1){ # 1パーセントの確率の場合
　　$coin = int(rand(3)) + 1; # ランダムで1〜3コインが入手できるようにする場合
　　@cs = split(/△/, $cs, 2);
　　$cs[0] += $coin;
　　$cs = join('△', @cs);
　　push(@msg, "${coin}コインを拾いました");
　　&userout;
　　return;
}
を追加すれば探索でもコインが入手できるようになると思います。
オリジナル版のsub find_itemの場合なので複数回探索などを取り入れている場合は適宜変更が必要です。

> > 一様、カジノ設置までは、いったのですが、コインを手に入れるがいまだにわかりません、探索でコインを手に入れるようにしたいのですが・・・
>
> 過去ログに書いてある以上に単純なやり方だと、
> 　　if ($stellatio <= $def_zd) {
> の上にでも、
> if(rand(100) < 1){ # 1パーセントの確率の場合
> 　　$coin = int(rand(3)) + 1; # ランダムで1〜3コインが入手できるようにする場合
> 　　@cs = split(/△/, $cs, 2);
> 　　$cs[0] += $coin;
> 　　$cs = join('△', @cs);
> 　　push(@msg, "${coin}コインを拾いました");
> 　　&userout;
> 　　return;
> }
> を追加すれば探索でもコインが入手できるようになると思います。
> オリジナル版のsub find_itemの場合なので複数回探索などを取り入れている場合は適宜変更が必要です。
返答、ありがとうございます。参考にさせていただきます