@verb #7446:"@morph" any none none rdo #7446
@program #7446:"@morph" any none none
if (dobjstr == "%normal%")
  this.morphed = 0
  player:tell("You have your original name back.")
elseif (dobjstr == "%last%")
  if (this.morphed == 0)
    this.morphed = 1
  else
    this.morph_name = this.old_morph_name
  endif
  player:tell("You have resumed using your last @morph name.")
else
  this.old_morph_name = this.morph_name
  this.morph_name = $command_utils:read()
  this.morphed = 1
  if (dobjstr != "quiet")
    this.location:announce(player.old_morph_name + " has just morphed into " + player:title() + ".")
  else
    player:tell("You have morphed Quietly.")
  endif
  player:tell("Your new name is " + player:title() + ".")
endif
.