@verb #2195:"@m*orph @mood" any any any rdo #2195
@program #2195:"@m*orph @mood" any any any
"Copied from Roosterman (#2322):@morph Jul 14 15:36:07 1999"
"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
.