#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	if ($this->hitpoints <= 0) {
		$this->msg('look_broken', %_);
	}
	elsif ($this->cracked) {
		$this->msg('look_cracked', %_);
	}
	else {
		$this->super(%_);
	}
}
