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

	# Block messages by adding the unconsciousness filter as a
	# messagefilter.
	my $uc = $Mooix::Root->filter->unconsciousness;
	$this->messagefilters->add(object => $uc)
		unless grep $uc, $this->messagefilters->list;
	
	$this->msg("collapse");
}
