use strict;
use warnings;

weechat::register("kolorowanka", "voldenet", "0.1", "Public domain", "kolorowanka", "", "");
weechat::hook_command("kolorowanka", "<tekst>", "<tekst> - do pokolorowania", "", "", "kolorowanyshit", "");
sub kolorowanyshit {
    my ($data, $buffer, $text, $new) = (shift, shift, shift, '');
    $new=$new.(int(rand(13))+2).pack("U*",$_) for unpack("U*",$text);
    weechat::command($buffer,$new);
}