#kleur |gebruik irssi|<kleur>
use utf8;
sub kleur
{
    my ($msg) = @_, my $i = 0, my $return, my @colors;
    if ($msg =~ m/gebruik irssi/i)
    {
        $return  = "Kleurtjes   : ^c0,1<voorgrond>,1,0<achtergrond>4,12gekleurde tekst\n";
        $return .= "Vetgedrukt  : ^bvetgedrukte tekst\n";
        $return .= "Geinverteerd: ^vgeinverteerde tekst\n";
        $return .= "Onderstreept: ^_onderstreepte tekst\n";
        $return .= "Normaal     : ^onormale tekst\n";
        return $return;
    }
    elsif ($msg =~ m/^gebruik (mirc|msn|icq|jabber)/i)
    { return "Ga maar lekker zitten klikken op die icoontjes ;)"; }

    @colors = qw(wit zwart blauw groen lichtrood rood paars oranje geel lichtgroen cyaan lichtcyaan lichtblauw lichtpaars grijs lichtgrijs);
    $return = "Kleurcodes: ";
    foreach my $color(@colors)
    {
        if ($msg eq $color)
        { return "Kleurcode: $i"; }
        if ($msg eq $i)
        { return "Kleur:$i $color"; }
        $return .= "$i:$i $color, ";
        $i++;
    }
    chop($return); chop($return);
    return $return;
}

sub kleur_help
{
    my $return;
    $return  = "Toon de verschillende IRC-kleuren: kleur |gebruik irssi|<kleur>\n";
    $return .= "Bv.: kleur -> Toon alle kleurcodes\n";
    $return .= "Bv.: kleur gebruik irssi -> Toon gebruik van kleurtjes in irssi\n";
    $return .= "Bv.: kleur rood -> Toon code voor de kleur rood\n";
    $return .= "Bv.: kleur 4 -> Toon de kleur voor de code 4\n";
    return $return;
}

1;