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

        # Call super method to handle the drop, it returns true on success.
        return unless $this->super(@_);

        if ($this->spring > 0) {
                # The duck either lands on its side, or it lands on its feet.
                if (rand > 0.5) {
                        # Side.
			$this->msg('drop_discharge');
			$this->spring(0);
                }
                else {
                        # Feet. Waddle off.
                        $this->waddle;
                }
	}

        # Indicate successful drop.
        return $this;
}
