#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Root;
run sub {
	my $this=shift;
	%_=@_;
	my $target=$_{target};
	my $room=$Mooix::Root->concrete->room;
	while (! $target->isa($room)) {
		$target=$target->location;
		if (! ref $target) {
			return;
		}
	}
	return $this->drop(to => $target);
}
