our @ISA = qw/Exporter/;
our @EXPORT = qw/showCall setType takeCall covCall ignoreCall
- defcall anon setDefPrio setCalc getCalc/;
+ defcall setDefPrio setCalc getCalc/;
sub showCall {
my ($msg,$command) = @_;
}
}
-sub anon {
- my ($msg,$command) = @_;
- my ($target,$mess);
- if (defined $msg && $msg =~ /^(\S+) (.+)$/){
- $target = $1;
- $mess = $2;
- }else{
- $ND::server->command("notice $ND::nick Usage: $command nick message");
- return;
- }
- if (dc()){
- $ND::server->command("msg $target ".chr(2).$mess);
- $ND::server->command("msg $ND::target ".chr(3)."3$1 << $2");
- }
-}
-
sub setCalc {
my ($msg,$command) = @_;
my ($id, $calc);