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

	# Move the ball into the avatar's location.
	if ($avatar->location != $this->location) {
		$this->physics->move(object => $this, to => $avatar->location) ||
			fail "It won't bounce.";
	}

	$this->msg('startbounce', %_);
	$this->bounce;
}
