▼スレッド
│
└◇1844:Re[3]:カードトレードと、カード画像の実装を目指して… [YOUME] 08/12 22:36

ありがとうございます！
無事にトレードカードの設定ができるようになりました！

ただ、トレード設定しているプレイヤーの名前とIDをリストで出そうとしているのが上手くいかず…

以下のようにsos2.cgiに追記しているのですが、

# Sub Trades In Order #
sub trade_order {
&get_file; &list_in;
foreach (0 .. $#lstlines) {
($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
$av,$wn,$lz,$dt,$mn,$bg,$others) = split(/<>/,$lstlines[$_]);
splititem('i');
foreach (0 .. $#items) {
($item,$sts,$price) = split(/△/,$items[$_]);
if ($sts =~ /Td/) {
push (@odrlines,"$item<>$sts<>$id<>$nm");
}
}
}
@odrlines = sort(@odrlines);
&header;
if ($sts =~ /C0/) {$cde = "<font color=red>火</font>";}
if ($sts =~ /C1/) {$cde = "<font color=blue>水</font>";}
if ($sts =~ /C2/) {$cde = "<font color=yellow>雷</font>";}
if ($sts =~ /C3/) {$cde = "<font color=blown>地</font>";}
if ($sts =~ /C4/) {$cde = "<font color=green>風</font>";}
if ($sts =~ /C5/) {$cde = "<font color=gray>聖</font>";}
if ($sts =~ /C6/) {$cde = "<font color=purple>魔</font>";}
if ($sts =~ /C7/) {$cde = "<font color=black>虚</font>";}
$idd = int(substr($sts,6,2));
print qq|<table align=center border=0 bgcolor=$tblbdc cellspacing=1 cellpadding=$tblcpd>\n|;
print qq|<tr><td colspan=7 bgcolor=$tblbdc align=center><b><font color=$scdclr>トレード情報</font></b></td></tr>\n|;
print qq|<tr bgcolor=$nmclr><td>トレード希望カード</td><td>攻撃値</td><td>属性</td><td>ID</td><td>提供者</td></tr>\n|;
foreach (0 .. $#odrlines) {
($item,$break,$sts,$iimg,$id,$nm) = split(/<>/,$odrlines[$_]);
print qq|<tr bgcolor=$ltclr><td>$item</td><td><b>$idd</b></td><td><b>$cde</b></td><td>$id</td><td>$nm</td></tr>\n|;
}
print qq|</table>\n|;
}

これだと「ID」「プレイヤー名」が空欄になってしまって…
他のリストと見比べたものの、原因が分からず…
どこが悪いのか診て頂けると助かります(涙)



そしカード画像のご指導もありがとうございます！

自分の中で、まず、どうしたいのかを考えてみたのですが、

現状「カードをコレクションする」から「コレクションを見る」ことができるようにしてあるので、
そのコレクションカードリストから、
カードごとの画像を見れるようにしたいなと…！

140×180サイズのカードごとのサムネイル画像を並べて、クリックすると280×360くらいのサイズが見れるようにできたら最高だなと…！

しかし、そんな妄想だけで、どうすればいいのか全く思い浮かんでいないのが現状です…

もしよければ、お知恵を貸して頂けたら嬉しいです…！