#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $avatar=$_{avatar};

	if ($this->location != $avatar) {
		fail "You are not holding that.";
	}
	
	# auto-take off before drop to get the message order right
	if ($this->worn) {
		$this->remove_verb(%_);
	}
	
	$this->super(@_, %_);
}
