shelf of candles (#205)(an instance of generic container made by legba)     A wooden shelf, slightly warped in the center. Resting on the shelf are an assortment of brightly colored Fortune Candles. shelf of candles contains cotton candy, Venus Fortune Candle and Moon Candle. Go to location of this object, Grocery Store. VERB SOURCE CODE: p*ut in*sert d*rop:
"Copied from generic container (#8):put by Mayor (#2) Mon Jan 31 00:49:56 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
.
take steal:
"Copied from generic container (#8):take by The_Mayor (#2) Sun Feb 13 19:38:47 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
if ($object_utils:has_callable_verb(dobj, "steal"))
dobj:steal(dobj);
return;
endif
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
.
PROPERTY DATA: |