Converted PA

[NDIRC.git] / Context.pm

diff --git a/Context.pm b/Context.pm
index 8c16a95a65cdacc507cb06299e434f0727cb417d..5810ca4e97dc9cc369b2d6327e716d50ea67fd02 100644 (file)
--- a/Context.pm
+++ b/Context.pm
@@ -196,4 +196,16 @@ WHERE hostmask = $1
        return -4;
 }
 
+sub valuecolor {
+       shift @_;
+       my $s = $_;
+       $s = $_[1] if $#_ >= 1;
+       $s = "" unless defined $s;
+       return "<c05>$s</c>" if $s eq 'Hostile';
+       return "<c03>$s</c>" if $s eq 'Friendly';
+       return "<c12>$s</c>" if $s eq 'Nap' or $s eq 'NAP';
+       return "<b>$s</b>" if $_[0];
+       return $s;
+}
+
 1;