Howard Zuu

#!/usr/bin/perl

use strict;
use warnings;
use Irssi;

my $VERSION = "14.88";
my %IRSSI = (
        authors         => 'hzu',
        contact         => 'irc.f1re.org #arab',
        name            => 'lo.pl',
        description     => 'make irc fun'
);

sub colorize {
        RAND: my ($fg, $bg) = (int(rand(14)+2), int(rand(14)+2)); goto RAND if $fg == $bg;
        $_[0] = "\003$fg,$bg" . $_[0];
        Irssi::signal_continue @_;
}

Irssi::signal_add_first('send text', 'colorize');