#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Root;
run sub {
	my $this=shift;
	%_=@_;
	my $target=$_{target};
	# Sometimes hit the target.
	if (rand > 0.15) {
		$this->msg('hit', %_);
	}
	$this->super(@_);
}
