milkbone/plugins/Bark.pl

package Bark;

use Milkbone;

register_hook("msg_in", sub {
    return if hook("protocol_away_status");
    return if $ARGS{-msg} eq "BARK!";
    hook("protocol_send_im", -dest => $ARGS{-user}, -msg => "BARK!");
});

1;