some refactoring

[NDIRC.git] / Misc.pm

diff --git a/Misc.pm b/Misc.pm
index 2b479dd789e2a2ecf84c71a0bf590ffb7f08c237..c6e8db95c95be99949a1f8cc21fa85aca5a009c3 100644 (file)
--- 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;
 }