package Counterattack;

use Milkbone;

register_hook("protocol_eviled", sub {
        warn "$ARGS{-user} has warned you.  Counterstrike initiated.";
        hook("protocol_evil", -user => $ARGS{-user});
        
        register_hook("msg_in_$ARGS{-user}", sub {
            warn "Counterstrike completed";
            hook("protocol_evil", -user => $ARGS{-user});
            deregister_hook("msg_in_$ARGS{-user}");
        });
});

1;