############ VLC Player 2.0 - © 2011, Arcademan. ############################
#!/usr/bin/perl

use strict;
use warnings;
use Xchat qw( :all );
use LWP::UserAgent;

#############################################################################

my $version = "2.0";
Xchat::register("Lumpy's Script", $version, "Displays Lumpy Info!","");

#############################################################################

my $text      = "44"; #desired text color

#############################################################################

Xchat::command("ination", "ination");
Xchat::command("lumpy", "lumpy");

#############################################################################

sub ination {
Xchat::command("me \003$text - \0039 NP: \0035 \0032 Indie Nation is a streaming online radio station which features independent music, tech geek news, live shows, interviews and much more. \0035 \003");
return Xchat::EAT_ALL;
}

sub lumpy {
Xchat::command("me \003$text - \0039 NP: \0035 \0032 Lumpy is the owner and unboss.  Lumpy is gifted with many voices.  Unfortunately, they are not the ones to be directed into a microphone but the type that argue in his head. \0035 \003");
return Xchat::EAT_ALL;
}

#############################################################################

foreach ("Channel Message", "Channel Message Hilight") { Xchat::hook_print($_, \&IndieNation ); }
sub IndieNation {
   # Get Channel and Network:
   my $strChan = Xchat::get_info("channel");
   my $strNetwork = Xchat::get_info("network");
   # If Channel or Network Do Not Match Below Do Nothing!
   if ($strChan !~ m/^(#indienation)$/i) { return Xchat::EAT_NONE; }
   if ($strNetwork !~ m/^(Geekshed-BNC)$/i) { return Xchat::EAT_NONE; }
   if ($_[0][1] !~ m/^!indienation/i) { return Xchat::EAT_NONE; }
   if ($_[0][2] !~ m/[%@&~!+]/) { return Xchat::EAT_NONE; }
   my @Playlist = ("!indienation", $+); &ination(\@Playlist);
   return Xchat::EAT_NONE;
}