@verb #2385:"@m*orph @mood" any any any rdo #2385
@program #2385:"@m*orph @mood" any any any
"This verb was made by Thoth (#9780)"
if (verb in {"@m", "@mo", "@mor", "@morp", "@morph"})
  if (argstr == "me" || argstr == this.name || argstr == "")
    argstr = player.name
  endif
  player.title = argstr
  player:tell("Your new title is now " + player.title)
elseif (verb == "@mood")
  if (argstr == "")
    player.mood = argstr
    player:tell("Mood removed.")
  else
    player.mood = " (" + argstr + ")"
    player:tell("Current mood: ", argstr, ".")
  endif
endif
"Last modified by Slackeur (#55) on Mon Dec 28 16:18:46 1998 MST."
.