@verb #9461:"@m*orph @mood" any any any rdo #9461
@program #9461:"@m*orph @mood" any any any
"Copied from Zero-Dupe (#2078):@m by Zero-Space (#9057)May 12 11:30:44 2002"
"Copied from Samson (#9131):@mood Oct 27 19:10:10 2000"
"Copied from dancergirl (#2623):@morph Mar  1 19:25:11 2000"
"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 name color is now " + player.title)
elseif (verb == "@mood")
  if (argstr == "")
    player.mood = argstr
    player:tell("Mood removed.")
  else
    player.mood = " (" + argstr + ")"
    player:tell("Your mood is now: ", argstr, ".")
  endif
endif
.