▼スレッド
│
└◇794:Re:コロシアムの賞品 [moon] 09/25 19:43
└◇795:まとめると・・ [コーノ] 09/25 20:38
└◇796:Re:まとめると・・ [moon] 09/25 22:02<-last
> > $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");
を追加すれば良いと思います。
# 上記は追加するだけでメッセージを出していません。
返信ありがとうございました。スレッド一覧
まとめると
(1)$temp{"$win1"} += $win1num;の下に、
$temp{"$win1"} = "$temp{$win1}<>トロフィー△00100000IgNsTi";
追加。
(2)$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」となります。