#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	if ($_{avatar} != $this) {
		# Instead of forcing an object into (ahem) an
		# avatar with put, need to hand it to them instead.
		fail "Perhaps you should hand the object to ".
		     $this->gender_object_pronoun." instead.";
	}
	else {
		# Moving to self is really a take, so do it that way..
		$_{direct_object}->exec->take_verb(@_);
	}
}
