$server= '127.0.0.1';
$nick="Server_Console_DND";
$login="";
$pass="";
use Net::Hotline;
use Net::Hotline::Client;
use Net::Hotline::PrivateChat;

$x1 = 0;
$x2 = 0;
$x3 = 0;
$hlc = new Net::Hotline::Client;
$hlc->connect("$server");
$hlc->login_handler(\&Login_Handler);
$hlc->join_handler(\&Join_Handler);
$hlc->msg_handler(\&Msg_Handler);
$hlc->pchat_action_handler(\&Pchat_Action);
$hlc->nick_handler(\&nick_handler);
$hlc->login(Login    => $login,
            Password => $pass,
            Nickname => $nick,
            Icon     => 31337);
$hlc->run();

sub Login_Handler { $hlc->chat("ready to kill!"); }

sub Join_Handler {
my($hlc, $user) = @_;
$login=$hlc->get_userinfo($user->socket());
if ($login =~ /   login: thabob/) { $hlc->chat("i got a r0ck!"); }
elsif ($login =~ /   login: trop/) { $hlc->chat("Que Dieu te bless El Coyote!"); }
elsif ($login =~ /   login: stephanie/) { $hlc->chat("g's in da house, y'all"); }
elsif ($login =~ /   login: deejayicet/) {
$hlc->chat("Tha fucki'n DeeJay smokes too much weed =^)"); }
elsif ($login =~ /   login: admiral/) {
$hlc->chat("hark! admiraldennis is here to bring infinite knowledge and wisdom to ground418 (more likely he'll just be spamming the chat)");
}
}


sub Msg_Handler {
   ($hlc, $user, $msg_ref, $nick) = @_;
	$login=$hlc->get_userinfo($user->socket());
	$nickname = $user->nick();
if ($login =~ /login: guest/) 
	{
	$hlc->kick($user);
	$hlc->chat($nickname." was kix0red for being a spamx0r bot.");
	}
elsif (($login =~ /  login: thabob/) && ($login =~ /   icon: 500/) && ($login =~ /  color: 2/)) {
$$msg_ref =~ s/^\s*(.*?)\s*$/$1/;
$_ = $$msg_ref;
	if (/^say\s+(\S.*)/i) { $hlc->chat($1); }
	elsif (/^kick\s+(\S.*)/i) { $hlc->kick($1); }
	elsif (/^ban\s+(\S.*)/i) { $hlc->ban($1); }
	elsif (/^chat/i) { $hlc->pchat_invite($user->socket(),0x313337); }
    else { $hlc->msg($user, "what?"); }
}
else { $hlc->chat($nickname.", please stop msg'ing me."); }
}

sub Pchat_Action { $hlc->pchat_leave(0x313337); }

sub nick_handler {
($hlc, $user, $old_nick, $new_nick) = @_;
$login=$hlc->get_userinfo($user->socket());
if ($login =~ /login: guest/) {
$id = $user->socket();
if (($x1 == $id) && ($x2 == $id) && ($x3 == $id)) {
$hlc->kick($user);
$hlc->chat($new_nick." was kix0red for nick fl00din.");
$x1 = 0;
$x2 = 0;
$x3 = 0;
} elsif (($x1 == $id) && ($x2 == $id) && ($x3 != $id)) {
$x3 = $id;
} elsif (($x1 == $id) && ($x2 != $id) && ($x3 != $id)) {
$x2 = $id;
} else { $x1=$id; }
}
}