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

	if ($this->wielded) {
		if (! $_{oldloc}->unwield(object => $this) ||
		    $this->wielded(0) != 0 || $this->immobile(0) != 0) {
			return;
		}
	}
	return 1;
}
