13a
@verb #7160:"mood" any none none rdo #7160
@program #7160:"mood" any none none
"Copied from Tony (#8489):mood Jul 27 17:03:16 1996"
if (dobjstr)
  this.mood = dobjstr
  player:tell("You are now in a " + this.mood + " mood.")
else
  this.mood = ""
  player:tell("You are no longer in any mood.")
endif
.

0