Code: Select all
# =======================
# Ditto
# =======================
#
# add to config.txt
# dittoMaster <name>						-> name of commander
#
# Commands
# ditto								-> to view commander name
# ditto <name>							-> to change commander name
#
package ditto;
use strict;
use AI;
use Plugins;
use Log qw(message error);
use Translation qw(TF);
use Globals;
use Commands;
Plugins::register("ditto", "A simple whisper commandline forwarder", \&onUnload, \&on_reload);
my $hooks = Plugins::addHooks(['packet/private_message', \&onPrivateChat, undef]);
my $chooks = Commands::register(["ditto", "cmdDitto", \&cmdDitto]);
sub onPrivateChat{
		my $master = $config{dittoMaster};
        my ($packet, $args) = @_;
        my $sender = $args->{privMsgUser};
        if ($sender eq $master){
                Commands::run($args->{privMsg});
        }
}
sub cmdDitto {
my $lastSetting = $config{dittoMaster};
my (undef, $args) = @_;
if (defined $args) {
	$config{dittoMaster} = $args;
	message TF ("dittoMaster is set to %s (was %s)\n",$config{dittoMaster},$lastSetting),"info";
	return;
	}
message TF ("dittoMaster is %s\n",$config{dittoMaster}),"info";
return;
}
sub onUnload {
   Plugins::delHooks($hooks);
   Commands::unregister($chooks);
}
sub on_reload{
        &on_unload;
}
1;this is the one i use
thanks to Thaize (from the old Openkore Forums)

 
 