smorgasbord (#260)(an instance of generic container made by Calkins)     You see a buffet offering a variety of expensive hors d'oeuvres and delicacies. You wonder where Calkins gets this stuff in Bellona. smorgasbord contains coq au vin, turtle soup, sag paneer, uni maki, osso buco, foie gras, escargot, silverware, venison and caviar. Go to location of this object, Dining Room. VERB SOURCE CODE: p*ut in*sert d*rop: "Copied from generic container (#8):put by The_Mayor (#2) Fri Feb 4 23:44:45 1994 EST"; if ((this.location != player) && (this.location != player.location)) player:tell("You can't get at ", this.name, "."); elseif (dobj == $nothing) player:tell("What do you want to put ", prepstr, " ", this.name, "?"); elseif ($command_utils:object_match_failed(dobj, dobjstr)) elseif (!this.opened) player:tell(this.name, " is closed."); else dobj:moveto(this); if (dobj.location == this) player:tell(this:put_msg()); if (msg = this:oput_msg()) player.location:announce(player.name, " ", msg); endif else player:tell(this:put_fail_msg()); if (msg = this:oput_fail_msg()) player.location:announce(player.name, " ", msg); endif endif endif . re*move ta*ke g*et: "Copied from generic container (#8):remove by The_Mayor (#2) Fri Feb 4 23:45:01 1994 EST"; if (!this.opened) player:tell(this.name, " is not open."); elseif (this.dark) player:tell("You can't see into ", this.name, " to remove anything."); elseif ((dobj = this:match_object(dobjstr)) == $nothing) player:tell("What do you want to take from ", this.name, "?"); elseif ($command_utils:object_match_failed(dobj, dobjstr)) elseif (!(dobj in this:contents())) player:tell(dobj.name, " isn't in ", this.name, "."); else dobj:moveto(player); if (dobj.location == player) player:tell(this:remove_msg()); if (msg = this:oremove_msg()) player.location:announce(player.name, " ", msg); endif else dobj:moveto(this.location); if (dobj.location == this.location) player:tell(this:remove_msg()); if (msg = this:oremove_msg()) player.location:announce(player.name, " ", msg); endif player:tell("You can't pick up ", dobj.name, ", so it tumbles onto the floor."); else player:tell(this:remove_fail_msg()); if (msg = this:oremove_fail_msg()) player.location:announce(player.name, " ", msg); endif endif endif endif . announce_all: suspend(3); this.location:announce_all(@args); . PROPERTY DATA: CHILDREN: teawagon |