use strict;
use warnings;

weechat::register("kolorowanka", "voldenet", "0.1", "GPL3", "kolorowanka", "", "");

weechat::hook_command("kolorowanka", "<tekst>", "<tekst> - do pokolorowania", "", "", "kolorowanyshit", "");

sub kolorowanyshit {
    weechat::command($_[1],join "",map { "\003".(int(rand(13))+2).pack("U*",$_) } unpack "U*",$_[2] );
    return weechat::WEECHAT_RC_OK;
}