▼スレッド
│
└◇793:コロシアムの賞品 [コーノ] 09/25 18:33

　└◇794:Re:コロシアムの賞品 [moon] 09/25 19:43
　　└◇795:まとめると・・ [コーノ] 09/25 20:38
　　　└◇796:Re:まとめると・・ [moon] 09/25 22:02<-last

コロシアムシステムをDLさせていただきました。
すてきなスクリプトをありがとうございます。

現在設置に向けてテストをしているのですが質問よろしいでしょうか？

コロシアムの優勝者にアイテムを副賞としてつけたいのですがそれに手間取っています。
ここの過去ログに同じ質問を見つけたのですが、意味がよくわからず、すでに5日さまよっています。
そこでこちらの「SOSオーナー応援」の言葉につられてやってまいりました。

スレッドナンバー567一連のところなのですが
> 「<>$battle」としたところを例えば「<>トロフィー△00100000IgNsTi」のような感じで、です。

ここは

$temp{"$win1"} = "$temp{$win1}<>トロフィー△00100000IgNsTi";

と言う意味なのだと思うのですが、次には

> $extraにアイテムデータが入っているとして、$bg = $bg ne '' ? "$bg,$extra" : $extra;です。

と新しい「$extra」が出てきていて「<>トロフィー△00100000IgNsTi」はどうなってしまったんでしょう？（汗）

また、そもそも
$bg = $bg ne '' ? "$bg,$extra" : $extra;
をどこに追加すればいいかもわかりません（汗）


できればmoonさまが設置しているものの賞品部分の改造を

「sub_〜　の
〜〜〜の下に
〜〜〜を追加」

という感じで説明していただけないでしょうか・・・（汗）
まことに勝手ながらよろしくお願いいたします。

> > $extraにアイテムデータが入っているとして、$bg = $bg ne '' ? "$bg,$extra" : $extra;です。
>
> と新しい「$extra」が出てきていて「<>トロフィー△00100000IgNsTi」はどうなってしまったんでしょう？（汗）

「<>トロフィー△00100000IgNsTi」はファイルに保存されます。
そして、$extra云々は受け取り時の処理なのでファイルから読み込んで変数にアイテムデータ"トロフィー△00100000IgNsTi"が入るようにするということです。
処理的には、my $prize = (split(/<>/,$paylist{"$id<>$nm<>$ps"}))[4];というように$paylist{〜}をsplitして値を取得します。
# 上記は変数名を$extraから$prizeに変更しました。

> また、そもそも
> $bg = $bg ne '' ? "$bg,$extra" : $extra;
> をどこに追加すればいいかもわかりません（汗）

$mn += $pay;
とあると思いますがそれ以降に、
　　my $prize = (split(/<>/,$paylist{"$id<>$nm<>$ps"}))[4];
　　$bg = $bg ne '' ? "$bg,$extra" : $extra if($prize ne '' && $prize ne "\n");
を追加すれば良いと思います。
# 上記は追加するだけでメッセージを出していません。

返信ありがとうございました。
まとめると

（１）$temp{"$win1"} += $win1num;の下に、
$temp{"$win1"} = "$temp{$win1}<>トロフィー△00100000IgNsTi";
追加。

（２）$mn += $pay;以降に、
my $prize = (split(/<>/,$paylist{"$id<>$nm<>$ps"}))[4];
$bg = $bg ne '' ? "$bg,$extra" : $extra if($prize ne '' && $prize ne "\n");
追加。

だと解釈したのですが、
$extraっていうのはつまり「トロフィー△00100000IgNsTi」のことなんですよね？

だとするとどこかに
$extra = "トロフィー△00100000IgNsTi";
というのを入れなければいけないのでしょうか？

ちょっと混乱してきました・・・（汗）
えっと、
$bg = $bg ne '' ? "$bg,$extra" : $extra if($prize ne '' && $prize ne "\n");
には$prizeと$extraってのがありますが、
$extraは「トロフィー△00100000IgNsTi」なんですよね？
だとすると$prizeはなにを意味するんでしょうか？

ああ・・・
もしかして私の技量では無理な改造なのでしょうか・・・（涙）

> my $prize = (split(/<>/,$paylist{"$id<>$nm<>$ps"}))[4];
> $bg = $bg ne '' ? "$bg,$extra" : $extra if($prize ne '' && $prize ne "\n");

修正が洩れていました。
ここの$extraは全て$prizeです。
なので、$prizeが「トロフィー△00100000IgNsTi」となります。