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

	my @states=$this->states;

	my $state=$#states * $this->mass / ($this->startmass - $this->endmass);
	$state = $#states if $state > $#states;
	
	$this->msg('look', %_, state => $states[$state]);
}
