X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FIRC%2FMisc.pm;fp=ND%2FIRC%2FMisc.pm;h=0000000000000000000000000000000000000000;hb=65784e3972c8e0ebcbd981db441b4718466ac773;hp=c6e8db95c95be99949a1f8cc21fa85aca5a009c3;hpb=c643b311c8f134a59625192b900aa28b3f12d4f1;p=ndwebbie.git diff --git a/ND/IRC/Misc.pm b/ND/IRC/Misc.pm deleted file mode 100644 index c6e8db9..0000000 --- a/ND/IRC/Misc.pm +++ /dev/null @@ -1,49 +0,0 @@ -#************************************************************************** -# Copyright (C) 2006 by Michael Andreen * -# * -# This program is free software; you can redistribute it and/or modify * -# it under the terms of the GNU General Public License as published by * -# the Free Software Foundation; either version 2 of the License, or * -# (at your option) any later version. * -# * -# This program is distributed in the hope that it will be useful, * -# but WITHOUT ANY WARRANTY; without even the implied warranty of * -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * -# GNU General Public License for more details. * -# * -# You should have received a copy of the GNU General Public License * -# along with this program; if not, write to the * -# Free Software Foundation, Inc., * -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * -#**************************************************************************/ -package ND::IRC::Misc; -use strict; -use warnings; -require Exporter; - -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 $#_ >= 1; - $s = "" unless defined $s; - 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;