▼スレッド
│
└◇1415:すみません、さらに追加質問です。 [矢神] 12/19 02:32

　└◇1416:Re:すみません、さらに追加質問です。 [moon] 12/19 08:12
　　└◇1417:ありがとうございました！ [矢神] 12/19 09:39

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

見様見真似で、設定部分に
$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')」に置換すれば大丈夫だと思います。

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

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