Generic Wind-Up Toy (#1039)

(an instance of generic thing made by Rob)



Go to location of this object, Rob.



VERB SOURCE CODE:

wind:
if (this.location == player)
    if (this.wound < this.maximum)
        this.wound = this.wound + 2;
        player:tell("You wind up the ", this.name, ".");
        player.location:announce(player.name, " winds up the ", this.name, ".");
        if (this.wound >= this.maximum)
            player:tell("The knob comes to a stop while winding.");
        endif
    else
        player:tell("The ", this.name, " is already fully wound.");
    endif
else
    player:tell("You have to be holding the ", this.name, ".");
endif
.


d*rop th*row:
pass(@args);
if (this.wound)
    this.location:announce_all(this.name, " ", this:startup_msg());
    fork (15)
        this:do_the_work();
    endfork
endif
.


continue_msg:
return this.(verb);
.



PROPERTY DATA:
      wound
      startup_msg
      continue_msg
      maximum

CHILDREN:
Wind-Up Duck