377
@verb #8431:"@morph" any none none rdo #8431
@program #8431:"@morph" any none none
"Copied from The_spider (#7446):@morph Jun 11 22:16:27 1997"
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
"Last modified by Slacker (#55) on Tue Aug 20 11:54:20 2002 MDT."
.

0