You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
588 B
22 lines
588 B
package Counterattack; |
|
|
|
use Milkbone; |
|
use Milkbone::AllHooks; |
|
use base 'Milkbone::AllHooks'; |
|
|
|
register_hook("protocol_eviled", sub { |
|
error(-short => "$ARGS{-user} has warned you. Counterstrike initiated."); |
|
protocol_evil(-user => $ARGS{-user}); |
|
|
|
register_hook("msg_in_$ARGS{-user}", sub { |
|
warn "Counterstrike completed"; |
|
protocol_evil(-user => $ARGS{-user}); |
|
deregister_hook("msg_in_$ARGS{-user}"); |
|
}, {-user => $ARGS{-user}}); |
|
}); |
|
|
|
register_hook("msg_in", sub { |
|
deregister_hook("protocol_eviled"); |
|
}); |
|
|
|
1;
|
|
|