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

	my $lock = $avatar->getlock(LOCK_EX);

	if ($avatar->location != $this) {
		exit Mooix::Verb::SKIP;
	}
		
	if ($avatar->physics->move(object => $avatar, to => $this->location)) {
		$this->msg('getoff', %_)
	}
	else {
		fail "You can't get off it!";
	}
}
