★三　【スクリプト改造工房 PART 9 】　★三

★三　【スクリプト� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

53:nobodyさん
 06/06/11 13:50:15  BE:752102069- 
>>52 
if ($in{'icon'} eq 'space.gif') { 
$ico1 = ($ico1, $ico2); 
$in{'icon'} = $ico1[int(rand($#ico1)) + 1];

54:nobodyさん
 06/06/11 14:17:19 
>>53 
ありがとうございます。 
$ico1がファイルの場所で 
$ico2が上に対となるファイルの名前になります。セットです。 
 
初めは$ico1だけ書けばアイコン選択で出ないと思ってたのですが、 
名前無しのアイコンが選択画面、アイコン一覧画面に出てきてしまい。 
どうすればいいのかと思いました。 
$ico3をどうにかして作るしかないのでしょうか。

55:nobodyさん
 06/06/11 18:24:24 
>>52 
>>54 
それは$ico1基準で表示されてるから。$ico2基準で一覧作ってもらえればその通りになる。 
表示するところのコード見たらいい。 
もしくはランダムに選ぶ時だけマージする$specialico = ...みたいなのを用意しておくとか。

56:52
 06/06/11 22:27:03 
>>55 
表示に関係してそうな点が2箇所ありました。 
<select name=icon>\n"; 
foreach(0 .. $#ico1) { 
if ($ico eq $ico1[$_]) { 
print "<option value=\"$_\" selected>$ico2[$_]\n"; 
} else {print "<option value=\"$_\">$ico2[$_]\n";}} 
print "</select>\n"; 
 
 
<tr> 
EOM 
@ico1 = split(/\s+/, $ico1); 
@ico2 = split(/\s+/, $ico2); 
$i=0; $j=0; 
$stop = @ico1; 
foreach (0 .. $#ico1) { 
$i++; $j++; 
print "<td><img src=\"$imgurl$ico1[$_]\"> 
$ico2[$_]</td>\n"; 
if ($j != $stop && $i >= 10) { 
print "</td><tr>\n"; 
 
これをどういじればよいのでしょうか？よろしければお願いします。

次ページ