▼スレッド
│
└◇1410:Re:追記 [moon] 12/18 08:06

　└◇1411:ありがとうございました！！ +もう一つ [矢神] 12/18 17:45
　　└◇1412:Re:ありがとうございました！！ +もう一つ [moon] 12/18 22:35
　　　└◇1413:Re[2]:ありがとうございました！ [矢神] 12/19 00:00
　　　　└◇1415:すみません、さらに追加質問です。 [矢神] 12/19 02:32
　　　　　└◇1416:Re:すみません、さらに追加質問です。 [moon] 12/19 08:12
　　　　　　└◇1417:ありがとうございました！ [矢神] 12/19 09:39

> if ($idt !~ /Gl/) {push (@gotitem,"$inm△$idt"); push (@msg,"$inmをみつけました")}
> else {$money += substr($idt,0,4)}
>
> という部分があったのでこの二行の間に
>
> elsif(rand(1000)<1){$inm = int(substr($idt,0,4)).'コイン'; $cs += $inm;} # お金の確率の1/1000でコインが手に入る。
>
> を入れてみたのですが、
> 探索でコインは増えるのですが拾った際のメッセージが表示されなくなってしまいました。
> （2回探索してコインと2Gをそれぞれ拾った場合、2Gを見つけましたという一行しか表示されない）

アイテムである時にメッセージを追加しているようなので、「$cs += $inm;」の後ろにでも下記を追加すれば大丈夫だと思います。
push(@msg, "${inm}をみつけました");

> アイテムである時にメッセージを追加しているようなので、「$cs += $inm;」の後ろにでも下記を追加すれば大丈夫だと思います。
> push(@msg, "${inm}をみつけました");

無事に表示されるようになりました！
助かりました。ありがとうございます。


もう一つ追加で質問というか、確認していただきたい事があるのですが
戦闘に敗北した時と殺害された時のrateの低下を少なくしたいのですが

# Sub Rate #の
$rt = int($wn/($wn + $lz) * 100) * $wn - ($dt * 100) + ($kl * 100);

これを

$rt = int($wn/($wn + $lz/4) * 100) * $wn - ($dt * 25) + ($kl * 100);

こうしてみたのですが、とりあえず動いてはいるようですが
なにせん手探りでやってみただけなので、これでいいのかどうか自信がありません
表記及び仕様に問題は無いでしょうか？

> もう一つ追加で質問というか、確認していただきたい事があるのですが
> 戦闘に敗北した時と殺害された時のrateの低下を少なくしたいのですが
>
> # Sub Rate #の
> $rt = int($wn/($wn + $lz) * 100) * $wn - ($dt * 100) + ($kl * 100);
>
> これを
>
> $rt = int($wn/($wn + $lz/4) * 100) * $wn - ($dt * 25) + ($kl * 100);
>
> こうしてみたのですが、とりあえず動いてはいるようですが
> なにせん手探りでやってみただけなので、これでいいのかどうか自信がありません
> 表記及び仕様に問題は無いでしょうか？

敗北数が$lzで死亡数が$dtでありレートに対する影響が両方とも少なくなっていますので特に問題無いと思います。

助かりました。なんとか思った通りの形にもっていけそうです。

最近はもうどこのサイト様もサポート打ち切りになっていたり、
バージョンや再配布物毎の違いもわかりにくかったりで、
こちらのような頼りになるBBSの存在はとてもとてもありがたいです。
転職所内蔵関係など、過去ログも大いに参考にさせていただきました。

お礼が遅くなってしまいましたがカジノシステムもDLして使わせて
頂いたので、完成したらURLをご報告させて頂こうかと思います。
重ね重ねありがとうございました！

タイトルページに、英雄、大富豪と並んでカジノ王（最もコインの所有数が多いプレイヤー）を表示させたいのですが、ありがちな改造だとは思うのですが紹介しているサイトが見付からず、上手く行きません。

見様見真似で、設定部分に
$casnam = 'カジノ王 ';

# 覇者、大富豪の紹介に
print qq|</td>\n<td align=center>\n|;
print qq|<img src=$imgdir$wimg width=$ig_wd height=$ig_ht><br>\n| if $wimg;
print qq|$casnam$casikin| if $casikin;

# Sub Find the Best Player #に
if ($cs > $bestcoin && $sp !~ /Ng/) { $casikin = $nm; $wimg = $ig; $bestcoin = $cs }

と追記してみたのですが、どこが間違っているor何が足りないのでしょうか。



あともう一つ、これも難しくないとは思うんですが上手く行かなくて…
スキル「剣の舞」の発動条件（レア剣装備）にレア刀も含めたいのですが、
恐らく# Sub Arm #の
if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' }
この部分をいじればよさそうだとは思うんですが、
'Sw','Kt'のような感じに書いてしまって良いのでしょうか？

> タイトルページに、英雄、大富豪と並んでカジノ王（最もコインの所有数が多いプレイヤー）を表示させたいのですが、ありがちな改造だとは思うのですが紹介しているサイトが見付からず、上手く行きません。
>
> 見様見真似で、設定部分に
> $casnam = 'カジノ王 ';
>
> # 覇者、大富豪の紹介に
> print qq|</td>\n<td align=center>\n|;
> print qq|<img src=$imgdir$wimg width=$ig_wd height=$ig_ht><br>\n| if $wimg;
> print qq|$casnam$casikin| if $casikin;
>
> # Sub Find the Best Player #に
> if ($cs > $bestcoin && $sp !~ /Ng/) { $casikin = $nm; $wimg = $ig; $bestcoin = $cs }
>
> と追記してみたのですが、どこが間違っているor何が足りないのでしょうか。

この部分は特に問題無いようです。
$csが代入されていない可能性が考えられますので、sub list_orderの「($id,$nm,〜,$rw,$kl) = split(/<>/,$lstlines[$_]);」のような部分を見て$csが含まれているかどうかを確認して、もし含まれていないのであれば$csに代入されるように修正してみてください。

> あともう一つ、これも難しくないとは思うんですが上手く行かなくて…
> スキル「剣の舞」の発動条件（レア剣装備）にレア刀も含めたいのですが、
> 恐らく# Sub Arm #の
> if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' }
> この部分をいじればよさそうだとは思うんですが、
> 'Sw','Kt'のような感じに書いてしまって良いのでしょうか？

それぞれをorで比較（||もしくはor演算子）しなければいけません。
その部分が2箇所あるはずなので、それぞれの「$a1 eq 'Sw'」を「($a1 eq 'Sw' || $a1 eq 'Kt')」に置換すれば大丈夫だと思います。

教えていただいた通りに修正したら、どうにか上手くいったようです。
剣の舞の方はそもそもステータスの数値には反映されないようなので確認のしようがありませんでしたが…

何度も初歩的な質問をしてしまいすみませんでした。