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

	# Make sure that this command is not spoofed, just in case.
        if ($_{avatar} != $this) {
		fail "No!"; 
	}
	
	fail "Um, you're currently in limbo." unless $this->location;
	$this->home($this->location);
	$_{session}->write("There's no place like home!");
}
