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

	my @allcontents = $this->contents->list;
	my $exit=$Mooix::Root->concrete->exit;
	my (@contents, @exits, $details);

	foreach (@allcontents) {
		if (! $_->hidden) {
			push @contents, $_;
		}
		elsif ($_->defines("detail")) {
			$details .= " ".$_->detail;
		}
		elsif ($_->listable && $_->isa($exit)) {
			push @exits, $_;
		}
	}

	foreach (@contents) {
		my @visi = $_->visiblecontents;
		if (@visi) {
			push @contents, @visi;
		}
	}
	my @contents = grep { $_ != $avatar } @contents;
	
	$this->msg("look", %_,
		contents => @contents ? ucfirst $avatar->prettylist(@contents) : ($details ? "Nothing else" : "Nothing"),
		details => $details,
		are => (@contents > 1) ? "are" : "is",
		exits => @exits ? $avatar->prettylist(@exits) : "none");
}
