#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	
	if ($this->hitpoints <= $this->minhitpoints) {
		$this->recover;
		
		# Stop trapping commands with special verb.
		unlink("command_interceptor");
		# Probably unnecessary, they're not logged in yet.
		$this->signal(method => "parse", with => 1);
	
		# And a miracle happens..
		$this->msg('resurrect');
		$this->hitpoints($this->maxhitpoints);

		# Allow logins again.
		$this->nologin(0);
	}
}
