>>396 >422
もう解決してるかもしれんけど，あげついでに。
自信無し。

＞参加者表示順変更
chat.txtの39行目あたりのを↓
#参加者表示
open(DBS,"$sanka_file");
@lin = <DBS>;
close(DBS);
$aaa = @lin;
$num = @sanka3;
$bbb = $aaa - $num;
if($aaa < $num){
$bbb = 0;
}
print '<FONT size="2">';
print "ROM：($bbb)\n";
print "参加者($num)：";
print "@sanka3\n";
print '</FONT><HR>';
#ログ表示
↑こう置き換える

＞時間表示削除
pref.txtの63行目あたりのを↓
sub jikan{#$dateに時刻を代入します。
$date = '';
}#jikan END
↑こう置き換える