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

        # Remember where the duck currently is.
        my $old_loc=$this->location;

        # Call super to atually handle the put.
        $this->super(@_);

        # Was it put down, and did it move? If so, make it waddle.
        if ($_{do_preposition} == "down" && $old_loc != $this->location) {
                $this->waddle;
        }
}
