banantalk.pl

weechat::register("banantalk", "tjs", "0.2", "MIT", "Talk like banan", "", "");

weechat::hook_command("banantalk", "talk like banan", "", "", "", "banantalk", "");

sub banantalk {
    my (undef, $buffer, @args) = @_;
    my @args2 = split /\s/, $args[0];

    while (@args2) {
        my @tmp = splice(@args2, 0, int(rand(2))+2);
        weechat::command($buffer, join(" ", @tmp), $channel);
    }

    return weechat::WEECHAT_RC_OK;
}