ぜろちゃんねるスクリプトを改造するスレ

464 ：名無しさん＠ぜろちゃんねる：05/03/26 15:06 ID:???

>>463
たとえばこんな。

>>451と同じ部分を

# キャップ結合
if ($capn ne "") {
my $color = ($capn =~ s/^@(.*?)@//)? $1 : "";
my @color = ($color)? ("<font color=$color>","</font>") : ("","");
if ($S->Get('NAME')) {$name = "$color[0]$name＠$capn ★$color[1]";}
else{$name = "$color[0]$capn ★$color[1]";}
}

キャップ表示名を、
@blue@ハンドル名
のように登録。