@verb #3463:"@m*orph @mood" any any any rdo #3463
@program #3463:"@m*orph @mood" any any any
"Copied from Vegetto (#4017):@mood Jun  3 18:37:12 2000"
"Copied from Maga (#9057):@morph May 17 14:03:12 2000"
"Copied from Mchaggy (#9488):@morph Apr 11 14:56:21 2000"
"Copied from Kasaii (#9819):@m Feb 14 16:51:07 2000"
"This verb was made by Raistlin_Majere (#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
.