#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;

	if ($this->super(@_)) {
	    	# Start the bird flying while it's still locked for
		# movement by the caller of the drop command.
	    	$this->fly;
	    	if ($this->background) {
			# Lock is dropped somewhere in here.
		    	if (rand > 0.9) {
				$this->panic;
			}
			else {
				$this->land;
			}
		}
		return $this;
	}
	else {
		return;
	}
}
