#!/usr/bin/perl
use warnings;
use strict;

use Term::ANSIColor;
use IO::Handle; 
use IPC::Open2;

$|=1;

print "User: ";
my $User=<>;
print "Pass: ";
my $Pass=<>;

open2(*TNIN, *TNOUT, "telnet desert-island.dynodns.net 4040");
TNOUT->autoflush(1);
open(LOG, ">THCB.log");
LOG->autoflush(1);

print TNOUT "auth ]$User [ $Pass";

my @c=("red","green","yellow","magenta");
my $n=0;

alarm 120; my $m=2;

while (<TNIN>) {
        $SIG{ALRM}=sub{rearm()};
        print LOG "$_"; 
        if ($_ eq "Found you!\n") {print TNOUT "<i>exhaling...</i>\n"}
        my @line = split / /; my $bit = shift @line; chomp @line;
        if ($bit =~ /:$/) {
                print color("blue on_cyan"), "$bit"; 
                print color("reset");
        }   
        else {print color("$c[$n]"), "$bit "}
        print color("$c[$n]"), "@line ";
        if ($n eq 3) {$n=0}
        else {$n++}
}

sub rearm {
        print color("white on_red"), "$m"; print "m";
        print color("reset");
        alarm 120; $m++; $m++;
}