#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Root;
run sub {
	my $this=shift;
	
	return if $this->flying;
	
	# In case the moo goes down while the bird is flying, register with
	# init to stop the flight when the moo comes back up.
	$Mooix::Root->system->init->register(object => $this, to => 'startup');
	
	$this->flying(1);
	$this->_origdefense($this->defense);
	$this->defense($this->flyingdefense);
}
