package guildBroadcaster;
use strict;
use warnings;

use Globals qw/%config $messageSender $char/;
use Log qw/message/;
use Misc qw/sendMessage/;

Plugins::register('guildBroadcaster', 'broadcast guild messages across union', \&Unload);

my $hooks = Plugins::addHooks (
	['packet_partyMsg', \&msg, 'partychat'],
	['packet_guildMsg', \&msg, 'guildchat']
);

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

sub msg {
	my ($hook, $args, $domain) = @_;
	my ($user, $message) = ($args->{MsgUser}, $args->{Msg});
	
	#message $hook." ".$domain." ".$user." ".$message."\n" , "test";
	return unless $config{'guildBroadcast'};
	return if $user eq $char->{'name'};
	
	sendMessage($messageSender, "p", $user.": ".$message) if ($domain eq "guildchat");
	sendMessage($messageSender, "g", $message) if ($domain eq "partychat");
}

1;