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

（１）$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はなにを意味するんでしょうか？

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

▼関連発言
│
└◆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