#!/usr/bin/perl
# This is very evil. Make toads incapable of understanding conversation.
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;

	# Of course this would be better implemented if there was a
	# "conversation" tag.
	if ($_{sense} eq 'hear' && $_{event} =~ /(say|whisper|yell)/ && $_{originator} != $this) {
		# And this just sucks.
		my $name=$_{originator}->name;
		if (length $_{originator}->article) {
			$name=$_{originator}->article." ".$name;
		}
		$_{message} = ucfirst "$name says something that you cannot understand.";
	}
	$this->super(%_);
}
