#!/usr/bin/perl
#use Mooix::Thing;
#use Fcntl q{:flock};
run sub {
	my $this=shift;
	if ($this->flying) {
		$this->defense($this->_origdefense);
		$this->flying(0);
	}
}
