▼スレッド
│
└◇92:Re[4]:アイテムにアイコンを・・ [moon] 10/02 21:39

　└◇93:Re[5]:アイテムにアイコンを・・ [ＳＯＳファン] 10/02 21:58
　　└◇94:Re[6]:アイテムにアイコンを・・ [moon] 10/02 22:39<-last

sub item_image{
　　my @type = ('Fd','Hb','Di'); # アイテムスキル
　　my @image = ('food.gif','harb.gif','damage.gif'); # アイテムスキルに対応する画像ファイル
　　foreach(0..$#type){
　　　　if(index($_[0],$type[$_],0)!=-1){
　　　　　　return $image[$_]; # 適切な画像が見つかった場合
　　　　}
　　}
　　return ''; # 適切な画像が無い場合
}
というサブルーチンを用意し、画像を表示したい箇所が、
foreach(@items){
　　($item,$sts,$price) = split(/△/,$_);
　　print qq|<option value="5">$item\n|;
}
だとすれば、次のように変更する。
foreach(@items){
　　($item,$sts,$price) = split(/△/,$_);
　　$itemimage = &item_image($sts); # 適切な画像を取得
　　if($itemimage ne ''){ # 画像がある場合
　　　　print qq|<option value="5"><img src="$itmdir$itemimage">$item\n|; # $itmdirは画像ディレクトリ
　　}
　　else{ # 画像が無い場合
　　　　print qq|<option value="5">$item\n|;
　　}
}

これを、画像＋アイテムとして表示する箇所に対応させればとりあえず画像表示が出来そうです。

できました！タグの中にディレクトリの指定をしてませんでした（汗
フラグ判定の方法はしっかりメモして、それなりの知識ができた時に
使わせていただきます。
またお世話になると思いますが、どうぞよろしくお願いします！

> できました！タグの中にディレクトリの指定をしてませんでした（汗
出来て良かったです。
ただし、この方法は以前、本家SOS2BBSで不具合があると書かれているのを見た記憶があります。（その時も現在もどこに不具合があるのかわかりませんが。）
なので、不具合がある可能性は否定できないのでそこは気に止めておいてください。
（詳しくは書かれていなかったのですが、画像指定に"が含まれていたのではないかと推測。）

> フラグ判定の方法はしっかりメモして、それなりの知識ができた時に
> 使わせていただきます。
いえ、自分で書いておいてなんですが、最終手段的な手法なので使わないほうが良いと思います。（foreachを使用しているので処理数がそれなりにかかる・・・）

> またお世話になると思いますが、どうぞよろしくお願いします！
どうそ、お気軽に聞いて下さい。