#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Root;
run sub {
	my $this=shift;
	%_=@_;
	$this->super(@_) || die "super failed";

	# Toads are smaller, and this lets the physics system know about
	# the mass change and update the bookkeeping.
	if ($this->basemass != $this->parent->basemass) {
		$this->basemass($this->parent->basemass);
	}
	# Lie to masschange; it has an optimization that makes it ignore
	# negative mass changes and not drop anything; but of course
	# maxweight has also changed and so stuff needs to be dropped.
	$this->masschange(0.001);
}
