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)