# Free Software Foundation, Inc., *
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::IRC::Misc;
+package NDIRC::Misc;
use strict;
use warnings;
+use feature ':5.10';
+
require Exporter;
+use NDIRC::Context;
+
our @ISA = qw/Exporter/;
our @EXPORT = qw/valuecolor/;
-$ND::defchan = "#def-ndawn";
-$ND::memchan = "#nd";
-$ND::scanchan = "#ndef";
-$ND::bcchan = "#nd-day";
-$ND::intelchan = "#ndintel";
-$ND::officerchan = "#nd-officers";
-$ND::communitychan = "#ndawn";
-$ND::pubchan = "#newdawn";
-$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;
}
+
1;