黒じゃ見にくい俺ペナニュースをリーグ別に色分け
準備 多分なし
対象箇所 「ore_game.cgi」の1094行辺り
改造前 # コメントファイル記入
if($ore_news && ($news_kekka || $news_record)){
open(CF,"+<$leaguefold/$commentfile") || &error('指定されたファイルが開けません。');
eval 'flock(CF,2);';

@comments = <CF>;
if($news_record){ $news_kekka = $news_record; }
$kakiko = "1<>【$leaguname】<><><>$times<>$news_kekka<>$team[0] $tokuten[0] - $tokuten[1] $team[1]<>\n";

unshift(@comments, $kakiko);
splice(@comments, $com_max);

truncate (CF, 0);
seek(CF,0,0); print CF @comments;
close(CF);
eval 'flock(CF,8);';
}

if($bannpuflag eq 3){#シリーズ
改造後 # コメントファイル記入
if($leaguname eq $leagu_name1){
if($ore_news && ($news_kekka || $news_record)){
open(CF,"+<$leaguefold/$commentfile") || &error('指定されたファイルが開けません。');
eval 'flock(CF,2);';

@comments = <CF>;
if($news_record){ $news_kekka = $news_record; }
$kakiko = "1<><font color=green>【$leaguname】<><><>$times<>$news_kekka<>$team[0] $tokuten[0] - $tokuten[1] $team[1]<></font>\n";
unshift(@comments, $kakiko);
splice(@comments, $com_max);

truncate (CF, 0);
seek(CF,0,0); print CF @comments;
close(CF);
eval 'flock(CF,8);';
}
}elsif($leaguname eq $leagu_name2){
if($ore_news && ($news_kekka || $news_record)){
open(CF,"+<$leaguefold/$commentfile") || &error('指定されたファイルが開けません。');
eval 'flock(CF,2);';

@comments = <CF>;
if($news_record){ $news_kekka = $news_record; }
$kakiko = "1<><font color=royalblue>【$leaguname】<><><>$times<>$news_kekka<>$team[0] $tokuten[0] - $tokuten[1] $team[1]<></font>\n";
unshift(@comments, $kakiko);
splice(@comments, $com_max);

truncate (CF, 0);
seek(CF,0,0); print CF @comments;
close(CF);
eval 'flock(CF,8);';
}
}else{
if($ore_news && ($news_kekka || $news_record)){
open(CF,"+<$leaguefold/$commentfile") || &error('指定されたファイルが開けません。');
eval 'flock(CF,2);';

@comments = <CF>;
if($news_record){ $news_kekka = $news_record; }
$kakiko = "1<>【$leaguname】<><><>$times<>$news_kekka<>$team[0] $tokuten[0] - $tokuten[1] $team[1]<>\n";
unshift(@comments, $kakiko);
splice(@comments, $com_max);

truncate (CF, 0);
seek(CF,0,0); print CF @comments;
close(CF);
eval 'flock(CF,8);';
}
}
if($bannpuflag eq 3){#シリーズ
補足 とりあえず「{ }」の位置に注意。
if文増やしたから負荷やばめかも。