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

	# Winding an object involves picking it up.
	if ($this->location != $avatar) {
		$this->take_verb(%_);
	}
	
        # Do the actual winding.
        $this->spring($this->spring + 1);
        if ($this->spring > $this->max_spring) {
                $this->spring(0);
		$this->msg('overwind', %_);
        }
	else {
		$this->msg('wind', %_);
	}
}
