X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Misc.pm;h=c6e8db95c95be99949a1f8cc21fa85aca5a009c3;hb=cc16b149738879697f5baf3eaede9597388d4d53;hp=2b479dd789e2a2ecf84c71a0bf590ffb7f08c237;hpb=9e84f393649d1ecbc24a94476352a28f49afa458;p=NDIRC.git diff --git a/Misc.pm b/Misc.pm index 2b479dd..c6e8db9 100644 --- a/Misc.pm +++ b/Misc.pm @@ -37,12 +37,12 @@ $ND::xanchan = "#ViolatorS"; sub valuecolor { my $s = $_; - $s = $_[1] if defined $_[1]; + $s = $_[1] if $#_ >= 1; $s = "" unless defined $s; - return chr(3)."5$s".chr(3) if $s eq 'Hostile'; - return chr(3)."3$s".chr(3) if $s eq 'Friendly'; - return chr(3)."3$s".chr(3) if $s eq 'Nap' or $s eq 'NAP'; - return chr(2)."$s".chr(2) if $_[0]; + return chr(3)."5$s".chr(15) if $s eq 'Hostile'; + return chr(3)."3$s".chr(15) if $s eq 'Friendly'; + return chr(3)."3$s".chr(15) if $s eq 'Nap' or $s eq 'NAP'; + return chr(2)."$s".chr(15) if $_[0]; return $s; }