sub new{
	my ($class,$player  ) = @_;
	my $self = {};
	bless $self, $class;
	$self->{'things'} = [ ];
	return $self;
}