Openkore.com

Code: Select all

package ditto;
use strict;
use AI;
use Plugins;
use Log qw(message);
use Globals;
use Commands;
use Network;
my @options;
my $hooks;
my $master = 'MasterName';

push(@options, ['packet/private_message', \&onPrivateChat, undef]);

sub onPrivateChat{
        my ($packet, $args) = @_;
        my $sender = $args->{privMsgUser};
        if ($sender eq $master){
                Commands::run($args->{privMsg});
        }
}

sub onUnload {
	Plugins::delHooks($hooks);
}

sub on_reload{
        &on_unload;
}

Plugins::register("ditto", "A simple whisper commandline forwarder", \&on_unload, \&on_reload);
my $hooks = Plugins::addHooks(@options);

1;