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.
16 lines
437 B
16 lines
437 B
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;
|
|
|