#!/usr/bin/perl

# Script "noidle.pl" copyright (c) 2001 Internet Technologies Solution Centre
# (http://www.itechsc.com). Distribution and use is is freely permitted
# provided the copyright notice and conditions remains intact. You use
# this script entirely at your own risk.

# This script has been written for and tested with Mortal Realms MUD
# (http://www.mortalrealms.com). Alterations may be required to make it
# work with other MUDs. This only works with "see what you type" enabled
# (config, a, f, x).


use IO::Handle;
STDOUT->autoflush(1);

$SIG{ALRM} = sub { alarm 120; printf "\n"; };
alarm 120;

while (<STDIN>) {
    
    if ($_ =~ /^.*\x1B\[0;36;40m\x1B\[;7m.*$/) {
        alarm 120;
    }
}

exit 0;