@verb #4812:"@m*orph @mood" any any any rdo #4812
@program #4812:"@m*orph @mood" any any any
"Copied from Jaina_Solo (#7349):@morph Aug 15 20:23:25 2000"
"Copied from Goku_ (#9057):@morph May 24 20:14:07 2000"
"Copied from Mchaggy (#9488):@morph May 17 17:33: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)
  player.location:announce_all(player.name, " morphs into " + 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
.