BlindJusticeええ感じ改造 | 一覧 | 検索 | 更新履歴(RSS) | 編集(管理者用) | 差分

図鑑未登録アイテム変色(商人の店)

編集(管理者用)

そのアイテムは図鑑に登録されているのかいないのか。

一目で分かるようにアイテムの文字色を変える改造です。

参考にする場合は利用規約に一度目を通してください。

改造法

編集(管理者用)

shopping_akindo.cgiの72行目から

	elsif (-s "$userdir/$shop_id/shop.cgi") {
##---------------------ここに壱を書く-----------------------##
		$mes .= qq|【$m{stock}】$y{name}「$shop_message」<br>|;
		$mes .= qq|<form method="$method" action="$script"><input type="radio" name="cmd" value="0" checked>やめる<br>|;
		$mes .= qq|<table class="table1"><tr><th>商品名</th><th>値段<br></th></tr>|;
		
		open my $fh, "< $userdir/$shop_id/shop.cgi" or &error("$y{name}に入れません");
		while (my $line = <$fh>) {
			my($no, $kind, $item_no, $item_c, $item_lv, $price) = split /<>/, $line;
			$mes .= qq|<tr><td><input type="radio" name="cmd" value="$no">|;
 ##---------------------ここに弍を書く-----------------------##
			$mes .= $kind eq '1' ? "$weas[$item_no][1]★$item_lv($item_c/$weas[$item_no][4])"
				  : $kind eq '2' ? "$eggs[$item_no][1]($item_c/$eggs[$item_no][2])"
				  : 			   "$pets[$item_no][1]"
				  ;
##---------------------ここに参を書く-----------------------##
			$mes .= qq|</td><td align="right">$price G<br></td></tr>|;
		}
		close $fh;
# 壱
	# コレクションdata読出し
	my @lines_c = ("undef"); # collectionの"c"
	open my $fh, "< $userdir/$id/collection.cgi" or &error("コレクションファイルが開けません");
	while (my $line_c = <$fh>) {
		$line_c =~ tr/\x0D\x0A//d; # \n改行削除
		push @lines_c, "$line_c\n";
	}
	close $fh;
# 弍
		$sub_mes .= '<font color="#AAAAAA">' if ($lines_c[$kind] !~ /,$item_no,/); # 色付け
# 参
		$sub_mes .= '</font>' if ($lines_c[$kind] !~ /,$item_no,/); # 色付け

補足

ちなみに壱、弍、参は倉庫の色変えのと同じソースです