▼スレッド
│
└◇90:Re[2]:アイテムにアイコンを・・ [ＳＯＳファン] 10/02 18:38

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

レスありがとうございます。
早速言われた通りあるアイテムの前にimgの記述を加えました。
が・・動作が変とかいうより、まるっきり表示されません。
アイテム用のアイコンはサイズが決まってるとか、
全アイテムに対してアイコンの指定をしないといけない、とかじゃありませんよね。
自分の知識の無さに泣けてきますが、よければもうひとつの
フラグ判定方式、という場合の記述を教えてはもらえないでしょうか・・

> レスありがとうございます。
> 早速言われた通りあるアイテムの前にimgの記述を加えました。
> が・・動作が変とかいうより、まるっきり表示されません。
> アイテム用のアイコンはサイズが決まってるとか、
> 全アイテムに対してアイコンの指定をしないといけない、とかじゃありませんよね。
> 自分の知識の無さに泣けてきますが、よければもうひとつの
> フラグ判定方式、という場合の記述を教えてはもらえないでしょうか・・

うちでも試してみましたが表示だけなら問題無くされますよ。（表示以外は確認していません。）
パス指定が間違っているのではないですか？（画像が./imageディレクトリにあるならsrc=image/food.gifのような指定です。）

フラグ判定方式は改造する箇所が多そうなので、のちほど。

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を使用しているので処理数がそれなりにかかる・・・）

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