#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $avatar=$_{avatar};
	if ($this->hitpoints > 0) {
		$this->msg('stare', %_);
	}
	else {
		$this->msg('broken_stare', %_)
	}
}
