#!/usr/bin/perl
#use Fcntl q{:flock};
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	return if ($_{event} ne 'say' && $_{event} ne 'directed_say' &&
	           $_{event} ne 'whisper' && $_{event} ne 'whisperto' &&
		   $_{event} ne 'yell')
		|| $_{sense} ne 'hear'
		|| ($_{event} eq 'directed_say' && $_{direct_object} != $this)
		|| $_{originator} == $this;

	if ($this->target) {
		$this->target->incoming(message => $_{quote},
			avatar => $_{originator}, from => $this);
	}
}
